tests/unit/introspection.tcl

   1 start_server {tags {"introspection"}} {
   2     test {CLIENT LIST} {
   3         r client list
   4     } {*addr=*:* fd=* idle=* flags=N db=9 sub=0 psub=0 qbuf=0 obl=0 oll=0 events=r cmd=client*}
   5 }