-
Notifications
You must be signed in to change notification settings - Fork 55
Commit
This commit does not belong to any branch on this repository, and may belong to a fork outside of the repository.
add touch command with test file and docs
- Loading branch information
1 parent
f1995f0
commit 0d22499
Showing
5 changed files
with
164 additions
and
0 deletions.
There are no files selected for viewing
This file contains bidirectional Unicode text that may be interpreted or compiled differently than what appears below. To review, open the file in an editor that reveals hidden Unicode characters.
Learn more about bidirectional Unicode characters
This file contains bidirectional Unicode text that may be interpreted or compiled differently than what appears below. To review, open the file in an editor that reveals hidden Unicode characters.
Learn more about bidirectional Unicode characters
This file contains bidirectional Unicode text that may be interpreted or compiled differently than what appears below. To review, open the file in an editor that reveals hidden Unicode characters.
Learn more about bidirectional Unicode characters
Original file line number | Diff line number | Diff line change |
---|---|---|
|
@@ -102,3 +102,4 @@ | |
./t/nested_prefix.t | ||
./t/keyscan.t | ||
./t/prefixscan.t | ||
./t/touch.t |
This file contains bidirectional Unicode text that may be interpreted or compiled differently than what appears below. To review, open the file in an editor that reveals hidden Unicode characters.
Learn more about bidirectional Unicode characters
Original file line number | Diff line number | Diff line change |
---|---|---|
|
@@ -95,3 +95,4 @@ | |
./t/nested_prefix.t | ||
./t/keyscan.t | ||
./t/prefixscan.t | ||
./t/touch.t |
This file contains bidirectional Unicode text that may be interpreted or compiled differently than what appears below. To review, open the file in an editor that reveals hidden Unicode characters.
Learn more about bidirectional Unicode characters
Original file line number | Diff line number | Diff line change |
---|---|---|
@@ -0,0 +1,91 @@ | ||
#!/usr/bin/perl | ||
|
||
use strict; | ||
use Test::More tests => 22; | ||
use FindBin qw($Bin); | ||
use lib "$Bin/lib"; | ||
use MemcachedTest; | ||
|
||
my $engine = shift; | ||
my $server = get_memcached($engine); | ||
my $sock = $server->sock; | ||
|
||
my $cmd; | ||
my $val; | ||
my $rst; | ||
my $expire; | ||
|
||
# Initialize | ||
$cmd = "set key 0 0 5"; $val = "datum"; $rst = "STORED"; | ||
mem_cmd_is($sock, $cmd, $val, $rst); | ||
$cmd = "lop create lkey 0 0 1 error"; $rst = "CREATED"; | ||
mem_cmd_is($sock, $cmd, "", $rst); | ||
$cmd = "sop create skey 0 0 1 error"; $rst = "CREATED"; | ||
mem_cmd_is($sock, $cmd, "", $rst); | ||
$cmd = "mop create mkey 0 0 1 error"; $rst = "CREATED"; | ||
mem_cmd_is($sock, $cmd, "", $rst); | ||
$cmd = "bop create bkey 0 0 1 error"; $rst = "CREATED"; | ||
mem_cmd_is($sock, $cmd, "", $rst); | ||
|
||
# Success Cases | ||
# key value | ||
$cmd = "touch key 1"; $rst = "TOUCHED"; | ||
mem_cmd_is($sock, $cmd, "", $rst); | ||
$cmd = "getattr key expiretime"; | ||
$rst = "ATTR expiretime=1\n" | ||
. "END"; | ||
mem_cmd_is($sock, $cmd, "", $rst); | ||
# list | ||
$cmd = "touch lkey 1"; $rst = "TOUCHED"; | ||
mem_cmd_is($sock, $cmd, "", $rst); | ||
$cmd = "getattr lkey expiretime"; | ||
$rst = "ATTR expiretime=1\n" | ||
. "END"; | ||
mem_cmd_is($sock, $cmd, "", $rst); | ||
# set | ||
$cmd = "touch skey 1"; $rst = "TOUCHED"; | ||
mem_cmd_is($sock, $cmd, "", $rst); | ||
$cmd = "getattr skey expiretime"; | ||
$rst = "ATTR expiretime=1\n" | ||
. "END"; | ||
mem_cmd_is($sock, $cmd, "", $rst); | ||
# map | ||
$cmd = "touch mkey 1"; $rst = "TOUCHED"; | ||
mem_cmd_is($sock, $cmd, "", $rst); | ||
$cmd = "getattr mkey expiretime"; | ||
$rst = "ATTR expiretime=1\n" | ||
. "END"; | ||
mem_cmd_is($sock, $cmd, "", $rst); | ||
#btree | ||
$cmd = "touch bkey 1"; $rst = "TOUCHED"; | ||
mem_cmd_is($sock, $cmd, "", $rst); | ||
$cmd = "getattr bkey expiretime"; | ||
$rst = "ATTR expiretime=1\n" | ||
. "END"; | ||
mem_cmd_is($sock, $cmd, "", $rst); | ||
# set with unix time | ||
$cmd = "set key 0 0 5"; $val = "datum"; $rst = "STORED"; | ||
mem_cmd_is($sock, $cmd, $val, $rst); | ||
$expire = time() + 1; | ||
$cmd = "touch key $expire"; $rst = "TOUCHED"; | ||
mem_cmd_is($sock, $cmd, "", $rst); | ||
$cmd = "getattr key expiretime"; | ||
$rst = "ATTR expiretime=1\n" | ||
. "END"; | ||
mem_cmd_is($sock, $cmd, "", $rst); | ||
|
||
# Fail Cases | ||
# bad value | ||
$cmd = "set key 0 0 5"; $val = "datum"; $rst = "STORED"; | ||
mem_cmd_is($sock, $cmd, $val, $rst); | ||
$cmd = "touch key str"; $rst = "CLIENT_ERROR bad value"; | ||
mem_cmd_is($sock, $cmd, "", $rst); | ||
# not exist key | ||
$cmd = "touch key 1"; $rst = "TOUCHED"; | ||
mem_cmd_is($sock, $cmd, "", $rst); | ||
sleep(1.2); | ||
$cmd = "touch key 1"; $rst = "NOT_FOUND"; | ||
mem_cmd_is($sock, $cmd, "", $rst); | ||
|
||
# after test | ||
release_memcached($engine, $server); |