Adding upstream version 5:7.0.15.upstream/5%7.0.15upstream

Signed-off-by: Daniel Baumann <daniel.baumann@progress-linux.org>

1 files changed, 22 insertions, 0 deletions

diff --git a/tests/unit/moduleapi/infra.tcl b/tests/unit/moduleapi/infra.tcl
new file mode 100644
index 0000000..7bfa7d4
--- /dev/null
+++ b/tests/unit/moduleapi/infra.tcl
@@ -0,0 +1,22 @@
+set testmodule [file normalize tests/modules/infotest.so]
+
+test {modules config rewrite} {
+
+    start_server {tags {"modules"}} {
+        r module load $testmodule
+
+        assert_equal [lindex [lindex [r module list] 0] 1] infotest
+
+        r config rewrite
+        restart_server 0 true false
+
+        assert_equal [lindex [lindex [r module list] 0] 1] infotest
+
+        assert_equal {OK} [r module unload infotest]
+
+        r config rewrite
+        restart_server 0 true false
+
+        assert_equal [llength [r module list]] 0
+    }
+}