fake-subscribers.tcl

set numclients 50
set ::reads 0

for {set i 0} {$i < $numclients} {incr i} {
    set fd [socket 127.0.0.1 6379]
    fconfigure $fd -translation binary -blocking 0
    set ::client($i) $fd
    puts -nonewline $fd "SUBSCRIBE foo\r\n"
    flush $fd
    fileevent $fd readable [list discardData $fd]
}

proc discardData fd {
    read $fd
    incr ::reads
    if {($::reads % 10000) == 0} {
        puts "$::reads reads"
    }
}

vwait forever