Lines Matching refs:sock

24 my $sock = $server->sock;
30         my $s = mem_stats($sock, "items");
56     print $sock "set foo$_ 0 0 $size\r\n$data\r\n";
57     my $res = <$sock>;
65     print $sock "get foo1 foo2 foo3 $long_key\r\n";
66     ok(scalar <$sock> =~ /CLIENT_ERROR bad command line format/, 'long key fails');
67     my $stats = mem_stats($sock);
76     mem_get_is($sock, "foo1", $data);
82     print $sock "slabs automove 0\r\n";
83     my $res = <$sock>;
86         print $sock "slabs reassign $source 1\r\n";
87         $res = <$sock>;
90             my $stats = mem_stats($sock, 'slabs');
105     print $sock "get foo1\r\n";
106     my $res = <$sock>;
109     my $stats = mem_stats($sock);
119         print $sock "slabs reassign 1 39\r\n";
120         my $res = <$sock>;
129         print $sock "get foo1 foo2 foo3 $long_key\r\n";
130         my $res = <$sock>;