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