Add Redis source code for testing

1 files changed, 25 insertions, 0 deletions

diff --git a/examples/redis-unstable/tests/unit/moduleapi/infra.tcl b/examples/redis-unstable/tests/unit/moduleapi/infra.tcl
new file mode 100644
index 0000000..80cc962
--- /dev/null
+++ b/examples/redis-unstable/tests/unit/moduleapi/infra.tcl
@@ -0,0 +1,25 @@
+set testmodule [file normalize tests/modules/infotest.so]
+
+test {modules config rewrite} {
+
+    start_server {tags {"modules external:skip"}} {
+        r module load $testmodule
+
+        set modules [lmap x [r module list] {dict get $x name}]
+        assert_not_equal [lsearch $modules infotest] -1
+
+        r config rewrite
+        restart_server 0 true false
+
+        set modules [lmap x [r module list] {dict get $x name}]
+        assert_not_equal [lsearch $modules infotest] -1
+
+        assert_equal {OK} [r module unload infotest]
+
+        r config rewrite
+        restart_server 0 true false
+
+        set modules [lmap x [r module list] {dict get $x name}]
+        assert_equal [lsearch $modules infotest] -1
+    }
+}