mirror of https://mirror.osredm.com/root/redis.git
35 lines
855 B
Tcl
35 lines
855 B
Tcl
set testmodule [file normalize tests/modules/basics.so]
|
|
|
|
|
|
start_server {tags {"modules"}} {
|
|
r module load $testmodule
|
|
|
|
test {test module api basics} {
|
|
r test.basics
|
|
} {ALL TESTS PASSED}
|
|
|
|
test {test rm_call auto mode} {
|
|
r hello 2
|
|
set reply [r test.rmcallautomode]
|
|
assert_equal [lindex $reply 0] f1
|
|
assert_equal [lindex $reply 1] v1
|
|
assert_equal [lindex $reply 2] f2
|
|
assert_equal [lindex $reply 3] v2
|
|
r hello 3
|
|
set reply [r test.rmcallautomode]
|
|
assert_equal [dict get $reply f1] v1
|
|
assert_equal [dict get $reply f2] v2
|
|
}
|
|
|
|
test {test get resp} {
|
|
r hello 2
|
|
set reply [r test.getresp]
|
|
assert_equal $reply 2
|
|
r hello 3
|
|
set reply [r test.getresp]
|
|
assert_equal $reply 3
|
|
}
|
|
|
|
r module unload test
|
|
}
|