From 0a92bbbdfbfe21d4caae2d2ee770b2aca35578ed Mon Sep 17 00:00:00 2001
From: malavan <malavan@eqalpha.com>
Date: Wed, 22 Sep 2021 21:49:30 +0000
Subject: [PATCH] update expire tests for async commands

Former-commit-id: 088ecd30a7b360e63d701f811f2fc0b9d77f5eb0
---
 tests/unit/expire.tcl | 19 +++++++++++++++++++
 1 file changed, 19 insertions(+)

diff --git a/tests/unit/expire.tcl b/tests/unit/expire.tcl
index 4373fc598..385b58fd0 100644
--- a/tests/unit/expire.tcl
+++ b/tests/unit/expire.tcl
@@ -179,12 +179,31 @@ start_server {tags {"expire"}} {
         # one second.
         after 1000
         set size2 [r dbsize]
+        set async [lindex [split [r config get enable-async-commands] " "] 1]
+        r config set enable-async-commands no
         r mget key1 key2 key3
+        r config set enable-async-commands $async
         set size3 [r dbsize]
         r debug set-active-expire 1
         list $size1 $size2 $size3
     } {3 3 0}
 
+    test {Return nil when async get expired key} {
+        r flushdb
+        r debug set-active-expire 0
+        r psetex key 500 a
+        # Redis expires random keys ten times every second so we are
+        # fairly sure that all the three keys should be evicted after
+        # one second.
+        after 1000
+        set async [lindex [split [r config get enable-async-commands] " "] 1]
+        r config set enable-async-commands yes
+        set out [r get key]
+        r config set enable-async-commands $async
+        r debug set-active-expire 1
+        assert_equal $out {}
+    }
+
     test {EXPIRE should not resurrect keys (issue #1026)} {
         r debug set-active-expire 0
         r set foo bar