diff options
Diffstat (limited to 'tests/unit/basic.tcl')
| -rw-r--r-- | tests/unit/basic.tcl | 8 |
1 files changed, 8 insertions, 0 deletions
diff --git a/tests/unit/basic.tcl b/tests/unit/basic.tcl index 1f46ba666..8da358968 100644 --- a/tests/unit/basic.tcl +++ b/tests/unit/basic.tcl @@ -261,6 +261,14 @@ start_server {tags {"basic"}} { assert_equal 20 [r get x] } + test "DEL against expired key" { + r debug set-active-expire 0 + r setex keyExpire 1 valExpire + after 1100 + assert_equal 0 [r del keyExpire] + r debug set-active-expire 1 + } + test {EXISTS} { set res {} r set newkey test |