Test: MOVE expire test improved.

Related to #2765.
2025-05-10 01:37:26 +00:00 · 2015-09-14 12:35:51 +02:00 · 2015-09-14 12:35:51 +02:00 · a0ff29bcf2
commit a0ff29bcf2
parent e2c0d89662
1 changed files with 13 additions and 0 deletions
--- 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