diff options
Diffstat (limited to 'tests/unit')
| -rw-r--r-- | tests/unit/introspection.tcl | 8 |
1 files changed, 6 insertions, 2 deletions
diff --git a/tests/unit/introspection.tcl b/tests/unit/introspection.tcl index a6c2130f5..54742bb02 100644 --- a/tests/unit/introspection.tcl +++ b/tests/unit/introspection.tcl @@ -50,6 +50,10 @@ start_server {tags {"introspection"}} { assert_match {*foobar*} [r client list] $rd close # Now the client should no longer be listed - string match {*foobar*} [r client list] - } {0} + wait_for_condition 50 100 { + [string match {*foobar*} [r client list]] == 0 + } else { + fail "Client still listed in CLIENT LIST after SETNAME." + } + } } |