From 9fba193a5995208f911b7184017df780d155c685 Mon Sep 17 00:00:00 2001
From: antirez <antirez@gmail.com>
Date: Thu, 31 Oct 2013 10:37:27 +0100
Subject: [PATCH] SSCAN with integer encoded object test improved.

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

diff --git a/tests/unit/scan.tcl b/tests/unit/scan.tcl
index 511dd1fc..45498a51 100644
--- a/tests/unit/scan.tcl
+++ b/tests/unit/scan.tcl
@@ -202,5 +202,7 @@ start_server {tags {"scan"}} {
         r sadd set {*}$objects
         set res [r sscan set 0 MATCH *a* COUNT 100]
         assert_equal [lsort -unique [lindex $res 1]] {a}
+        set res [r sscan set 0 MATCH *1* COUNT 100]
+        assert_equal [lsort -unique [lindex $res 1]] {1}
     }
 }