Test: MOVE expire test improved.

Related to #2765.

1 files changed, 13 insertions, 0 deletions

diff --git a/tests/unit/basic.tcl b/tests/unit/basic.tcl
index 99bc1b85b..a46b27401 100644
--- a/tests/unit/basic.tcl
+++ b/tests/unit/basic.tcl
@@ -446,6 +446,19 @@ start_server {tags {"basic"}} {
         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