# $Id: connect-test.e,v 1.1 2002/09/09 10:16:24 alex Exp $
spawn telnet localhost 6789
expect {
timeout { exit 1 }
"Connected"
}
send "oper\r"
"451"
send "quit\r"
"Connection closed"
# -eof-