diff --git a/tests/unit/type/list.tcl b/tests/unit/type/list.tcl index ff178db4176b2bf68e489f1dc8024ec90d05b2e5..970e3ee7fb8fcf65719f8f6129a616aaa7f1e5ba 100644 --- a/tests/unit/type/list.tcl +++ b/tests/unit/type/list.tcl @@ -728,4 +728,18 @@ start_server { assert_equal 3 [r llen myotherlist] } } + + test "Regression for bug 593 - chaining BRPOPLPUSH with other blocking cmds" { + set rd1 [redis_deferring_client] + set rd2 [redis_deferring_client] + + $rd1 brpoplpush a b 0 + $rd1 brpoplpush a b 0 + $rd2 brpoplpush b c 0 + after 1000 + r lpush a data + $rd1 close + $rd2 close + r ping + } {PONG} }