From 2ac546e00cd4000506558e23d11acafb4ce654b7 Mon Sep 17 00:00:00 2001
From: Harmen <harm@dds.nl>
Date: Mon, 30 Apr 2012 09:57:12 -0600
Subject: [PATCH] Show problem with 'keys' command with specific command
 sequence.

---
 tests/unit/expire.tcl | 11 +++++++++++
 1 file changed, 11 insertions(+)

diff --git a/tests/unit/expire.tcl b/tests/unit/expire.tcl
index 82876ddd..56a59f76 100644
--- a/tests/unit/expire.tcl
+++ b/tests/unit/expire.tcl
@@ -141,4 +141,15 @@ start_server {tags {"expire"}} {
         set size2 [r dbsize]
         list $size1 $size2
     } {3 0}
+
+    test {5 keys in, 5 keys out} {
+        r flushdb
+        r set a c
+        r expire a 5
+        r set t c
+        r set e c
+        r set s c
+        r set foo b
+        lsort [r keys *]
+    } {a e foo s t}
 }
-- 
2.45.2