diff options
Diffstat (limited to 'tests/support')
| -rw-r--r-- | tests/support/util.tcl | 10 |
1 files changed, 10 insertions, 0 deletions
diff --git a/tests/support/util.tcl b/tests/support/util.tcl index 4ad96ab10..a7972a854 100644 --- a/tests/support/util.tcl +++ b/tests/support/util.tcl @@ -823,11 +823,21 @@ proc subscribe {client channels} { consume_subscribe_messages $client subscribe $channels } +proc ssubscribe {client channels} { + $client ssubscribe {*}$channels + consume_subscribe_messages $client ssubscribe $channels +} + proc unsubscribe {client {channels {}}} { $client unsubscribe {*}$channels consume_subscribe_messages $client unsubscribe $channels } +proc sunsubscribe {client {channels {}}} { + $client sunsubscribe {*}$channels + consume_subscribe_messages $client sunsubscribe $channels +} + proc psubscribe {client channels} { $client psubscribe {*}$channels consume_subscribe_messages $client psubscribe $channels |