src/testsuite/check-idle.e

   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-