test/imode/empty_lines.exp


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

#!/usr/bin/expect -f

set timeout 1

expect_after {
    timeout { exit -1 }
}

set LMI lmi
if {[info exists env(LMI)]} {
    set LMI $env(LMI)
}
spawn {*}$LMI
expect "lmi> "
send "\r"
expect "lmi> "
send "\r"
expect "lmi> "
send "   \r"
expect "lmi> "
send " : pwd\r"
expect "/lmi"
expect "lmi> "
send "exit\r"
catch wait result
exit [lindex $result 3]