From 3403a1f6484a7446eb92c3bf1467a7ffed482b09 Mon Sep 17 00:00:00 2001
From: John Sully <john@csquare.ca>
Date: Fri, 5 Jun 2020 22:18:28 -0400
Subject: [PATCH] Detect issues like #189

Former-commit-id: 0042586190a3e5b212a015aeb3577695cd3623c5
---
 tests/unit/expire.tcl | 22 ++++++++++++++++++++++
 1 file changed, 22 insertions(+)

diff --git a/tests/unit/expire.tcl b/tests/unit/expire.tcl
index 67b2db4c2..16006d7da 100644
--- a/tests/unit/expire.tcl
+++ b/tests/unit/expire.tcl
@@ -291,4 +291,26 @@ start_server {tags {"expire"}} {
             fail "Server reported corrupt subexpire"
         }
     }
+
+    test {Stress subkey expires} {
+        r flushall
+        set rd [redis_deferring_client]
+        set rd2 [redis_deferring_client]
+        $rd2 multi
+        for {set j 0} {$j < 1000} {incr j} {
+            for {set k 0} {$k < 1000} {incr k} {
+                $rd hset "hash_$k" "field_$j" "foo"
+                $rd expiremember "hash_$k" "field_$j" [expr int(floor(rand() * 1000))] ms
+                if {rand() < 0.3} {
+                    $rd2 hdel "hash_$k" "field_$j"
+                }
+                if {rand() < 0.01} {
+                    $rd del "hash_$k"
+                }
+            }
+        }
+        $rd2 exec
+        after 3000
+        assert_equal [r dbsize] 0
+    }
 }