Commit 66818e08 authored by Per Cederqvist's avatar Per Cederqvist
Browse files

(get_time_client_start): Replaced the "mode" argument with an "args"

	argument, that is a list of arguments to pass to
parent dcdf7383
......@@ -1180,7 +1180,7 @@ proc client_death {nr} {
proc get_time_client_start {nr mode} {
proc get_time_client_start {nr args} {
global get_time_client_id
global clientport
global spawn_id
......@@ -1190,7 +1190,12 @@ proc get_time_client_start {nr mode} {
global expect_active
global deep_any
spawn ./get-time-often --silent $mode localhost $clientport
set cmd "spawn ./get-time-often --silent"
foreach a $args {
set cmd "$cmd $a"
set cmd "$cmd localhost $clientport"
eval $cmd
set get_time_client_id($nr) $spawn_id
set expect_active($get_time_client_id($nr)) " -i $get_time_client_id($nr) -re \"($deep_any*)$nl\" { fail \"\$test (unexpected line \$expect_out(1,string))\"; exp_continue } timeout { fail \"\$test (timeout on get_time_client $nr)\" }"
set expect_always($get_time_client_id($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