diff options
Diffstat (limited to 'gnu/usr.bin/perl/ext/FileCache/t/04twoarg.t')
-rwxr-xr-x | gnu/usr.bin/perl/ext/FileCache/t/04twoarg.t | 16 |
1 files changed, 8 insertions, 8 deletions
diff --git a/gnu/usr.bin/perl/ext/FileCache/t/04twoarg.t b/gnu/usr.bin/perl/ext/FileCache/t/04twoarg.t index 0189c465479..da42f32403d 100755 --- a/gnu/usr.bin/perl/ext/FileCache/t/04twoarg.t +++ b/gnu/usr.bin/perl/ext/FileCache/t/04twoarg.t @@ -2,16 +2,16 @@ use FileCache; -END { unlink('foo') } +END { unlink('foo_2arg') } use Test::More tests => 1; {# Test 4: that 2 arg format works, and that we cycle on mode change - cacheout '>', "foo"; - print foo "foo 4\n"; - cacheout '+>', "foo"; - print foo "foo 44\n"; - seek(foo, 0, 0); - ok(<foo> eq "foo 44\n"); - close foo; + cacheout '>', "foo_2arg"; + print foo_2arg "foo 4\n"; + cacheout '+>', "foo_2arg"; + print foo_2arg "foo 44\n"; + seek(foo_2arg, 0, 0); + ok(<foo_2arg> eq "foo 44\n"); + close foo_2arg; } |