4 use Test
::More tests
=> 4;
9 my $server = new_memcached();
10 my $sock = $server->sock;
12 print $sock "set issue29 0 0 0\r\n\r\n";
13 is (scalar <$sock>, "STORED\r\n", "stored issue29");
15 my $first_stats = mem_stats($sock, "slabs");
16 my $first_used = $first_stats->{"1:used_chunks"};
18 is(1, $first_used, "Used one");
20 print $sock "set issue29_b 0 0 0\r\n\r\n";
21 is (scalar <$sock>, "STORED\r\n", "stored issue29_b");
23 my $second_stats = mem_stats($sock, "slabs");
24 my $second_used = $second_stats->{"1:used_chunks"};
26 is(2, $second_used, "Used two")