From 0a91fc459f8fb1c6ad37e6e8943bedd7903d8b69 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/keyspace.tcl | 13 +++++++++++++
 1 file changed, 13 insertions(+)

diff --git a/tests/unit/keyspace.tcl b/tests/unit/keyspace.tcl
index b66dbb2a..d4e7bf51 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