diff options
author | Johnny Willemsen <jwillemsen@remedy.nl> | 2007-04-19 12:47:07 +0000 |
---|---|---|
committer | Johnny Willemsen <jwillemsen@remedy.nl> | 2007-04-19 12:47:07 +0000 |
commit | 9eb192a98cc7ba1ad411b9c44e1e600ccfe236b8 (patch) | |
tree | 695896562aa1f5abbde5accc7d585e002aebbfeb /TAO/orbsvcs/tests/Notify/Discarding | |
parent | e994589779a9df72f88c6e407b9ae4990fd01620 (diff) | |
download | ATCD-9eb192a98cc7ba1ad411b9c44e1e600ccfe236b8.tar.gz |
Thu Apr 19 12:43:12 UTC 2007 Johnny Willemsen <jwillemsen@remedy.nl>
Diffstat (limited to 'TAO/orbsvcs/tests/Notify/Discarding')
-rwxr-xr-x | TAO/orbsvcs/tests/Notify/Discarding/run_test.pl | 12 |
1 files changed, 6 insertions, 6 deletions
diff --git a/TAO/orbsvcs/tests/Notify/Discarding/run_test.pl b/TAO/orbsvcs/tests/Notify/Discarding/run_test.pl index 3df2a3824a3..954df4092ae 100755 --- a/TAO/orbsvcs/tests/Notify/Discarding/run_test.pl +++ b/TAO/orbsvcs/tests/Notify/Discarding/run_test.pl @@ -57,7 +57,7 @@ $client_args = "-ORBInitRef NameService=iioploc://localhost:" . "$port/NameService"; $NS->Spawn (); -if (PerlACE::waitforfile_timed ($namingior, 5) == -1) { +if (PerlACE::waitforfile_timed ($namingior, $PerlACE::wait_interval_for_process_creation) == -1) { print STDERR "ERROR: waiting for the naming service to start\n"; $NS->Kill (); exit 1; @@ -65,7 +65,7 @@ if (PerlACE::waitforfile_timed ($namingior, 5) == -1) { $TS->Spawn (); -if (PerlACE::waitforfile_timed ($notifyior, 5) == -1) { +if (PerlACE::waitforfile_timed ($notifyior, $PerlACE::wait_interval_for_process_creation) == -1) { print STDERR "ERROR: waiting for the notify service to start\n"; $TS->Kill (); $NS->Kill (); @@ -87,7 +87,7 @@ for($i = 0; $i <= $#policies; $i++) { $STS->Arguments($STS->Arguments() . $server_opts[$i]); $STS->Spawn (); - if (PerlACE::waitforfile_timed ($ior, 5) == -1) { + if (PerlACE::waitforfile_timed ($ior, $PerlACE::wait_interval_for_process_creation) == -1) { print STDERR "ERROR: waiting for the supplier to start\n"; $STS->Kill (); $TS->Kill (); @@ -119,7 +119,7 @@ if ($status == 0) { $STS->Arguments($STS->Arguments() . $server_opts[$i]); $STS->Spawn (); - if (PerlACE::waitforfile_timed ($ior, 5) == -1) { + if (PerlACE::waitforfile_timed ($ior, $PerlACE::wait_interval_for_process_creation) == -1) { print STDERR "ERROR: waiting for the supplier to start\n"; $STS->Kill (); $TS->Kill (); @@ -152,7 +152,7 @@ if ($status == 0) { $SES->Arguments($SES->Arguments() . $server_opts[$i]); $SES->Spawn (); - if (PerlACE::waitforfile_timed ($ior, 5) == -1) { + if (PerlACE::waitforfile_timed ($ior, $PerlACE::wait_interval_for_process_creation) == -1) { print STDERR "ERROR: waiting for the supplier to start\n"; $SES->Kill (); $TS->Kill (); @@ -185,7 +185,7 @@ if ($status == 0) { $SES->Arguments($SES->Arguments() . $server_opts[$i]); $SES->Spawn (); - if (PerlACE::waitforfile_timed ($ior, 5) == -1) { + if (PerlACE::waitforfile_timed ($ior, $PerlACE::wait_interval_for_process_creation) == -1) { print STDERR "ERROR: waiting for the supplier to start\n"; $SES->Kill (); $TS->Kill (); |