Commit 4671c06d authored by Per Cederqvist's avatar Per Cederqvist
Browse files

(l2g_start): Fixed typo: ";wait" should not be part of the fail string.

(lyskomd_fail_start): Ditto.
(client_start): Ditto.
(client_start_fail): Ditto.
parent 714c2057
......@@ -99,7 +99,7 @@ proc l2g_start {} {
}
set l2g_id $spawn_id
set expect_active($l2g_id) \
" -i $l2g_id eof { fail \"\$test (eof on l2g); wait\" } -re \"^($deep_any*)$nl\" { fail \"\$test (unexpected line '\$expect_out(1,string)')\" } -re \"($deep_any*)l2g> \" { fail \"\$test (unexpected incomplete line '\$expect_out(1,string)')\" } "
" -i $l2g_id eof { fail \"\$test (eof on l2g)\"; wait } -re \"^($deep_any*)$nl\" { fail \"\$test (unexpected line '\$expect_out(1,string)')\" } -re \"($deep_any*)l2g> \" { fail \"\$test (unexpected incomplete line '\$expect_out(1,string)')\" } "
set expect_always($l2g_id) \
" -i $l2g_id buffer_full { fail \"\$test (buffer_full on l2g)\" }"
......@@ -503,7 +503,7 @@ proc lyskomd_fail_start {{aux_item_conf_file "" }
set server_id $spawn_id
set expect_active($server_id) \
" -i $server_id eof { fail \"\$test (eof on lyskomd); wait\" }"
" -i $server_id eof { fail \"\$test (eof on lyskomd)\"; wait }"
set expect_always($server_id) \
" -i $server_id buffer_full { fail \"\$test (buffer_full on lyskomd)\" }"
......@@ -775,7 +775,7 @@ proc client_start {nr} {
set client_id($nr) $spawn_id
set expect_active($client_id($nr)) " -i $client_id($nr) -re \"($deep_any*)$nl\" { fail \"\$test (unexpected line \$expect_out(1,string))\"; exp_continue } "
set expect_always($client_id($nr)) \
" -i $client_id($nr) eof { fail \"\$test (eof on client$nr); wait\" } -i $client_id($nr) buffer_full { fail \"\$test (buffer_full on client$nr)\" } "
" -i $client_id($nr) eof { fail \"\$test (eof on client$nr)\"; wait } -i $client_id($nr) buffer_full { fail \"\$test (buffer_full on client$nr)\" } "
talk_to client $nr
......@@ -799,7 +799,7 @@ proc client_start_fail {nr {response ""}} {
set client_id($nr) $spawn_id
set expect_active($client_id($nr)) " -i $client_id($nr) -re \"($deep_any*)$nl\" { fail \"\$test (unexpected line \$expect_out(1,string))\"; exp_continue } "
set expect_always($client_id($nr)) \
" -i $client_id($nr) eof { fail \"\$test (eof on client$nr); wait\" } -i $client_id($nr) buffer_full { fail \"\$test (buffer_full on client$nr)\" } "
" -i $client_id($nr) eof { fail \"\$test (eof on client$nr)\"; wait } -i $client_id($nr) buffer_full { fail \"\$test (buffer_full on client$nr)\" } "
talk_to client $nr
......
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