tests/unit/limits.tcl

   1 start_server {tags {"limits"} overrides {maxclients 10}} {
   2     test {Check if maxclients works refusing connections} {
   3         set c 0
   4         catch {
   5             while {$c < 50} {
   6                 incr c
   7                 set rd [redis_deferring_client]
   8                 $rd ping
   9                 $rd read
  10                 after 100
  11             }
  12         } e
  13         assert {$c > 8 && $c <= 10}
  14         set e
  15     } {*ERR max*reached*}
  16 }