54a3f13d4dfc334b1c51eff96a8adc7b4f6b323f
4 use Test
::More tests
=> 9;
10 my $server = new_memcached();
11 my $sock = $server->sock;
14 # Test that commands can take 'noreply' parameter.
15 print $sock "flush_all noreply\r\n";
16 print $sock "flush_all 0 noreply\r\n";
18 print $sock "verbosity 0 noreply\r\n";
20 print $sock "add noreply:foo 0 0 1 noreply\r\n1\r\n";
21 mem_get_is($sock, "noreply:foo", "1");
23 print $sock "set noreply:foo 0 0 1 noreply\r\n2\r\n";
24 mem_get_is($sock, "noreply:foo", "2");
26 print $sock "replace noreply:foo 0 0 1 noreply\r\n3\r\n";
27 mem_get_is($sock, "noreply:foo", "3");
29 print $sock "append noreply:foo 0 0 1 noreply\r\n4\r\n";
30 mem_get_is($sock, "noreply:foo", "34");
32 print $sock "prepend noreply:foo 0 0 1 noreply\r\n5\r\n";
33 my @result = mem_gets($sock, "noreply:foo");
34 ok($result[1] eq "534");
36 print $sock "cas noreply:foo 0 0 1 $result[0] noreply\r\n6\r\n";
37 mem_get_is($sock, "noreply:foo", "6");
39 print $sock "incr noreply:foo 3 noreply\r\n";
40 mem_get_is($sock, "noreply:foo", "9");
42 print $sock "decr noreply:foo 2 noreply\r\n";
43 mem_get_is($sock, "noreply:foo", "7");
45 print $sock "delete noreply:foo noreply\r\n";
46 mem_get_is($sock, "noreply:foo");