diff options
Diffstat (limited to 'TAO/tests/MT_Client/run_test.pl')
-rwxr-xr-x | TAO/tests/MT_Client/run_test.pl | 4 |
1 files changed, 2 insertions, 2 deletions
diff --git a/TAO/tests/MT_Client/run_test.pl b/TAO/tests/MT_Client/run_test.pl index 75e9d17ff21..a20fe374114 100755 --- a/TAO/tests/MT_Client/run_test.pl +++ b/TAO/tests/MT_Client/run_test.pl @@ -35,14 +35,14 @@ if (PerlACE::is_vxworks_test()) { else { $SV = new PerlACE::Process ("server", "-ORBsvcconf $server_conf -ORBdebuglevel $debug_level -o $iorfile"); } -$CL = new PerlACE::Process ($client_process, +$CL = new PerlACE::Process ($client_process, "-ORBdebuglevel $debug_level " . "-k file://$iorfile " . "-n $threads -i 1000 -x"); $SV->Spawn (); -if (PerlACE::waitforfile_timed ($iorfile, 30) == -1) { +if (PerlACE::waitforfile_timed ($iorfile, $PerlACE::wait_interval_for_process_creation) == -1) { print STDERR "ERROR: cannot find file <$iorfile>\n"; $SV->Kill (); exit 1; |