src/testsuite/connect-test.e

   1 # $Id: connect-test.e,v 1.1 2002/09/09 10:16:24 alex Exp $
   2
   3 spawn telnet localhost 6789
   4 expect {
   5         timeout { exit 1 }
   6         "Connected"
   7 }
   8
   9 send "oper\r"
  10 expect {
  11         timeout { exit 1 }
  12         "451"
  13 }
  14
  15 send "quit\r"
  16 expect {
  17         timeout { exit 1 }
  18         "Connection closed"
  19 }
  20
  21 # -eof-