Commit | Line | Data |
---|---|---|
1673d79e | 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 | } |