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