1#!./perl 2 3use FileCache; 4 5END { unlink('foo_2arg') } 6 7use Test::More tests => 1; 8 9{# Test 4: that 2 arg format works, and that we cycle on mode change 10 cacheout '>', "foo_2arg"; 11 print foo_2arg "foo 4\n"; 12 cacheout '+>', "foo_2arg"; 13 print foo_2arg "foo 44\n"; 14 seek(foo_2arg, 0, 0); 15 ok(<foo_2arg> eq "foo 44\n"); 16 close foo_2arg; 17} 18