Annotation of ircnowd/src/testsuite/check-idle.e, Revision 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