testsuite/aplwc.bin/example.exp


1
2
3
4
5
6
7
8

aplwc_start
expect {
    "      " { pass "6-space prompt" }
}
send "\004"
expect {
    eof { pass "EOT ends the session" }
}