Test: MOVE expire test improved.

Related to #2765.

1 files changed, 13 insertions, 0 deletions

diff --git a/tests/unit/keyspace.tcl b/tests/unit/keyspace.tcl
index b66dbb2a8..d4e7bf51c 100644
--- a/tests/unit/keyspace.tcl
+++ b/tests/unit/keyspace.tcl
@@ -206,6 +206,19 @@ start_server {tags {"keyspace"}} {
         r select 9
     }
 
+    test {MOVE does not create an expire if it does not exist} {
+        r select 10
+        r flushdb
+        r select 9
+        r set mykey foo
+        r move mykey 10
+        assert {[r ttl mykey] == -2}
+        r select 10
+        assert {[r ttl mykey] == -1}
+        assert {[r get mykey] eq "foo"}
+        r select 9
+    }
+
     test {SET/GET keys in different DBs} {
         r set a hello
         r set b world