lib/FileCache/t/04twoarg.t

   1 #!./perl
   2 BEGIN {
   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 }
  10 END{
  11   unlink('foo');
  12 }
  13
  14 print "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 }