Modules hooks: test flush event.

tests/unit/moduleapi/hooks.tcl

@@ -8,11 +8,21 @@ tags "modules" {
                 set rd1 [redis_deferring_client]
                 $rd1 close
             }
-
-            r select 0
-            puts "Keys: [r keys *]"
             assert {[r llen connected] > 1}
             assert {[r llen disconnected] > 1}
         }
+
+        test {Test flushdb hooks} {
+            r flushall ;# Note: only the "end" RPUSH will survive
+            r select 1
+            r flushdb
+            r select 2
+            r flushdb
+            r select 9
+            assert {[r llen flush-start] == 2}
+            assert {[r llen flush-end] == 3}
+            assert {[r lrange flush-start 0 -1] eq {1 2}}
+            assert {[r lrange flush-end 0 -1] eq {-1 1 2}}
+        }
     }
 }