diff options
Diffstat (limited to 'tests')
-rw-r--r-- | tests/unit/type/list.tcl | 10 |
1 files changed, 10 insertions, 0 deletions
diff --git a/tests/unit/type/list.tcl b/tests/unit/type/list.tcl index f7e043f99..7a3768025 100644 --- a/tests/unit/type/list.tcl +++ b/tests/unit/type/list.tcl @@ -1263,6 +1263,16 @@ foreach {pop} {BLPOP BLMPOP_LEFT} { $rd close } + test "$pop: with 0.001 timeout should not block indefinitely" { + # Use a timeout of 0.001 and wait for the number of blocked clients to equal 0. + # Validate the empty read from the deferring client. + set rd [redis_deferring_client] + bpop_command $rd $pop blist1 0.001 + wait_for_blocked_clients_count 0 + assert_equal {} [$rd read] + $rd close + } + test "$pop: second argument is not a list" { set rd [redis_deferring_client] r del blist1{t} blist2{t} |