Modules hooks: initial Tcl test file.

2 files changed, 19 insertions, 1 deletions

diff --git a/runtest-moduleapi b/runtest-moduleapi
index a16cca686..444204919 100755
--- a/runtest-moduleapi
+++ b/runtest-moduleapi
@@ -13,4 +13,4 @@ then
 fi
 
 make -C tests/modules && \
-$TCLSH tests/test_helper.tcl --single unit/moduleapi/commandfilter --single unit/moduleapi/fork --single unit/moduleapi/testrdb --single unit/moduleapi/infotest --single unit/moduleapi/propagate "${@}"
+$TCLSH tests/test_helper.tcl --single unit/moduleapi/commandfilter --single unit/moduleapi/fork --single unit/moduleapi/testrdb --single unit/moduleapi/infotest --single unit/moduleapi/propagate --single unit/moduleapi/hooks "${@}"
diff --git a/tests/unit/moduleapi/hooks.tcl b/tests/unit/moduleapi/hooks.tcl
new file mode 100644
index 000000000..473c8fdd1
--- /dev/null
+++ b/tests/unit/moduleapi/hooks.tcl
@@ -0,0 +1,18 @@
+set testmodule [file normalize tests/modules/hooks.so]
+
+tags "modules" {
+    start_server {} {
+        r module load $testmodule
+        test {Test clients connection / disconnection hooks} {
+            for {set j 0} {$j < 2} {incr j} {
+                set rd1 [redis_deferring_client]
+                $rd1 close
+            }
+
+            r select 0
+            puts "Keys: [r keys *]"
+            assert {[r llen connected] > 1}
+            assert {[r llen disconnected] > 1}
+        }
+    }
+}