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