6 use Test
::More tests
=> 691;
11 my $server = new_memcached();
12 my $sock = $server->sock;
15 my $val = "x" x $factor;
18 # SET items of diverse size to the daemon so it can attempt
19 # to return a large stats output for slabs
20 for (my $i=0; $i<69; $i++) {
21 for (my $j=0; $j<10; $j++) {
23 print $sock "set key$key 0 0 $factor\r\n$val\r\n";
24 is (scalar <$sock>, "STORED\r\n", "stored key$key");
27 $factor = ceil($factor);
31 # This request will kill the daemon if it has not allocated
32 # enough memory internally.
33 my $stats = mem_stats($sock, "slabs");
35 # Verify whether the daemon is still running or not by asking
37 print $sock "version\r\n";
38 my $v = scalar <$sock>;
39 ok(defined $v && length($v), "memcached didn't respond");