1#!./perl
2
3use FileCache;
4
5END { unlink('foo_2arg') }
6
7use Test::More tests => 1;
8
9{# Test 4: that 2 arg format works, and that we cycle on mode change
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;
17}
18