4 use Test
::More tests
=> 8;
9 my $server = new_memcached();
10 my $sock = $server->sock;
13 print $sock "delete $key\r\n";
14 is (scalar <$sock>, "NOT_FOUND\r\n", "not found on delete");
16 print $sock "delete $key 10\r\n";
17 is (scalar <$sock>, "CLIENT_ERROR bad command line format."
18 . " Usage: delete <key> [noreply]\r\n", "invalid delete");
20 print $sock "add $key 0 0 1\r\nx\r\n";
21 is (scalar <$sock>, "STORED\r\n", "Add before a broken delete.");
23 print $sock "delete $key 10 noreply\r\n";
25 # is (scalar <$sock>, "ERROR\r\n", "Even more invalid delete");
27 print $sock "add $key 0 0 1\r\nx\r\n";
28 is (scalar <$sock>, "NOT_STORED\r\n", "Failed to add after failed silent delete.");
30 print $sock "delete $key noreply\r\n";
31 # Will not reply, so let's do a set and check that.
33 print $sock "set $key 0 0 1\r\nx\r\n";
34 is (scalar <$sock>, "STORED\r\n", "Stored a key");
36 print $sock "delete $key\r\n";
37 is (scalar <$sock>, "DELETED\r\n", "Properly deleted");
39 print $sock "set $key 0 0 1\r\nx\r\n";
40 is (scalar <$sock>, "STORED\r\n", "Stored a key");
42 print $sock "delete $key noreply\r\n";
43 # will not reply, but a subsequent add will succeed
45 print $sock "add $key 0 0 1\r\nx\r\n";
46 is (scalar <$sock>, "STORED\r\n", "Add succeeded after deletion.");