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