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