src/testsuite/connect-test.e


1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21

# $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"
expect {
	timeout { exit 1 }
	"451"
}

send "quit\r"
expect {
	timeout { exit 1 }
	"Connection closed"
}

# -eof-