From 8d67211450ef71c1eac505a44958998d852cbfda Mon Sep 17 00:00:00 2001
From: antirez <antirez@gmail.com>
Date: Wed, 22 Apr 2020 11:45:34 +0200
Subject: Tracking: test expired keys notifications.

---
 tests/unit/tracking.tcl | 13 +++++++++++++
 1 file changed, 13 insertions(+)

diff --git a/tests/unit/tracking.tcl b/tests/unit/tracking.tcl
index dc6cd671a..43bb5f864 100644
--- a/tests/unit/tracking.tcl
+++ b/tests/unit/tracking.tcl
@@ -94,5 +94,18 @@ start_server {tags {"tracking"}} {
         assert {$keys eq {otherkey1 otherkey2}}
     }
 
+    test {Tracking gets notification of expired keys} {
+        r CLIENT TRACKING off
+        r CLIENT TRACKING on BCAST REDIRECT $redir NOLOOP
+        r SET mykey myval px 1
+        r SET mykeyotherkey myval ; # We should not get it
+        after 1000
+        # Because of the internals, we know we are going to receive
+        # two separated notifications for the two different prefixes.
+        set keys1 [lsort [lindex [$rd1 read] 2]]
+        set keys [lsort [list {*}$keys1]]
+        assert {$keys eq {mykey}}
+    }
+
     $rd1 close
 }
-- 
cgit v1.2.1