1#!./perl 2BEGIN { 3 use FileCache; 4 chdir 't' if -d 't'; 5 6 #For tests within the perl distribution 7 @INC = '../lib' if -d '../lib'; 8 END; 9} 10END{ 11 unlink('foo'); 12} 13 14print "1..1\n"; 15 16{# Test 4: that 2 arg format works, and that we cycle on mode change 17 cacheout '>', "foo"; 18 print foo "foo 4\n"; 19 cacheout '+>', "foo"; 20 print foo "foo 44\n"; 21 seek(foo, 0, 0); 22 print 'not ' unless <foo> eq "foo 44\n"; 23 print "ok 1\n"; 24} 25