From 8b8f05c86c1f1f002caa1f4e1877020389f167e4 Mon Sep 17 00:00:00 2001
From: Madelyn Olson <34459052+madolson@users.noreply.github.com>
Date: Fri, 3 Sep 2021 15:52:39 -0700
Subject: [PATCH] Add test verifying PUBSUB NUMPAT behavior (#9209)

---
 tests/unit/pubsub.tcl | 18 ++++++++++++++++++
 1 file changed, 18 insertions(+)

diff --git a/tests/unit/pubsub.tcl b/tests/unit/pubsub.tcl
index 1e4aa2974..45213c8c8 100644
--- a/tests/unit/pubsub.tcl
+++ b/tests/unit/pubsub.tcl
@@ -158,6 +158,24 @@ start_server {tags {"pubsub network"}} {
         r pubsub numsub abc def
     } {abc 0 def 0}
 
+    test "NUMPATs returns the number of unique patterns" {
+        set rd1 [redis_deferring_client]
+        set rd2 [redis_deferring_client]
+
+        # Three unique patterns and one that overlaps
+        psubscribe $rd1 "foo*"
+        psubscribe $rd2 "foo*"
+        psubscribe $rd1 "bar*"
+        psubscribe $rd2 "baz*"
+
+        set patterns [r pubsub numpat]
+
+        # clean up clients
+        punsubscribe $rd1
+        punsubscribe $rd2
+        assert_equal 3 $patterns
+    }
+
     test "Mix SUBSCRIBE and PSUBSCRIBE" {
         set rd1 [redis_deferring_client]
         assert_equal {1} [subscribe $rd1 {foo.bar}]