diff options
-rwxr-xr-x | TAO/tests/Timeout/run_test.pl | 11 |
1 files changed, 7 insertions, 4 deletions
diff --git a/TAO/tests/Timeout/run_test.pl b/TAO/tests/Timeout/run_test.pl index 5e7238864fe..22fa4cbe723 100755 --- a/TAO/tests/Timeout/run_test.pl +++ b/TAO/tests/Timeout/run_test.pl @@ -22,12 +22,15 @@ else { $CL = new PerlACE::Process ("client", "-ORBDebugLevel 0 -k file://$iorfile -l 20 -h 40"); -$SV->Spawn (); +$server_spawn = $SV->Spawn (); + +if ($server_spawn != 0) { + print STDERR "ERROR: server returned $server_spawn\n"; + exit 1; +} -# if (PerlACE::waitforfile_timed ($iorfile, -# $PerlACE::wait_interval_for_process_creation) == -1) { if (PerlACE::waitforfile_timed ($iorfile, - 10) == -1) { # wait for 10 seconds + $PerlACE::wait_interval_for_process_creation) == -1) { print STDERR "ERROR: cannot find file <$iorfile>\n"; $SV->Kill (); exit 1; |