Commit | Line | Data |
---|---|---|
1673d79e | 1 | #!./perl |
1673d79e | 2 | |
304efdcb | 3 | use FileCache; |
4 | ||
d9268716 | 5 | END { unlink('foo') } |
1673d79e | 6 | |
d9268716 | 7 | use Test::More tests => 1; |
1673d79e | 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); | |
d9268716 | 15 | ok(<foo> eq "foo 44\n"); |
846e3505 | 16 | close foo; |
1673d79e | 17 | } |