From d5c4d4999b79db67468a26d32638b97b268f49e8 Mon Sep 17 00:00:00 2001
From: John Sully <john@csquare.ca>
Date: Wed, 25 Mar 2020 15:34:30 -0400
Subject: [PATCH] Add roundtrip test for subkey expires

Former-commit-id: 56fc6b7deb59cfb3219d65c01c96969d3983e84a
---
 tests/unit/expire.tcl | 17 +++++++++++++----
 1 file changed, 13 insertions(+), 4 deletions(-)

diff --git a/tests/unit/expire.tcl b/tests/unit/expire.tcl
index 477df0242..39ef28ea9 100644
--- a/tests/unit/expire.tcl
+++ b/tests/unit/expire.tcl
@@ -220,7 +220,7 @@ start_server {tags {"expire"}} {
         assert {$ttl <= 98 && $ttl > 90}
     }
 
-    test { EXPIREMEMBER works (set) } {
+    test {EXPIREMEMBER works (set)} {
         r flushall
         r sadd testkey foo bar baz
         r expiremember testkey foo 1
@@ -228,7 +228,7 @@ start_server {tags {"expire"}} {
         assert_equal {2} [r scard testkey]
     }
 
-    test { EXPIREMEMBER works (hash) } {
+    test {EXPIREMEMBER works (hash)} {
         r flushall
         r hset testkey foo bar
         r expiremember testkey foo 1
@@ -236,7 +236,7 @@ start_server {tags {"expire"}} {
         r exists testkey
     } {0}
 
-    test { EXPIREMEMBER works (zset) } {
+    test {EXPIREMEMBER works (zset)} {
         r flushall
         r zadd testkey 1 foo
         r zadd testkey 2 bar
@@ -246,10 +246,19 @@ start_server {tags {"expire"}} {
         assert_equal {1} [r zcard testkey]
     }
 
-    test { TTL for subkey expires works } {
+    test {TTL for subkey expires works} {
         r flushall
         r sadd testkey foo bar baz
         r expiremember testkey foo 10000
         assert [expr [r ttl testkey foo] > 0]
     }
+
+    test {Roundtrip for subkey expires works} {
+        r flushall
+        r sadd testkey foo bar baz
+        r expiremember testkey foo 10000
+        r save
+        r debug reload
+        assert [expr [r ttl testkey foo] > 0]
+    }
 }