a5eb1ce4af00d2fe787912e9352e029322fcc9f2
4 use Test
::More tests
=> 7;
9 my $server = new_memcached();
10 my $sock = $server->sock;
11 my $value1 = "A"x66560;
12 my $value2 = "B"x66570;
14 print $sock "set key 0 1 66560\r\n$value1\r\n";
15 is (scalar <$sock>, "STORED\r\n", "stored key");
17 my $stats = mem_stats($sock, "slabs");
18 my $requested = $stats->{"31:mem_requested"};
19 isnt ($requested, "0", "We should have requested some memory");
22 print $sock "set key 0 0 66570\r\n$value2\r\n";
23 is (scalar <$sock>, "STORED\r\n", "stored key");
25 my $stats = mem_stats($sock, "items");
26 my $reclaimed = $stats->{"items:31:reclaimed"};
27 is ($reclaimed, "1", "Objects should be reclaimed");
29 print $sock "delete key\r\n";
30 is (scalar <$sock>, "DELETED\r\n", "deleted key");
32 print $sock "set key 0 0 66560\r\n$value1\r\n";
33 is (scalar <$sock>, "STORED\r\n", "stored key");
35 my $stats = mem_stats($sock, "slabs");
36 my $requested2 = $stats->{"31:mem_requested"};
37 is ($requested2, $requested, "we've not allocated and freed the same amont");