From a0ff29bcf26760f0e13f3368bd83b008ba616558 Mon Sep 17 00:00:00 2001
From: antirez <antirez@gmail.com>
Date: Mon, 14 Sep 2015 12:35:51 +0200
Subject: [PATCH] Test: MOVE expire test improved.

Related to #2765.
---
 tests/unit/basic.tcl | 13 +++++++++++++
 1 file changed, 13 insertions(+)

diff --git a/tests/unit/basic.tcl b/tests/unit/basic.tcl
index 99bc1b85..a46b2740 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