src/testsuite/misc-test.e

   1 # $Id: misc-test.e,v 1.2 2008/02/17 13:51:00 alex Exp $
   2
   3 spawn telnet localhost 6789
   4 expect {
   5         timeout { exit 1 }
   6         "Connected"
   7 }
   8
   9 send "nick nick\r"
  10 send "user user . . :User\r"
  11 expect {
  12         timeout { exit 1 }
  13         "376"
  14 }
  15
  16 send "summon\r"
  17 expect {
  18         timeout { exit 1 }
  19         "445"
  20 }
  21
  22 send "users\r"
  23 expect {
  24         timeout { exit 1 }
  25         "446"
  26 }
  27
  28 send "info\r"
  29 expect {
  30         timeout { exit 1 }
  31         "371"
  32 }
  33 expect {
  34         timeout { exit 1 }
  35         "374"
  36 }
  37
  38 send "quit\r"
  39 expect {
  40         timeout { exit 1 }
  41         "ERROR"
  42 }
  43
  44 # -eof-