tests/unit/obuf-limits.tcl

   1 start_server {tags {"obuf-limits"}} {
   2     test {Test that client output buffer hard limit is enforced} {
   3         r config set client-output-buffer-limit {pubsub 100000 0 0}
   4         set rd1 [redis_deferring_client]
   5
   6         $rd1 subscribe foo
   7         set reply [$rd1 read]
   8         assert {$reply eq "subscribe foo 1"}
   9
  10         set omem 0
  11         while 1 {
  12             r publish foo bar
  13             set clients [split [r client list] "\r\n"]
  14             set c [split [lindex $clients 1] " "]
  15             if {![regexp {omem=([0-9]+)} $c - omem]} break
  16             if {$omem > 200000} break
  17         }
  18         assert {$omem >= 100000 && $omem < 200000}
  19         $rd1 close
  20     }
  21 }