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                 redis_deferring_client
   8                 after 100
   9             }
  10         } e
  11         assert {$c > 8 && $c <= 10}
  12         set e
  13     } {*ERR max*reached*}
  14 }