Commit 681b9c88 authored by Per Cederqvist's avatar Per Cederqvist
Browse files

(l2g_stop): Send a quit command to test-l2g, so that we can be sure

	that the test case doesn't miss some unexpected final output
	from the test program.
(unanchored_expect): Fixed an error message.
parent 3cda9603
......@@ -63,8 +63,8 @@ proc l2g_start {} {
proc l2g_stop {} {
global spawn_id
# FIXME: send explicit quit command and check that there is no
# trailing unexpected output before the "ok, I die" response.
l2g_send "q"
simple_expect "test-l2g quitting"
close
wait
}
......@@ -132,7 +132,7 @@ proc unanchored_expect {regex testname} {
buffer_full {fail "$test (buffer_full)"}
eof {fail "$test (eof)"; wait}
-re "($any*)$nl" {
fail "$test (unexpected line '\$expect_out(1,string)' waiting for '$regex')"
fail "$test (unexpected line '$expect_out(1,string)' waiting for '$regex')"
exp_continue
}
-re "($any*)l2g>" {
......
Markdown is supported
0% or .
You are about to add 0 people to the discussion. Proceed with caution.
Finish editing this message first!
Please register or to comment