From e6bb738b873e9922437c918426dd3c7b18968552 Mon Sep 17 00:00:00 2001
From: antirez <antirez@gmail.com>
Date: Thu, 31 Oct 2013 09:43:21 +0100
Subject: [PATCH] Regression test added for [SHZ]SCAN issue #1354.
---
tests/unit/scan.tcl | 8 ++++++++
1 file changed, 8 insertions(+)
diff --git a/tests/unit/scan.tcl b/tests/unit/scan.tcl
index 71c4e3655..511dd1fc7 100644
--- a/tests/unit/scan.tcl
+++ b/tests/unit/scan.tcl
@@ -195,4 +195,12 @@ start_server {tags {"scan"}} {
set keys2 [lsort -unique $keys2]
assert_equal 100 [llength $keys2]
}
+
+ test "SSCAN with integer encoded object (issue #1345)" {
+ set objects {1 a}
+ r del set
+ r sadd set {*}$objects
+ set res [r sscan set 0 MATCH *a* COUNT 100]
+ assert_equal [lsort -unique [lindex $res 1]] {a}
+ }
}