Mercurial > hg > memcached

comparison t/flush-all.t @ 0:30782bb1fc04 MEMCACHED_1_2_3

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
memcached-1.2.3
author Maxim Dounin <mdounin@mdounin.ru>
date Sun, 23 Sep 2007 03:58:34 +0400
parents
children
comparison
equal deleted inserted replaced
-1:000000000000 0:30782bb1fc04
1 #!/usr/bin/perl
2
3 use strict;
4 use Test::More tests => 10;
5 use FindBin qw($Bin);
6 use lib "$Bin/lib";
7 use MemcachedTest;
8
9 my $server = new_memcached();
10 my $sock = $server->sock;
11 my $expire;
12
13 print $sock "set foo 0 0 6\r\nfooval\r\n";
14 is(scalar <$sock>, "STORED\r\n", "stored foo");
15
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);
20
21 # check that flush_all doesn't blow away items that immediately get set
22 print $sock "set foo 0 0 3\r\nnew\r\n";
23 is(scalar <$sock>, "STORED\r\n", "stored foo = 'new'");
24 mem_get_is($sock, "foo", 'new');
25
26 # and the other form, specifying a flush_all time...
27 my $expire = time() + 2;
28 print $sock "flush_all $expire\r\n";
29 is(scalar <$sock>, "OK\r\n", "did flush_all in future");
30
31 print $sock "set foo 0 0 4\r\n1234\r\n";
32 is(scalar <$sock>, "STORED\r\n", "stored foo = '1234'");
33 mem_get_is($sock, "foo", '1234');
34 sleep(2.2);
35 mem_get_is($sock, "foo", undef);