| /memcached-1.6.32/t/ |
| D | binary.t | 78 my $key = shift; 87 $empty->($key); 322 $empty->($key); 336 $empty->($key); 339 $empty->($key); 346 $empty->($key); 358 $empty->($key); 619 $empty->($key); 726 my $key = shift; 749 my $key = shift; [all …]
|
| D | stress-memcached.pl | 61 my $key = key($i); 62 my $set = $memc->set($key, $key); 68 my $key = key($rand); 74 $memc->add($key, $key, $exp); 77 $memc->delete($key); 80 $memc->set($key, $key, $exp); 84 $key = key($rand); 86 my $v = $memc->get($key); 88 if ($v && $v ne $key) { die "Bogus: $v for key $rand\n"; } 92 my $multi = $memc->get_multi(map { key(int(rand($max))) } (1..$max)); [all …]
|
| D | issue_3.t | 11 my $key = "del_key"; 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 …]
|
| D | dyn-maxbytes.t | 13 my $key = 0; 16 for ($key = 0; $key < 40; $key++) { 17 print $sock "set key$key 0 0 66560\r\n$value\r\n"; 18 is(scalar <$sock>, "STORED\r\n", "stored key$key"); 51 for (;$key < 150; $key++) { 52 print $sock "set key$key 0 0 66560\r\n$value\r\n"; 53 is(scalar <$sock>, "STORED\r\n", "stored key$key"); 64 for ($key = 0; $key < 150; $key++) { 65 print $sock "delete key$key\r\n"; 66 like(scalar <$sock>, qr/(DELETED|NOT_FOUND)\r\n/, "deleted key$key");
|
| D | evictions.t | 13 my $key = 0; 16 for ($key = 0; $key < 40; $key++) { 17 print $sock "set key$key 0 0 66560\r\n$value\r\n"; 18 is(scalar <$sock>, "STORED\r\n", "stored key$key"); 22 for ($key = 0; $key < 50; $key++) { 23 print $sock "set key$key 0 600 66560\r\n$value\r\n"; 24 is(scalar <$sock>, "STORED\r\n", "stored key$key");
|
| D | issue_14.t | 12 my $key = 0; 14 for ($key = 0; $key < 10; $key++) { 15 print $sock "set key$key 0 2 66560\r\n$value\r\n"; 16 is (scalar <$sock>, "STORED\r\n", "stored key$key"); 25 for ($key = 10; $key < 20; $key++) { 26 print $sock "set key$key 0 2 66560\r\n$value\r\n"; 27 is (scalar <$sock>, "STORED\r\n", "stored key$key");
|
| D | proxyunits.lua | 184 local key = r:key() 191 local key = r:key() 208 local key = r:key() 229 local key = r:key() 294 local key = r:key() 316 local key = r:key() 348 local key = r:key() 359 local key = r:key() 371 local key = r:key() 386 local key = r:key() [all …]
|
| D | binary-extstore.t | 77 for my $key (keys %s) { 102 my $key = shift; 109 my ($key, $when) = @_; 110 $mc->delete($key, $when); 111 $empty->($key); 340 $empty->($key); 447 my $key = shift; 470 my $key = shift; 507 my ($key, $expire) = @_; 515 my $key = shift; [all …]
|
| D | refhang.t | 22 my $key = 0; 26 for ($key = 0; $key < 120; $key++) { 27 $mget .= "key$key " if $key < 115; 28 print $sock "set key$key 0 0 66560\r\n$value\r\n"; 29 is(scalar <$sock>, "STORED\r\n", "stored key$key"); 48 for ($key = 121; $key < 240; $key++) { 49 print $sock "set key$key 0 0 66560\r\n$value\r\n";
|
| D | issue_22.t | 12 my $key = 0; 14 for ($key = 0; $key < 40; $key++) { 15 print $sock "set key$key 0 0 66560\r\n$value\r\n"; 16 is (scalar <$sock>, "STORED\r\n", "stored key$key"); 32 for ($key = 40; $key < 80; $key++) { 33 print $sock "set key$key 0 0 66560\r\n$value\r\n"; 34 is (scalar <$sock>, "STORED\r\n", "stored key$key");
|
| D | dash-M.t | 16 my $key = 0; 19 print $sock "set dash$key 0 0 $vallen\r\n$value\r\n"; 20 $key++; 24 my $max_stored = $key - 1; 28 print $sock "set dash$key 0 0 $vallen\r\n$value\r\n"; 36 for($key = 0; $key < $max_stored; $key++) { 37 mem_get_is $sock, "dash$key", $value, "Failed at dash$key";
|
| D | udp.t | 92 my $key_len = length($key); 97 $req .= $extra . $key . $value; 114 my $key_len = length($key); 119 $req = "get $key\r\n"; 122 $req .= $key; 149 my $key_len = length($key); 152 $req = "delete $key\r\n"; 155 $req .= $key; 173 my $key_len = length($key); 186 $req = "$acmd $key $val\r\n"; [all …]
|
| D | binary-sasl.t | 100 my ($key, $orig_val) = @_; 115 $check->($key, $orig_value); 119 my $key = shift; 133 my ($key, $when) = @_; 134 $mc->delete($key, $when); 135 $empty->($key); 400 $empty->($key); 403 $check->($key, $value); 491 my $key = shift; 515 my $key = shift; [all …]
|
| D | slabhang.t | 21 my $key = 0; 29 for ($key = 0; $key < 70; $key++) { 30 $mget .= "key$key "; 31 print $sock "set key$key 0 0 260144\r\n$value\r\n"; 32 is(scalar <$sock>, "STORED\r\n", "stored key$key"); 41 for my $key (keys %$stats) { 42 if ($key =~ m/^(\d+):total_pages/) { 44 if ($stats->{$key} > 10) {
|
| D | lru-maintainer.t | 45 for (my $key = 0; $key < 100; $key++) { 46 if ($key == 30) { 74 print $sock "set key$key 0 0 66560\r\n$value\r\n"; 75 is(scalar <$sock>, "STORED\r\n", "stored key$key"); 106 for (my $key = 0; $key < 100; $key++) { 107 print $sock "set key$key 0 3600 66560\r\n$value\r\n"; 108 is(scalar <$sock>, "STORED\r\n", "stored key$key");
|
| D | issue_68.t | 13 my $key = "x" x $keyi; 14 print $sock "set $key 0 0 1\r\n9\r\n"; 15 is (scalar <$sock>, "STORED\r\n", "stored $key"); 16 mem_get_is($sock, $key, "9"); 17 print $sock "incr $key 1\r\n"; 18 is (scalar <$sock>, "10\r\n", "incr $key to 10"); 19 mem_get_is($sock, $key, "10");
|
| D | issue_108.t | 11 my $key = "del_key"; 13 print $sock "add $key 0 0 1\r\nx\r\n"; 16 print $sock "delete $key 0\r\n"; 19 print $sock "add $key 0 0 1\r\nx\r\n"; 22 print $sock "delete $key 0 noreply\r\n"; 25 print $sock "add $key 0 0 1\r\nx\r\n";
|
| D | ssl_cert_refresh.t | 19 my $key = File::Temp->new()->filename; 23 my $key_back = $key . ".bak"; 27 copy("t/" . MemcachedTest::SRV_KEY, $key); 32 my $server = new_memcached("-o ssl_ca_cert=$ca_cert -o ssl_chain_cert=$cert -o ssl_key=$key"); 45 copy($key, $key_back) or die "Key backup failed: $!"; 48 copy($new_cert_key, $key) or die "New key copy failed: $!"; 71 move($key_back, $key) or die "Key restore failed: $!"; 92 unlink $key if $key;
|
| D | proxymut.lua | 64 local key = r:key() 67 if key == "mgreq" then 70 elseif key == "mgflagreq" then 73 elseif key == "mgres" then 76 elseif key == "mgresval" then 79 elseif key == "mgresflag" then 91 local key = r:key()
|
| D | issue_42.t | 12 my $key = 0; 15 for ($key = 0; $key < $key_count; $key++) { 16 print $sock "set key$key 0 0 10\r\n$value\r\n"; 17 is (scalar <$sock>, "STORED\r\n", "stored key$key");
|
| D | proxyins.lua | 42 local key = r:key() 43 if key == "sepkey/baz" then 46 elseif key == "sepkey/nomap" then 49 elseif key == "sepkey/one/two" then 52 elseif key == "sepkey/two/three" then 95 local key = r:key() 97 if key == "reshasf/flagis" then 100 elseif key == "reshasf/tokenint" then 104 elseif key == "reshasf/reqhasf" then
|
| D | proxyrouter.t | 148 for my $key (keys %$a) { 151 if (! exists $b->{$key}) { 152 fail("func stat gone missing: $key"); 154 if ($a->{$key} != $b->{$key}) { 155 cmp_ok($b->{$key}, '==', $a->{$key}, "func stat for $key");
|
| D | error-extstore.t | 32 for my $key (keys %$s) { 33 if ($key =~ m/items:(\d+):number/) { 36 $sum += $s->{$key}; 91 for my $key (grep { /total_pages/ } keys %$stats) { 92 if ($key =~ m/(\d+):total_pages/) { 94 $source = $1 if $stats->{$key} > 1;
|
| /memcached-1.6.32/ |
| D | memcached_dtrace.d | 108 probe assoc__find(const char *key, int keylen, int depth); 115 probe assoc__insert(const char *key, int keylen); 122 probe assoc__delete(const char *key, int keylen); 130 probe item__link(const char *key, int keylen, int size); 138 probe item__unlink(const char *key, int keylen, int size); 146 probe item__remove(const char *key, int keylen, int size); 154 probe item__update(const char *key, int keylen, int size); 192 probe command__get(int connid, const char *key, int keylen, int size, int64_t casid); 277 probe command__incr(int connid, const char *key, int keylen, int64_t val); 286 probe command__decr(int connid, const char *key, int keylen, int64_t val); [all …]
|
| D | stats_prefix.c | 37 PREFIX_STATS *stats_prefix_find(const char *key, const size_t nkey) { in stats_prefix_find() argument 43 assert(key != NULL); in stats_prefix_find() 45 for (length = 0; length < nkey && key[length] != '\0'; length++) { in stats_prefix_find() 46 if (key[length] == prefix_delimiter) { in stats_prefix_find() 56 hashval = hash(key, length) % PREFIX_HASH_SIZE; in stats_prefix_find() 59 if (strncmp(pfs->prefix, key, length) == 0) in stats_prefix_find() 76 strncpy(pfs->prefix, key, length); in stats_prefix_find() 93 pfs = stats_prefix_find(key, nkey); in stats_prefix_record_get() 107 pfs = stats_prefix_find(key, nkey); in stats_prefix_record_delete() 114 void stats_prefix_record_set(const char *key, const size_t nkey) { in stats_prefix_record_set() argument [all …]
|