diff options
| author | gmaxey <gmaxey@ae88bc3d-4319-0410-8dbf-d08b4c9d3795> | 2004-11-19 20:54:50 +0000 |
|---|---|---|
| committer | gmaxey <gmaxey@ae88bc3d-4319-0410-8dbf-d08b4c9d3795> | 2004-11-19 20:54:50 +0000 |
| commit | 6427cdba6308a95e6ed43eac3b983a5123646706 (patch) | |
| tree | 5c07fabf3c1aa7deaf27df1c1b073ad4e49fcf60 /TAO/tests/NestedUpcall/MT_Client_Test/run_test.pl | |
| parent | f3809ce489e20a5932098c737073be2bd4165b60 (diff) | |
| download | ATCD-6427cdba6308a95e6ed43eac3b983a5123646706.tar.gz | |
ChangeLogTag: Fri Nov 19 12:46:00 2004 Gary Maxey <gary.maxey@hp.com>
Diffstat (limited to 'TAO/tests/NestedUpcall/MT_Client_Test/run_test.pl')
| -rwxr-xr-x | TAO/tests/NestedUpcall/MT_Client_Test/run_test.pl | 6 |
1 files changed, 4 insertions, 2 deletions
diff --git a/TAO/tests/NestedUpcall/MT_Client_Test/run_test.pl b/TAO/tests/NestedUpcall/MT_Client_Test/run_test.pl index a75bf048920..a4b04ac467b 100755 --- a/TAO/tests/NestedUpcall/MT_Client_Test/run_test.pl +++ b/TAO/tests/NestedUpcall/MT_Client_Test/run_test.pl @@ -23,14 +23,16 @@ $CL = new PerlACE::Process ("client", "-f $ior1file -g $ior2file -n 2 -i 10 -s 5 $SV1->Spawn (); $SV2->Spawn (); -if (PerlACE::waitforfile_timed ($ior1file, 5) == -1) { +if (PerlACE::waitforfile_timed ($ior1file, + $PerlACE::wait_interval_for_process_creation) == -1) { print STDERR "ERROR: cannot find file <$ior1file>\n"; $SV1->Kill (); $SV2->Kill (); exit 1; } -if (PerlACE::waitforfile_timed ($ior2file, 5) == -1) { +if (PerlACE::waitforfile_timed ($ior2file, + $PerlACE::wait_interval_for_process_creation) == -1) { print STDERR "ERROR: cannot find file <$ior2file>\n"; $SV1->Kill (); $SV2->Kill (); |