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