Commit | Line | Data |
---|---|---|
1673d79e | 1 | #!./perl |
1673d79e | 2 | |
304efdcb RGS |
3 | use FileCache; |
4 | ||
eaf344cf | 5 | END { unlink('foo_2arg') } |
1673d79e | 6 | |
d9268716 | 7 | use Test::More tests => 1; |
1673d79e JH |
8 | |
9 | {# Test 4: that 2 arg format works, and that we cycle on mode change | |
eaf344cf YO |
10 | cacheout '>', "foo_2arg"; |
11 | print foo_2arg "foo 4\n"; | |
12 | cacheout '+>', "foo_2arg"; | |
13 | print foo_2arg "foo 44\n"; | |
14 | seek(foo_2arg, 0, 0); | |
15 | ok(<foo_2arg> eq "foo 44\n"); | |
16 | close foo_2arg; | |
1673d79e | 17 | } |