4 use Test
::More tests
=> 21;
9 my $server = new_memcached();
10 my $sock = $server->sock;
13 print $sock "set foo 0 0 6\r\nfooval\r\n";
14 is(scalar <$sock>, "STORED\r\n", "stored foo");
16 mem_get_is($sock, "foo", "fooval");
17 print $sock "flush_all\r\n";
18 is(scalar <$sock>, "OK\r\n", "did flush_all");
19 mem_get_is($sock, "foo", undef);
21 # Test flush_all with zero delay.
22 print $sock "set foo 0 0 6\r\nfooval\r\n";
23 is(scalar <$sock>, "STORED\r\n", "stored foo");
25 mem_get_is($sock, "foo", "fooval");
26 print $sock "flush_all 0\r\n";
27 is(scalar <$sock>, "OK\r\n", "did flush_all");
28 mem_get_is($sock, "foo", undef);
30 # check that flush_all doesn't blow away items that immediately get set
31 print $sock "set foo 0 0 3\r\nnew\r\n";
32 is(scalar <$sock>, "STORED\r\n", "stored foo = 'new'");
33 mem_get_is($sock, "foo", 'new');
35 # and the other form, specifying a flush_all time...
36 my $expire = time() + 2;
37 print $sock "flush_all $expire\r\n";
38 is(scalar <$sock>, "OK\r\n", "did flush_all in future");
40 print $sock "set foo 0 0 4\r\n1234\r\n";
41 is(scalar <$sock>, "STORED\r\n", "stored foo = '1234'");
42 mem_get_is($sock, "foo", '1234');
44 mem_get_is($sock, "foo", undef);
46 print $sock "set foo 0 0 5\r\n12345\r\n";
47 is(scalar <$sock>, "STORED\r\n", "stored foo = '12345'");
48 mem_get_is($sock, "foo", '12345');
49 print $sock "flush_all 86400\r\n";
50 is(scalar <$sock>, "OK\r\n", "did flush_all for far future");
51 # Check foo still exists.
52 mem_get_is($sock, "foo", '12345');
53 print $sock "set foo2 0 0 5\r\n54321\r\n";
54 is(scalar <$sock>, "STORED\r\n", "stored foo2 = '54321'");
55 mem_get_is($sock, "foo", '12345');
56 mem_get_is($sock, "foo2", '54321');