Lines Matching refs:sock

11 my $sock = $server->sock;
17     print $sock "set key$key 0 0 66560\r\n$value\r\n";
18     is(scalar <$sock>, "STORED\r\n", "stored key$key");
21 my $stats  = mem_stats($sock);
26 $stats = mem_stats($sock, "settings");
28 print $sock "cache_memlimit 8\r\n";
29 is(scalar <$sock>, "OK\r\n", "bumped maxbytes from 3m to 8m");
32 $stats = mem_stats($sock, "settings");
36 $stats = mem_stats($sock, "slabs");
39 print $sock "set toast 0 0 66560\r\n$value\r\n";
40 is(scalar <$sock>, "STORED\r\n", "stored toast");
41 $stats = mem_stats($sock, "slabs");
44 $stats = mem_stats($sock);
49 print $sock "cache_memlimit 16\r\n";
50 is(scalar <$sock>, "OK\r\n", "bumped maxbytes from 8m to 16m");
52     print $sock "set key$key 0 0 66560\r\n$value\r\n";
53     is(scalar <$sock>, "STORED\r\n", "stored key$key");
57 $stats = mem_stats($sock, "slabs");
59 print $sock "cache_memlimit 8\r\n";
60 is(scalar <$sock>, "OK\r\n", "bumped maxbytes from 16m to 8m");
65     print $sock "delete key$key\r\n";
66     like(scalar <$sock>, qr/(DELETED|NOT_FOUND)\r\n/, "deleted key$key");
73     $stats = mem_stats($sock, "slabs");