From 3d265fc3dffe591fb57ba7ee4ded884645a9b46a Mon Sep 17 00:00:00 2001
From: John Sully <john@csquare.ca>
Date: Mon, 23 Dec 2019 22:14:43 -0500
Subject: [PATCH] More testing

Former-commit-id: 564d94f0653315ce05495a8d83ff8577a365c11b
---
 tests/unit/flash.tcl | 15 ++++++++++++++-
 1 file changed, 14 insertions(+), 1 deletion(-)

diff --git a/tests/unit/flash.tcl b/tests/unit/flash.tcl
index 1c3289421..b3fc2b7ac 100644
--- a/tests/unit/flash.tcl
+++ b/tests/unit/flash.tcl
@@ -33,7 +33,20 @@ start_server [list tags {flash} overrides [list storage-provider {flash ./rocks.
        r set testkey bar ex 10000
        assert_equal {1} [r dbsize] "Only one key after overwrite"
        assert_equal {bar} [r get testkey]
-    } 
+       assert [expr [r ttl testkey] > 0]
+    }
+
+    test { EXPIRE of existing but flushed key } {
+       r flushall
+       assert_equal {0} [r dbsize]
+       r set testkey foo
+       assert_equal {1} [r dbsize]
+       r flushall cache
+       r expire testkey 10000
+       assert_equal {1} [r dbsize]
+       assert_equal {foo} [r get testkey]
+       assert [expr [r ttl testkey] > 0]
+    }
 
     r flushall
     foreach policy {