From 978185bf679725d69b2f4d9613d4761e5fa95623 Mon Sep 17 00:00:00 2001
From: antirez <antirez@gmail.com>
Date: Thu, 28 Mar 2013 11:36:49 +0100
Subject: [PATCH] Test: verify that lazy-expire works.

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

diff --git a/tests/unit/expire.tcl b/tests/unit/expire.tcl
index 57497fe5..f1b0e011 100644
--- a/tests/unit/expire.tcl
+++ b/tests/unit/expire.tcl
@@ -160,6 +160,24 @@ start_server {tags {"expire"}} {
         list $size1 $size2
     } {3 0}
 
+    test {Redis should lazy expire keys} {
+        r flushdb
+        r debug set-active-expire 0
+        r psetex key1 500 a
+        r psetex key2 500 a
+        r psetex key3 500 a
+        set size1 [r dbsize]
+        # Redis expires random keys ten times every second so we are
+        # fairly sure that all the three keys should be evicted after
+        # one second.
+        after 1000
+        set size2 [r dbsize]
+        r mget key1 key2 key3
+        set size3 [r dbsize]
+        r debug set-active-expire 1
+        list $size1 $size2 $size3
+    } {3 3 0}
+
     test {5 keys in, 5 keys out} {
         r flushdb
         r set a c
-- 
GitLab