1 # $Id: check-idle.e,v 1.1 2002/09/09 22:56:07 alex Exp $
2 
3 spawn telnet localhost 6789
4 expect {
5 	timeout { exit 1 }
6 	"Connected"
7 }
8 
9 send "nick IdleTest\r"
10 send "user idle . . :Idle-Test\r"
11 expect {
12 	timeout { exit 1 }
13 	"376"
14 }
15 
16 send "lusers\r"
17 expect {
18 	timeout { exit 1 }
19 	"251 IdleTest :There are 1 users and 0 services on 1 servers" { set r 0 }
20 	"251 IdleTest :There are" { set r 99 }
21 }
22 
23 send "quit\r"
24 expect {
25 	timeout { exit 1 }
26 	"Connection closed"
27 }
28 
29 exit $r
30 
31 # -eof-