diff options
author | coryan <coryan@ae88bc3d-4319-0410-8dbf-d08b4c9d3795> | 1999-06-20 03:28:04 +0000 |
---|---|---|
committer | coryan <coryan@ae88bc3d-4319-0410-8dbf-d08b4c9d3795> | 1999-06-20 03:28:04 +0000 |
commit | b41eba54d0e93b1325ea64ae5eae10da7c9413c5 (patch) | |
tree | 747dffef0dc2131ba5f43477f7c80604bdea6b41 /TAO/tests/Multiple_Inheritance | |
parent | 6c9618e44275e058a85ff8f1dab085dfd12a3ca5 (diff) | |
download | ATCD-b41eba54d0e93b1325ea64ae5eae10da7c9413c5.tar.gz |
ChangeLogTag:Sat Jun 19 22:27:35 1999 Carlos O'Ryan <coryan@cs.wustl.edu>
Diffstat (limited to 'TAO/tests/Multiple_Inheritance')
-rwxr-xr-x | TAO/tests/Multiple_Inheritance/run_test.pl | 36 |
1 files changed, 28 insertions, 8 deletions
diff --git a/TAO/tests/Multiple_Inheritance/run_test.pl b/TAO/tests/Multiple_Inheritance/run_test.pl index 62efff0ff29..c8e6ca8b4aa 100755 --- a/TAO/tests/Multiple_Inheritance/run_test.pl +++ b/TAO/tests/Multiple_Inheritance/run_test.pl @@ -9,14 +9,34 @@ unshift @INC, '../../../bin'; require ACEutils; $iorfile = "server.ior"; -$SV = Process::Create ($EXEPREFIX."server$EXE_EXT", " -f $iorfile"); - -ACE::waitforfile ($iorfile); - -$status = system ($EXEPREFIX."client$EXE_EXT -f $iorfile"); - -$SV->Kill (); $SV->Wait (); +$SV = Process::Create ($EXEPREFIX."server$EXE_EXT", + " -f $iorfile"); + +if (ACE::waitforfile_timed ($iorfile, 5) == -1) { + print STDERR "ERROR: cannot find file <$iorfile>\n"; + $SV->Kill (); $SV->TimedWait (1); + exit 1; +} + +$CL = Process::Create ($EXEPREFIX."client$EXE_EXT", + " -f $iorfile"); + +$client = $CL->TimedWait (60); +if ($client == -1) { + print STDERR "ERROR: client timedout\n"; + $CL->Kill (); $CL->TimedWait (1); +} + +$SV->Terminate (); $server = $SV->TimedWait (5); +if ($server == -1) { + print STDERR "ERROR: server timedout\n"; + $SV->Kill (); $SV->TimedWait (1); +} unlink $iorfile; -exit $status; +if ($server != 0 || $client != 0) { + exit 1; +} + +exit 0; |