1#!./perl 2 3use FileCache; 4 5END { unlink('foo') } 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"; 11 print foo "foo 4\n"; 12 cacheout '+>', "foo"; 13 print foo "foo 44\n"; 14 seek(foo, 0, 0); 15 ok(<foo> eq "foo 44\n"); 16 close foo; 17} 18