diff options
author | Johnny Willemsen <jwillemsen@remedy.nl> | 2007-03-06 09:52:47 +0000 |
---|---|---|
committer | Johnny Willemsen <jwillemsen@remedy.nl> | 2007-03-06 09:52:47 +0000 |
commit | 8dd86e10ff89f7d55f793ce4ccfa4a2fae989289 (patch) | |
tree | d190be54ebef74c429f888b681db68247633f553 /TAO/tests/Leader_Followers | |
parent | 387f77592f5b395cc935b1b6843ddbc707b70dbb (diff) | |
download | ATCD-8dd86e10ff89f7d55f793ce4ccfa4a2fae989289.tar.gz |
Tue Mar 6 09:52:32 UTC 2007 Johnny Willemsen <jwillemsen@remedy.nl>
Diffstat (limited to 'TAO/tests/Leader_Followers')
-rwxr-xr-x | TAO/tests/Leader_Followers/run_test.pl | 14 |
1 files changed, 7 insertions, 7 deletions
diff --git a/TAO/tests/Leader_Followers/run_test.pl b/TAO/tests/Leader_Followers/run_test.pl index 17e87c6a4b2..7143445dee6 100755 --- a/TAO/tests/Leader_Followers/run_test.pl +++ b/TAO/tests/Leader_Followers/run_test.pl @@ -30,7 +30,7 @@ sub run_client ($) $CL->Arguments ("-k file://$iorfile " . $args); my $client = $CL->SpawnWaitKill (200); - + if ($client != 0) { $time = localtime; print STDERR "ERROR: client returned $client at $time\n"; @@ -123,9 +123,9 @@ if ($single == 1) { $SV->Spawn (); - if (PerlACE::waitforfile_timed ($iorfile, 10) == -1) { + if (PerlACE::waitforfile_timed ($iorfile, $PerlACE::wait_interval_for_process_creation) == -1) { print STDERR "ERROR: cannot find file <$iorfile>\n"; - $SV->Kill (); + $SV->Kill (); exit 1; } @@ -143,16 +143,16 @@ if ($single == 1) { if ($multi == 1) { unlink $iorfile; - + print STDERR "\n\n*** Thread-Pool server ***\n\n\n"; $SV->Arguments ("-o $sv_iorfile -e 5 $tpool_reactor_directive"); $SV->Spawn (); - if (PerlACE::waitforfile_timed ($iorfile, 10) == -1) { + if (PerlACE::waitforfile_timed ($iorfile, $PerlACE::wait_interval_for_process_creation) == -1) { print STDERR "ERROR: cannot find file <$iorfile>\n"; - $SV->Kill (); + $SV->Kill (); exit 1; } @@ -163,7 +163,7 @@ if ($multi == 1) { if ($server != 0) { $time = localtime; print STDERR "ERROR: server returned $server at $time\n"; - $SV->Kill (); + $SV->Kill (); } unlink $iorfile; |