# $Id: check-idle.e,v 1.1 2002/09/09 22:56:07 alex Exp $ spawn telnet localhost 6789 expect { timeout { exit 1 } "Connected" } send "nick IdleTest\r" send "user idle . . :Idle-Test\r" expect { timeout { exit 1 } "376" } send "lusers\r" expect { timeout { exit 1 } "251 IdleTest :There are 1 users and 0 services on 1 servers" { set r 0 } "251 IdleTest :There are" { set r 99 } } send "quit\r" expect { timeout { exit 1 } "Connection closed" } exit $r # -eof-