Add Redis source code for testing

1 files changed, 103 insertions, 0 deletions

diff --git a/examples/redis-unstable/tests/unit/moduleapi/scan.tcl b/examples/redis-unstable/tests/unit/moduleapi/scan.tcl
new file mode 100644
index 0000000..c880477
--- /dev/null
+++ b/examples/redis-unstable/tests/unit/moduleapi/scan.tcl
@@ -0,0 +1,103 @@
+set testmodule [file normalize tests/modules/scan.so]
+
+start_server {tags {"modules external:skip"}} {
+    r module load $testmodule
+
+    test {Module scan keyspace} {
+        # the module create a scan command with filtering which also return values
+        r set x 1
+        r set y 2
+        r set z 3
+        r hset h f v
+        lsort [r scan.scan_strings]
+    } {{x 1} {y 2} {z 3}}
+
+    test {Module scan hash listpack} {
+        r hmset hh f1 v1 f2 v2
+        assert_encoding listpack hh
+        lsort [r scan.scan_key hh]
+    } {{f1 v1} {f2 v2}}
+
+    test {Module scan hash listpack with int value} {
+        r hmset hh1 f1 1
+        assert_encoding listpack hh1
+        lsort [r scan.scan_key hh1]
+    } {{f1 1}}
+
+    test {Module scan hash listpack with hexpire} {
+        r debug set-active-expire 0
+        r hmset hh f1 v1 f2 v2 f3 v3
+        r hexpire hh 100000 fields 1 f1
+        r hpexpire hh 1 fields 1 f3
+        after 10
+        assert_range [r httl hh fields 1 f1] 10000 100000
+        assert_encoding listpackex hh
+        r debug set-active-expire 1
+        lsort [r scan.scan_key hh]
+    } {{f1 v1} {f2 v2}} {needs:debug}
+
+    test {Module scan hash dict} {
+        r config set hash-max-ziplist-entries 2
+        r hmset hh f3 v3
+        assert_encoding hashtable hh
+        lsort [r scan.scan_key hh]
+    } {{f1 v1} {f2 v2} {f3 v3}}
+
+    test {Module scan hash dict with hexpire} {
+        r config set hash-max-listpack-entries 1
+        r del hh
+        r hmset hh f1 v1 f2 v2 f3 v3
+        r hexpire hh 100000 fields 1 f2
+        r hpexpire hh 5 fields 1 f3
+        assert_range [r httl hh fields 1 f2] 10000 100000
+        assert_encoding hashtable hh
+        after 10
+        lsort [r scan.scan_key hh]
+    } {{f1 v1} {f2 v2}}
+
+    test {Module scan hash with hexpire can return no items} {
+        r del hh
+        r debug set-active-expire 0
+        r hmset hh f1 v1 f2 v2 f3 v3
+        r hpexpire hh 1 fields 3 f1 f2 f3
+        after 10
+        assert_equal [r scan.scan_key hh] {}
+        r debug set-active-expire 1
+    } {OK} {needs:debug}
+
+    test {Module scan zset listpack} {
+        r zadd zz 1 f1 2 f2
+        assert_encoding listpack zz
+        lsort [r scan.scan_key zz]
+    } {{f1 1} {f2 2}}
+
+    test {Module scan zset skiplist} {
+        r config set zset-max-ziplist-entries 2
+        r zadd zz 3 f3
+        assert_encoding skiplist zz
+        lsort [r scan.scan_key zz]
+    } {{f1 1} {f2 2} {f3 3}}
+
+    test {Module scan set intset} {
+        r sadd ss 1 2
+        assert_encoding intset ss
+        lsort [r scan.scan_key ss]
+    } {{1 {}} {2 {}}}
+
+    test {Module scan set dict} {
+        r config set set-max-intset-entries 2
+        r sadd ss 3
+        assert_encoding hashtable ss
+        lsort [r scan.scan_key ss]
+    } {{1 {}} {2 {}} {3 {}}}
+
+    test {Module scan set listpack} {
+        r sadd ss1 a b c
+        assert_encoding listpack ss1
+        lsort [r scan.scan_key ss1]
+    } {{a {}} {b {}} {c {}}}
+
+    test "Unload the module - scan" {
+        assert_equal {OK} [r module unload scan]
+    }
+}
\ No newline at end of file