mirror of https://github.com/F-Stack/f-stack.git
17 lines
477 B
Tcl
17 lines
477 B
Tcl
|
set testmodule [file normalize tests/modules/zset.so]
|
||
|
|
|
||
|
|
start_server {tags {"modules"}} {
|
||
|
|
r module load $testmodule
|
||
|
|
|
||
|
|
test {Module zset rem} {
|
||
|
|
r del k
|
||
|
|
r zadd k 100 hello 200 world
|
||
|
|
assert_equal 1 [r zset.rem k hello]
|
||
|
|
assert_equal 0 [r zset.rem k hello]
|
||
|
|
assert_equal 1 [r exists k]
|
||
|
|
# Check that removing the last element deletes the key
|
||
|
|
assert_equal 1 [r zset.rem k world]
|
||
|
|
assert_equal 0 [r exists k]
|
||
|
|
}
|
||
|
|
}
|