mirror of https://github.com/ledisdb/ledisdb.git
update test code
This commit is contained in:
holys
parent
e8cb0ba612
commit
3c8fd575d5
|
|
@ -1,5 +1,16 @@
|
|||
--[[
|
||||
Stupid test codes for ledis.lua. Running based on openresty configuration file.
|
||||
Remember setting up your `lua_package_path`.
|
||||
|
||||
location = /test {
|
||||
default_type "application/json";
|
||||
content_by_lua_file /path/to/ledis_test.lua;
|
||||
}
|
||||
|
||||
Then use `curl` or other http clients to see the output.
|
||||
--]]
|
||||
|
||||
local ledis = require "ledis"
|
||||
local cjson = require "cjson"
|
||||
local lds = ledis:new()
|
||||
|
||||
lds:set_timeout(1000)
|
||||
|
|
@ -11,7 +22,6 @@ if not ok then
|
|||
return
|
||||
end
|
||||
|
||||
|
||||
function cleanUp()
|
||||
lds:del("mykey", "key1", "key2", "key3", "non_exists_key")
|
||||
lds:hmclear("myhash", "myhash1", "myhash2")
|
||||
|
|
@ -22,7 +32,6 @@ end
|
|||
|
||||
cleanUp()
|
||||
|
||||
|
||||
ngx.say("======================= K/V =====================\n")
|
||||
|
||||
--[[KV]]--
|
||||
|
|
@ -39,7 +48,6 @@ ngx.say("DECR, should be: -1 <=> ", res)
|
|||
lds:del("mykey")
|
||||
|
||||
-- decrby
|
||||
|
||||
local res, err = lds:decrby("mykey", 10)
|
||||
if not res then
|
||||
ngx.say("failed to decrby:", err)
|
||||
|
|
@ -50,7 +58,6 @@ ngx.say("DECRBY, should be: -10 <=> ", res)
|
|||
lds:del("mykey")
|
||||
|
||||
-- del
|
||||
|
||||
lds:set("key1", "foo")
|
||||
lds:set("key2", "bar")
|
||||
local res, err = lds:del("key1", "key2")
|
||||
|
|
@ -62,7 +69,6 @@ end
|
|||
ngx.say("DEL, should be: 2 <=> 2")
|
||||
|
||||
--exists
|
||||
|
||||
lds:set("mykey", "foo")
|
||||
res, err = lds:exists("mykey")
|
||||
if not res then
|
||||
|
|
@ -81,9 +87,7 @@ end
|
|||
ngx.say("EXISTS, should be 0 <=>", res)
|
||||
lds:del("non_exists_key")
|
||||
|
||||
|
||||
-- get
|
||||
|
||||
lds:set("mykey", "foo")
|
||||
res, err = lds:get("mykey")
|
||||
if not res then
|
||||
|
|
@ -94,9 +98,7 @@ end
|
|||
ngx.say("GET, should be foo <=> ", res)
|
||||
lds:del("mykey")
|
||||
|
||||
|
||||
-- getset
|
||||
|
||||
lds:set("mykey", "foo")
|
||||
res, err = lds:getset("mykey", "bar")
|
||||
if not res then
|
||||
|
|
@ -110,7 +112,6 @@ ngx.say("GET, should be bar <=>", res)
|
|||
lds:del("mykey")
|
||||
|
||||
-- incr
|
||||
|
||||
lds:set("mykey", "10")
|
||||
res, err = lds:incr("mykey")
|
||||
if not res then
|
||||
|
|
@ -122,7 +123,6 @@ ngx.say("INCR should be 11 <=>", res)
|
|||
lds:del("mykey")
|
||||
|
||||
-- incrby
|
||||
|
||||
lds:set("mykey", "10")
|
||||
res, err = lds:incrby("mykey", 10)
|
||||
if not res then
|
||||
|
|
@ -146,7 +146,6 @@ ngx.say("MGET should be foobar <=>", res)
|
|||
lds:del("key1", "key2")
|
||||
|
||||
-- mset
|
||||
|
||||
res, err = lds:mset("key1", "foo", "key2", "bar")
|
||||
if not res then
|
||||
ngx.say("failed to command ", err)
|
||||
|
|
@ -181,7 +180,6 @@ ngx.say("setnx should be 0 <=>", res)
|
|||
lds:del("mykey")
|
||||
|
||||
-- expire
|
||||
|
||||
lds:set("mykey", "foo")
|
||||
res, err = lds:expire("mykey", 60)
|
||||
if not res then
|
||||
|
|
@ -192,7 +190,6 @@ end
|
|||
ngx.say("EXPIRE should be 1 <=> ", res)
|
||||
lds:del("mykey")
|
||||
|
||||
|
||||
-- expireat
|
||||
lds:set("mykey", "foo")
|
||||
res, err = lds:expire("mykey", 14366666666)
|
||||
|
|
@ -205,7 +202,6 @@ ngx.say("EXPIREAT 1 <=>", res)
|
|||
lds:del("mykey")
|
||||
|
||||
-- ttl
|
||||
|
||||
lds:set("mykey", "foo")
|
||||
lds:expire("mykey", 100)
|
||||
res, err = lds:ttl("mykey")
|
||||
|
|
@ -222,7 +218,6 @@ ngx.say("TTL ", res)
|
|||
lds:del("mykey")
|
||||
|
||||
-- persist
|
||||
|
||||
lds:set("mykey", "foo")
|
||||
lds:expire("mykey", 100)
|
||||
res, err = lds:persist("mykey")
|
||||
|
|
@ -235,12 +230,11 @@ end
|
|||
ngx.say("PERSIST should be 1 <=>", res)
|
||||
lds:del("mykey")
|
||||
|
||||
-- [[ HASH ]]
|
||||
|
||||
ngx.say("\n=================== HASH =====================\n")
|
||||
|
||||
-- hdel
|
||||
-- [[ HASH ]]
|
||||
|
||||
-- hdel
|
||||
res, err = lds:hset("myhash", "field", "foo")
|
||||
if not res then
|
||||
ngx.say("failed to HDEL", err)
|
||||
|
|
@ -294,7 +288,6 @@ ngx.say("HINCRBY should be 1 <=>", res)
|
|||
lds:hclear("myhash")
|
||||
|
||||
-- hkeys
|
||||
|
||||
lds:hmset("myhash", "field1", "foo", "field2", "bar")
|
||||
res, err = lds:hkeys("myhash")
|
||||
if not res then
|
||||
|
|
@ -305,9 +298,7 @@ end
|
|||
ngx.say("HKEYS should be field1field2 <=> ", res)
|
||||
lds:hclear("myhash")
|
||||
|
||||
|
||||
-- hlen
|
||||
|
||||
lds:hset("myhash", "field", "foo")
|
||||
res, err = lds:hlen("myhash")
|
||||
if not res then
|
||||
|
|
@ -318,9 +309,7 @@ end
|
|||
ngx.say("HLEN should be 1 <=>", res)
|
||||
lds:hclear("myhash")
|
||||
|
||||
|
||||
-- hmget
|
||||
|
||||
lds:hmset("myhash", "field1", "foo", "field2", "bar")
|
||||
res, err = lds:hmget("myhash", "field1", "field2")
|
||||
if not res then
|
||||
|
|
@ -331,10 +320,7 @@ end
|
|||
ngx.say("HMGET should be foobar <=>", res)
|
||||
lds:hclear("myhash")
|
||||
|
||||
|
||||
|
||||
-- hmset
|
||||
|
||||
res, err = lds:hmset("myhash", "field1", "foo", "field2", "bar")
|
||||
if not res then
|
||||
ngx.say("failed to HMSET ", err)
|
||||
|
|
@ -350,7 +336,6 @@ end
|
|||
|
||||
res, err = lds:hclear("myhash")
|
||||
|
||||
|
||||
-- hset
|
||||
res, err = lds:hset("myhash", "field", "foo")
|
||||
if not res then
|
||||
|
|
@ -370,26 +355,19 @@ if not res then
|
|||
end
|
||||
|
||||
ngx.say("HVALS should be foo <=>", res)
|
||||
lds:hvals("myhash")
|
||||
lds:hclear("myhash")
|
||||
|
||||
-- hclear
|
||||
|
||||
--FIXME: why 3?
|
||||
|
||||
lds:hset("myhash", "field", "foo")
|
||||
lds:hmset("myhash", "field1", "foo", "field2", "bar")
|
||||
res, err = lds:hclear("myhash")
|
||||
|
||||
if not res then
|
||||
ngx.say("failed to HCLEAR", err)
|
||||
return
|
||||
end
|
||||
|
||||
ngx.say("HCLEAR should be 1 <=>", res)
|
||||
lds:hclear("myhash")
|
||||
|
||||
ngx.say("HCLEAR should be 2 <=>", res)
|
||||
|
||||
-- hmclear
|
||||
|
||||
lds:hset("myhash1", "field1", "foo")
|
||||
lds:hset("myhash2", "field2", "bar")
|
||||
res, err = lds:hmclear("myhash1", "myhash2")
|
||||
|
|
@ -400,7 +378,6 @@ end
|
|||
|
||||
ngx.say("HMCLEAR should be 2 <=>", res)
|
||||
|
||||
|
||||
-- hexpire
|
||||
lds:hset("myhash", "field", "foo")
|
||||
res, err = lds:hexpire("myhash", 100)
|
||||
|
|
@ -412,9 +389,7 @@ end
|
|||
ngx.say("HEXPIRE should be 1 <=>", res)
|
||||
lds:hclear("myhash")
|
||||
|
||||
|
||||
-- hexpireat
|
||||
|
||||
lds:hset("myhash", "field", "foo")
|
||||
res, err = lds:hexpireat("myhash", 14366666666)
|
||||
if not res then
|
||||
|
|
@ -425,7 +400,6 @@ end
|
|||
ngx.say("HEXPIREAT should be 1 <=>", res)
|
||||
lds:hclear("myhash")
|
||||
|
||||
|
||||
-- hpersist
|
||||
lds:hset("myhash", "field", "foo")
|
||||
lds:hexpire("myhash", 100)
|
||||
|
|
@ -505,10 +479,7 @@ end
|
|||
ngx.say("LRANGE should be one <=>", res)
|
||||
lds:lclear("mylist")
|
||||
|
||||
|
||||
|
||||
-- lpush
|
||||
|
||||
res, err = lds:lpush("mylist", "one", "two")
|
||||
if not res then
|
||||
ngx.say("failed to LPUSH ", err)
|
||||
|
|
@ -520,7 +491,6 @@ lds:lclear("mylist")
|
|||
|
||||
|
||||
-- rpop
|
||||
|
||||
lds:rpush("mylist", "one", "two")
|
||||
res, err = lds:rpop("mylist")
|
||||
if not res then
|
||||
|
|
@ -563,9 +533,7 @@ end
|
|||
ngx.say("LEXPIRE should be 1 <=>", res)
|
||||
lds:lclear("mylist")
|
||||
|
||||
|
||||
-- lexpireat
|
||||
|
||||
lds:rpush("mylist", "one")
|
||||
res, err = lds:lexpireat("mylist", 14366666666)
|
||||
if not res then
|
||||
|
|
@ -576,7 +544,6 @@ end
|
|||
ngx.say("LEXPIREAT should be 1 <=>", res)
|
||||
lds:lclear("mylist")
|
||||
|
||||
|
||||
-- lpersist
|
||||
lds:rpush("mylist", "one", "two")
|
||||
lds:lexpire("mylist", 100)
|
||||
|
|
@ -590,7 +557,6 @@ end
|
|||
ngx.say("LPERSIST should be 1 <=>", res)
|
||||
lds:hclear("mylist")
|
||||
|
||||
|
||||
--lttl
|
||||
lds:rpush("mylist", "field", "foo")
|
||||
lds:lexpire("mylist", 100)
|
||||
|
|
@ -606,6 +572,7 @@ lds:lclear("mylist")
|
|||
|
||||
ngx.say("\n==================== ZSET =====================\n")
|
||||
|
||||
|
||||
-- [[ ZSET ]]
|
||||
|
||||
-- zadd
|
||||
|
|
@ -630,7 +597,6 @@ end
|
|||
ngx.say("ZCARD should be 2 <=>", res)
|
||||
lds:zclear("myset")
|
||||
|
||||
|
||||
-- zcount
|
||||
lds:zadd("myset", 1, "one", 2, "two")
|
||||
res, err = lds:zcount("myset", "-inf", "+inf")
|
||||
|
|
@ -653,7 +619,6 @@ end
|
|||
ngx.say("ZINCRBY should be 3 <=>", res)
|
||||
lds:zclear("myset")
|
||||
|
||||
|
||||
-- zrange
|
||||
lds:zadd("myset", 1, "one", 2, "two", 3, "three")
|
||||
res, err = lds:zrange("myset", 0, -1, "WITHSCORES")
|
||||
|
|
@ -665,7 +630,6 @@ end
|
|||
ngx.say("ZRANGE should be one1two2three3<=>", res)
|
||||
lds:zclear("myset")
|
||||
|
||||
|
||||
-- zrangebyscore
|
||||
lds:zadd("myset", 1, "one", 2, "two", 3, "three")
|
||||
res, err = lds:zrangebyscore("myset", 1, 2)
|
||||
|
|
@ -677,7 +641,6 @@ end
|
|||
ngx.say("ZRANGEBYSCORE should be onetwo <=>", res)
|
||||
lds:zclear("myset")
|
||||
|
||||
|
||||
-- zrank
|
||||
lds:zadd("myset", 1, "one", 2, "two", 3, "three")
|
||||
res, err = lds:zrank("myset", "three")
|
||||
|
|
@ -700,7 +663,6 @@ end
|
|||
ngx.say("ZREM should be 2 <=>", res)
|
||||
lds:zclear("myset")
|
||||
|
||||
|
||||
-- zremrangebyrank
|
||||
lds:zadd("myset", 1, "one", 2, "two", 3, "three")
|
||||
res, err= lds:zremrangebyrank("myset", 0, 2)
|
||||
|
|
@ -736,9 +698,6 @@ end
|
|||
ngx.say("ZREVRANGE should be threetwoone <=>", res)
|
||||
lds:zclear("myset")
|
||||
|
||||
|
||||
|
||||
|
||||
-- zrevrangebyscore
|
||||
lds:zadd("myset", 1, "one", 2, "two", 3, "three")
|
||||
res, err = lds:zrevrangebyscore("myset", "+inf", "-inf")
|
||||
|
|
@ -750,8 +709,6 @@ end
|
|||
ngx.say("ZREVRANGEBYSCORE should be threetwoone <=>", res)
|
||||
lds:zclear("myset")
|
||||
|
||||
|
||||
|
||||
-- zscore
|
||||
lds:zadd("myset", 1, "one", 2, "two", 3, "three")
|
||||
res, err = lds:zscore("myset", "two")
|
||||
|
|
@ -763,7 +720,6 @@ end
|
|||
ngx.say("ZSCORE should be 2 <=>", res)
|
||||
lds.zclear("myset")
|
||||
|
||||
|
||||
-- zclear
|
||||
lds:zadd("myset", 1, "one", 2, "two", 3, "three")
|
||||
res, err = lds:zclear("myset")
|
||||
|
|
@ -774,7 +730,6 @@ end
|
|||
|
||||
ngx.say("ZCLEAR should be 3 <=>", res)
|
||||
|
||||
|
||||
-- zmclear
|
||||
lds:zadd("myset1", 1, "one", 2, "two", 3, "three")
|
||||
lds:zadd("myset2", 1, "one", 2, "two", 3, "three")
|
||||
|
|
@ -787,16 +742,6 @@ end
|
|||
ngx.say("ZMCLEAR should be 2 <=>", res)
|
||||
|
||||
-- zexpire
|
||||
|
||||
--zexpireat
|
||||
|
||||
--zpersist
|
||||
|
||||
--zttl
|
||||
|
||||
|
||||
-- zexpire
|
||||
|
||||
lds:zadd("myset", 1, "one")
|
||||
res, err = lds:zexpire("myset", 60)
|
||||
if not res then
|
||||
|
|
@ -807,7 +752,6 @@ end
|
|||
ngx.say("ZEXPIRE should be 1 <=> ", res)
|
||||
lds:zclear("myset")
|
||||
|
||||
|
||||
-- zexpireat
|
||||
lds:zadd("myset", 1, "one")
|
||||
res, err = lds:zexpire("myset", 14366666666)
|
||||
|
|
@ -820,7 +764,6 @@ ngx.say("ZEXPIREAT 1 <=>", res)
|
|||
lds:zclear("myset")
|
||||
|
||||
-- zttl
|
||||
|
||||
lds:zadd("myset", 1, "one")
|
||||
lds:zexpire("myset", 100)
|
||||
res, err = lds:zttl("myset")
|
||||
|
|
@ -837,7 +780,6 @@ ngx.say("ZTTL ", res)
|
|||
lds:zclear("myset")
|
||||
|
||||
-- zpersist
|
||||
|
||||
lds:zadd("myset", 1, "one")
|
||||
lds:zexpire("myset", 100)
|
||||
res, err = lds:zpersist("myset")
|
||||
|
|
@ -873,9 +815,7 @@ end
|
|||
|
||||
ngx.say("ECHO should be hello, lua <=>", res)
|
||||
|
||||
|
||||
-- select
|
||||
|
||||
res, err = lds:select(5)
|
||||
if not res then
|
||||
ngx.say("failed to SELECT ", err)
|
||||
|
|
@ -883,5 +823,3 @@ if not res then
|
|||
end
|
||||
|
||||
ngx.say("SELECT should be OK <=>", res)
|
||||
|
||||
|
||||
|
|
|
|||
Loading…
Reference in New Issue