ext/FileCache/t/04twoarg.t

   1 #!./perl
   2
   3 use FileCache;
   4
   5 END { unlink('foo') }
   6
   7 use 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 }