From: antirez <antirez@gmail.com>
Date: Sat, 1 Dec 2012 22:07:09 +0000 (+0100)
Subject: Test: regression for issue #801.
X-Git-Url: https://git.saurik.com/redis.git/commitdiff_plain/6bdcd50b56ba295808729e198bd3b3e5284aba42

Test: regression for issue #801.
---

diff --git a/tests/unit/type/list.tcl b/tests/unit/type/list.tcl
index 8f598a4a..c1e46a3b 100644
--- a/tests/unit/type/list.tcl
+++ b/tests/unit/type/list.tcl
@@ -190,6 +190,27 @@ start_server {
         $rd read
     } {list b}
 
+    test "BLPOP with same key multiple times should work (issue #801)" {
+        set rd [redis_deferring_client]
+        r del list1 list2
+
+        # Data arriving after the BLPOP.
+        $rd blpop list1 list2 list2 list1 0
+        r lpush list1 a
+        assert_equal [$rd read] {list1 a}
+        $rd blpop list1 list2 list2 list1 0
+        r lpush list2 b
+        assert_equal [$rd read] {list2 b}
+
+        # Data already there.
+        r lpush list1 a
+        r lpush list2 b
+        $rd blpop list1 list2 list2 list1 0
+        assert_equal [$rd read] {list1 a}
+        $rd blpop list1 list2 list2 list1 0
+        assert_equal [$rd read] {list2 b}
+    }
+
     test "MULTI/EXEC is isolated from the point of view of BLPOP" {
         set rd [redis_deferring_client]
         r del list