Annotation of ircnowd/src/testsuite/check-idle.e, Revision 1.1.1.1
1.1 tomglok 1: # ngIRCd test suite
2: # Idle test
3:
4: spawn telnet 127.0.0.1 6789
5: expect {
6: timeout { exit 1 }
7: "Connected"
8: }
9:
10: send "nick IdleTest\r"
11: send "user idle . . :Idle-Test\r"
12: expect {
13: timeout { exit 1 }
14: "433 * IdleTest :Nickname already in use" { exit 99 }
15: "376"
16: }
17:
18: send "lusers\r"
19: expect {
20: timeout { exit 1 }
21: "251 IdleTest :There are 1 users and 0 services on 1 servers" { set r 0 }
22: "251 IdleTest :There are" { set r 99 }
23: }
24:
25: send "quit\r"
26: expect {
27: timeout { exit 1 }
28: "Connection closed"
29: }
30:
31: exit $r
CVSweb