From bf79c0cda240f7cad95955de9e4119bc24f50d80 Mon Sep 17 00:00:00 2001
From: antirez <antirez@gmail.com>
Date: Tue, 5 Nov 2013 15:19:44 +0100
Subject: [PATCH] Added tests for [SHZ]SCAN with MATCH.

---
 tests/unit/scan.tcl | 21 +++++++++++++++++++++
 1 file changed, 21 insertions(+)

diff --git a/tests/unit/scan.tcl b/tests/unit/scan.tcl
index 45498a514..2b1033e39 100644
--- a/tests/unit/scan.tcl
+++ b/tests/unit/scan.tcl
@@ -205,4 +205,25 @@ start_server {tags {"scan"}} {
         set res [r sscan set 0 MATCH *1* COUNT 100]
         assert_equal [lsort -unique [lindex $res 1]] {1}
     }
+
+    test "SSCAN with PATTERN" {
+        r del mykey
+        r sadd mykey foo fab fiz foobar 1 2 3 4
+        set res [r sscan mykey 0 MATCH foo* COUNT 10000]
+        lsort -unique [lindex $res 1]
+    } {foo foobar}
+
+    test "HSCAN with PATTERN" {
+        r del mykey
+        r hmset mykey foo 1 fab 2 fiz 3 foobar 10 1 a 2 b 3 c 4 d
+        set res [r hscan mykey 0 MATCH foo* COUNT 10000]
+        lsort -unique [lindex $res 1]
+    } {1 10 foo foobar}
+
+    test "ZSCAN with PATTERN" {
+        r del mykey
+        r zadd mykey 1 foo 2 fab 3 fiz 10 foobar
+        set res [r zscan mykey 0 MATCH foo* COUNT 10000]
+        lsort -unique [lindex $res 1]
+    }
 }