Home
last modified time | relevance | path

Searched refs:sock (Results 1 – 25 of 59) sorted by relevance

123

/memcached-1.4.29/t/
H A Dflush-all.t10 my $sock = $server->sock;
16 mem_get_is($sock, "foo", "fooval");
17 print $sock "flush_all\r\n";
19 mem_get_is($sock, "foo", undef);
26 print $sock "flush_all 0\r\n";
28 mem_get_is($sock, "foo", undef);
60 $sock = $server->sock;
66 print $sock "flush_all\r\n";
75 $sock = $server->sock;
82 my $foo = scalar <$sock>;
[all …]
H A Dincrdecr.t10 my $sock = $server->sock;
15 print $sock "incr bug21 1\r\n";
17 print $sock "incr bug21 1\r\n";
19 print $sock "decr bug21 1\r\n";
26 print $sock "incr num 1\r\n";
28 mem_get_is($sock, "num", 2);
30 print $sock "incr num 8\r\n";
32 mem_get_is($sock, "num", 10);
34 print $sock "decr num 1\r\n";
37 print $sock "decr num 9\r\n";
[all …]
H A Dcas.t11 my $sock = $server->sock;
23 my $s = $svr->sock;
36 print $sock "gets foo\r\n";
44 @result = mem_gets($sock, "foo");
52 @result = mem_gets($sock, "foo");
64 print $sock "delete foo\r\n";
85 print $sock "gets foo1\r\n";
92 print $sock "gets foo2\r\n";
127 my $res1 = <$sock>;
141 print $sock "gets bug15\r\n";
[all …]
H A Dstats-detail.t10 my $sock = $server->sock;
13 print $sock "stats detail dump\r\n";
16 print $sock "stats detail on\r\n";
22 print $sock "stats detail dump\r\n";
27 print $sock "stats detail dump\r\n";
31 mem_get_is($sock, "foo:124", undef);
33 print $sock "stats detail dump\r\n";
37 print $sock "delete foo:125\r\n";
40 print $sock "stats detail dump\r\n";
44 print $sock "stats reset\r\n";
[all …]
H A Dgetset.t11 my $sock = $server->sock;
15 print $sock "set foo 0 0 6\r\nfooval\r\n";
17 mem_get_is($sock, "foo", "fooval");
22 mem_get_is($sock, "bar", "barval");
27 mem_get_is($sock, "foo", "fooval");
38 print $sock "delete foo\r\n";
42 print $sock "delete foo\r\n";
49 mem_get_is($sock, "moo", "mooval");
56 print $sock "gets moo\r\n";
69 is(scalar <$sock>, "STORED\r\n");
[all …]
H A Dstats.t10 my $sock = $server->sock;
24 my $stats = mem_stats($sock);
43 my $stats = mem_stats($sock);
52 print $sock "delete foo\r\n";
55 my $stats = mem_stats($sock);
59 print $sock "delete foo\r\n";
62 my $stats = mem_stats($sock);
78 print $sock "incr i 1\r\n";
82 print $sock "decr d 1\r\n";
89 print $sock "incr n 3\r\n";
[all …]
H A Dlru-crawler.t16 my $sock = $server->sock;
41 print $sock "lru_crawler enable\r\n";
48 print $sock "lru_crawler crawl 1\r\n";
51 my $stats = mem_stats($sock);
64 mem_get_is($sock, "ifoo$_", "ok");
65 mem_get_is($sock, "lfoo$_", "ok");
66 mem_get_is($sock, "sfoo$_", undef);
69 print $sock "lru_crawler disable\r\n";
80 $sock = $server->sock;
89 print $sock "lru_crawler crawl 1\r\n";
[all …]
H A Dchunked-items.t13 my $sock = $server->sock;
28 mem_get_is($sock, "pattern", $pattern);
34 my $res = <$sock>;
79 print $sock "get appender\r\n";
80 my $header = scalar <$sock>;
81 my $body = scalar <$sock>;
82 my $end = scalar <$sock>;
91 print $sock "delete appender\r\n";
109 my $header = scalar <$sock>;
110 my $body = scalar <$sock>;
[all …]
H A Dnoreply.t11 my $sock = $server->sock;
15 print $sock "flush_all noreply\r\n";
16 print $sock "flush_all 0 noreply\r\n";
18 print $sock "verbosity 0 noreply\r\n";
21 mem_get_is($sock, "noreply:foo", "1");
24 mem_get_is($sock, "noreply:foo", "2");
27 mem_get_is($sock, "noreply:foo", "3");
30 mem_get_is($sock, "noreply:foo", "34");
37 mem_get_is($sock, "noreply:foo", "6");
40 mem_get_is($sock, "noreply:foo", "9");
[all …]
H A Dexpirations.t10 my $sock = $server->sock;
31 print $sock "set foo 0 1 6\r\nfooval\r\n";
32 is(scalar <$sock>, "STORED\r\n", "stored foo");
34 mem_get_is($sock, "foo", "fooval");
36 mem_get_is($sock, "foo", undef);
46 mem_get_is($sock, "foo", "foov+1");
55 print $sock "add add 0 2 6\r\naddval\r\n";
57 mem_get_is($sock, "add", "addval");
59 print $sock "add add 0 2 7\r\naddval2\r\n";
62 print $sock "add add 0 2 7\r\naddval3\r\n";
[all …]
H A Dissue_3.t10 my $sock = $server->sock;
13 print $sock "delete $key\r\n";
16 print $sock "delete $key 10\r\n";
20 print $sock "add $key 0 0 1\r\nx\r\n";
27 print $sock "add $key 0 0 1\r\nx\r\n";
30 print $sock "delete $key noreply\r\n";
33 print $sock "set $key 0 0 1\r\nx\r\n";
36 print $sock "delete $key\r\n";
39 print $sock "set $key 0 0 1\r\nx\r\n";
42 print $sock "delete $key noreply\r\n";
[all …]
H A Dlru-maintainer.t10 my $sock = $server->sock;
13 print $sock "set ifoo$_ 0 1 2\r\nok\r\n";
20 my $stats = mem_stats($sock);
42 mem_get_is($sock, "canary", $value);
49 my $stats = mem_stats($sock);
51 my $istats = mem_stats($sock, "items");
56 mem_get_is($sock, "canary", $value);
60 $sock = $server->sock;
71 my $stats = mem_stats($sock, "items");
84 my $stats = mem_stats($sock, "items");
[all …]
H A Ddyn-maxbytes.t11 my $sock = $server->sock;
21 my $stats = mem_stats($sock);
26 $stats = mem_stats($sock, "settings");
28 print $sock "cache_memlimit 8\r\n";
32 $stats = mem_stats($sock, "settings");
36 $stats = mem_stats($sock, "slabs");
41 $stats = mem_stats($sock, "slabs");
44 $stats = mem_stats($sock);
49 print $sock "cache_memlimit 16\r\n";
57 $stats = mem_stats($sock, "slabs");
[all …]
H A Dslabs_reassign.t12 my $stats = mem_stats($server->sock, ' settings');
15 my $sock = $server->sock;
21 is(scalar <$sock>, "STORED\r\n", "stored key");
31 my $items_before = mem_stats($sock, "items");
35 my $slabs_before = mem_stats($sock, "slabs");
37 print $sock "slabs reassign 31 25\r\n";
44 my $slabs_after = mem_stats($sock, "slabs");
45 $stats = mem_stats($sock);
56 print $sock "slabs reassign 31 25\r\n";
68 is(scalar <$sock>, "STORED\r\n", "stored key");
[all …]
H A Dslabs-reassign2.t12 my $sock = $server->sock;
24 my $stats = mem_stats($sock);
58 print $sock "get ifoo$_\r\n";
59 my $body = scalar(<$sock>);
64 $body .= scalar(<$sock>) . scalar(<$sock>);
75 my $stats = mem_stats($sock);
97 my $res = <$sock>;
99 my $s = mem_stats($sock);
108 print $sock "flush_all\r\n";
113 my $stats = mem_stats($sock);
[all …]
H A Dissue_260.t19 my $sock = $server->sock;
30 print $sock "set big 0 0 $len\r\n$big\r\n";
32 mem_get_is($sock, "big", $big);
35 my $stats = mem_stats($sock);
45 my $stats = mem_stats($sock);
50 mem_get_is($sock, "big", undef);
54 mem_get_is($sock, "item_$i", undef);
59 mem_get_is($sock, "item_$i", $big);
68 my $stats = mem_stats($sock);
73 mem_get_is($sock, "sitem_0", undef);
[all …]
H A Dslabs-reassign-chunked.t11 my $sock = $server->sock;
44 my $stats = mem_stats($sock);
62 my $res = scalar <$sock>;
78 my $stats = mem_stats($sock);
87 my $body = scalar(<$sock>);
92 $body .= scalar(<$sock>) . scalar(<$sock>);
110 print $sock "get ifoo$_\r\n";
111 my $body = scalar(<$sock>);
116 $body .= scalar(<$sock>) . scalar(<$sock>);
127 my $stats = mem_stats($sock);
[all …]
H A Dissue_163.t10 my $sock = $server->sock;
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");
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");
29 print $sock "delete key\r\n";
32 print $sock "set key 0 0 66560\r\n$value1\r\n";
33 is (scalar <$sock>, "STORED\r\n", "stored key");
[all …]
H A Dlru.t11 my $sock = $server->sock;
23 print $sock "set too_big 0 0 $len\r\n$too_big\r\n";
28 print $sock "set big 0 0 $len\r\n$big\r\n";
29 is(scalar <$sock>, "STORED\r\n", "stored big");
30 mem_get_is($sock, "big", $big);
33 my $stats = mem_stats($sock);
38 print $sock "set item_$i 0 0 $len\r\n$big\r\n";
43 my $stats = mem_stats($sock);
48 mem_get_is($sock, "big", undef);
52 mem_get_is($sock, "item_$i", undef);
[all …]
H A Dissue_108.t10 my $sock = $server->sock;
13 print $sock "add $key 0 0 1\r\nx\r\n";
14 is (scalar <$sock>, "STORED\r\n", "Added a key");
16 print $sock "delete $key 0\r\n";
17 is (scalar <$sock>, "DELETED\r\n", "Properly deleted with 0");
19 print $sock "add $key 0 0 1\r\nx\r\n";
20 is (scalar <$sock>, "STORED\r\n", "Added again a key");
22 print $sock "delete $key 0 noreply\r\n";
25 print $sock "add $key 0 0 1\r\nx\r\n";
26 is (scalar <$sock>, "STORED\r\n", "Add succeeded after quiet deletion.");
H A Dissue_140.t14 my $sock = $server->sock;
16 print $sock "set a 0 0 1\r\na\r\n";
17 is (scalar <$sock>, "STORED\r\n", "stored key");
19 my $stats = mem_stats($sock, "items");
23 print $sock "flush_all\r\n";
24 is (scalar <$sock>, "OK\r\n", "items flushed");
26 my $stats = mem_stats($sock, "items");
30 print $sock "set a 0 1 1\r\na\r\n";
31 is (scalar <$sock>, "STORED\r\n", "stored key");
33 my $stats = mem_stats($sock, "items");
[all …]
H A Dissue_70.t10 my $sock = $server->sock;
12 print $sock "set issue70 0 0 0\r\n\r\n";
13 is (scalar <$sock>, "STORED\r\n", "stored issue70");
15 print $sock "set issue70 0 0 -1\r\n";
16 is (scalar <$sock>, "CLIENT_ERROR bad command line format\r\n");
18 print $sock "set issue70 0 0 4294967295\r\n";
19 is (scalar <$sock>, "CLIENT_ERROR bad command line format\r\n");
21 print $sock "set issue70 0 0 2147483647\r\nscoobyscoobydoo";
22 is (scalar <$sock>, "CLIENT_ERROR bad command line format\r\n");
/memcached-1.4.29/devtools/
H A Dbench_noreply.pl20 die "$!\n" unless $sock;
33 scalar<$sock> unless $noreply;
35 scalar<$sock> unless $noreply;
37 scalar<$sock> unless $noreply;
39 scalar<$sock> unless $noreply;
41 scalar<$sock> unless $noreply;
42 print $sock "incr foo 1 $param\r\n";
43 scalar<$sock> unless $noreply;
44 print $sock "decr foo 1 $param\r\n";
45 scalar<$sock> unless $noreply;
[all …]
/memcached-1.4.29/scripts/
H A Dmemcached-tool63 my $sock;
85 while (<$sock>) {
100 while (<$sock>) {
119 $_ = <$sock>;
120 $_ = <$sock>;
130 print $sock "stats\r\n";
132 while (<$sock>) {
152 while (<$sock>) {
172 while (<$sock>) {
194 while (<$sock>) {
[all …]
/memcached-1.4.29/t/lib/
H A DMemcachedTest.pm28 while (<$sock>) {
41 my $sock = ref $sock_opts eq "HASH" ? $opts->{sock} : $sock_opts;
51 $line .= scalar(<$sock>) . scalar(<$sock>);
62 $body .= scalar(<$sock>) . scalar(<$sock>);
71 my $sock = ref $sock_opts eq "HASH" ? $opts->{sock} : $sock_opts;
99 my $sock = ref $sock_opts eq "HASH" ? $opts->{sock} : $sock_opts;
109 $line .= scalar(<$sock>) . scalar(<$sock>);
120 $body .= scalar(<$sock>) . scalar(<$sock>);
127 my $sock;
129 while (!$sock) {
[all …]

123