mirror of
https://codeberg.org/redict/redict.git
synced 2025-01-23 00:28:26 -05:00
19 lines
497 B
Tcl
19 lines
497 B
Tcl
set testmodule [file normalize tests/modules/hooks.so]
|
|
|
|
tags "modules" {
|
|
start_server {} {
|
|
r module load $testmodule
|
|
test {Test clients connection / disconnection hooks} {
|
|
for {set j 0} {$j < 2} {incr j} {
|
|
set rd1 [redis_deferring_client]
|
|
$rd1 close
|
|
}
|
|
|
|
r select 0
|
|
puts "Keys: [r keys *]"
|
|
assert {[r llen connected] > 1}
|
|
assert {[r llen disconnected] > 1}
|
|
}
|
|
}
|
|
}
|