From db0e7bec785b73511380cd43c2ae648ee615f83c Mon Sep 17 00:00:00 2001
From: John Sully <john@csquare.ca>
Date: Fri, 3 Jan 2020 17:11:23 -0500
Subject: [PATCH] Additional flash tests

Former-commit-id: 3f9b1a35821cb3a3bf82aabb180c13a9eddf4e93
---
 tests/unit/flash.tcl | 32 ++++++++++++++++++++++++++++++++
 1 file changed, 32 insertions(+)

diff --git a/tests/unit/flash.tcl b/tests/unit/flash.tcl
index 75be4d58f..d342baecf 100644
--- a/tests/unit/flash.tcl
+++ b/tests/unit/flash.tcl
@@ -67,6 +67,38 @@ start_server [list tags {flash} overrides [list storage-provider {flash ./rocks.
         assert_equal {0} [r dbsize]
     }
 
+    test { SUBKEY EXPIRE persists after cache flush } {
+        r flushall
+        r sadd testkey foo bar baz
+        r expiremember testkey foo 10000
+        r flushall cache
+        assert [expr [r ttl testkey foo] > 0]
+    }
+
+    test { LIST pop works after flushing cache } {
+        r flushall
+        r lpush testkey foo
+        r flushall cache
+        assert_equal {foo} [r lpop testkey]
+    }
+
+    test { DIGEST string the same after flushing cache } {
+        r flushall
+        r set testkey foo
+        r set testkey1 foo ex 10000
+        set expectedDigest [r debug digest]
+        r flushall cache
+        assert_equal $expectedDigest [r debug digest]
+    }
+
+    test { DIGEST list the same after flushing cache } {
+        r flushall
+        r lpush testkey foo bar
+        set expectedDigest [r debug digest]
+        r flushall cache
+        assert_equal $expectedDigest [r debug digest]
+    }
+
     r flushall
     foreach policy {
         allkeys-random allkeys-lru allkeys-lfu