diff options
| author | brunsch <brunsch@ae88bc3d-4319-0410-8dbf-d08b4c9d3795> | 2001-03-05 03:23:49 +0000 |
|---|---|---|
| committer | brunsch <brunsch@ae88bc3d-4319-0410-8dbf-d08b4c9d3795> | 2001-03-05 03:23:49 +0000 |
| commit | 417d64578f2d7cb67ebc0b9df4f6461ca42cae17 (patch) | |
| tree | 8bb327569be3f54d7ca99ad830c1c991170ea28d /TAO/tests/IDL_Test/run_test.pl | |
| parent | 6ff49d9e17499c0aae245864353f31a2b1186c9f (diff) | |
| download | ATCD-417d64578f2d7cb67ebc0b9df4f6461ca42cae17.tar.gz | |
ChangeLogTag:Sun Mar 4 19:12:59 2001 Darrell Brunsch <brunsch@uci.edu>
Diffstat (limited to 'TAO/tests/IDL_Test/run_test.pl')
| -rwxr-xr-x | TAO/tests/IDL_Test/run_test.pl | 14 |
1 files changed, 7 insertions, 7 deletions
diff --git a/TAO/tests/IDL_Test/run_test.pl b/TAO/tests/IDL_Test/run_test.pl index dc67cc4a602..5f74f1ef6c2 100755 --- a/TAO/tests/IDL_Test/run_test.pl +++ b/TAO/tests/IDL_Test/run_test.pl @@ -6,15 +6,15 @@ eval '(exit $?0)' && eval 'exec perl -S $0 ${1+"$@"}' # -*- perl -*- use lib "../../../bin"; -require ACEutils; -require Process; +use PerlACE::Run_Test; -$M = Process::Create ($EXEPREFIX."main".$EXE_EXT); +$T = new PerlACE::Process ("main"); -$test = $M->TimedWait (10); +$test = $T->SpawnWaitKill (60); -if ($test == -1) { - print STDERR "ERROR: test timedout\n"; - $M->Kill (); $M->TimedWait (1); +if ($test != 0) { + print STDERR "ERROR: test returned $test\n"; + exit 1; } +exit 0; |