More testing

Former-commit-id: 564d94f0653315ce05495a8d83ff8577a365c11b

tests/unit/flash.tcl

@@ -33,6 +33,19 @@ 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