diff options
| author | Knut Petter Svendsen <knut@altuma.no> | 2019-10-10 13:59:11 +0200 |
|---|---|---|
| committer | Knut Petter Svendsen <knut@altuma.no> | 2019-10-10 14:13:08 +0200 |
| commit | eb60837204ad2b40e73af2086713d90370cec218 (patch) | |
| tree | 603a7e3340b096e38f3a463979d854125d91a9c3 /TAO | |
| parent | 57c52c1183d8d5e11e725fc9886263dfca11f22c (diff) | |
| download | ATCD-eb60837204ad2b40e73af2086713d90370cec218.tar.gz | |
tao_idl: robustness in run_test.pl
Fail the test if process could not be spawned.
Diffstat (limited to 'TAO')
| -rwxr-xr-x | TAO/tests/IDLv4/annotations/run_test.pl | 7 |
1 files changed, 6 insertions, 1 deletions
diff --git a/TAO/tests/IDLv4/annotations/run_test.pl b/TAO/tests/IDLv4/annotations/run_test.pl index 1f58b600d6b..d4ec613fe41 100755 --- a/TAO/tests/IDLv4/annotations/run_test.pl +++ b/TAO/tests/IDLv4/annotations/run_test.pl @@ -9,7 +9,12 @@ use PerlACE::Run_Test; my $annotest_idl = new PerlACE::Process("annotest_idl", ""); print $annotest_idl->CommandLine (); -$annotest_idl->Spawn (); +my $pid = $annotest_idl->Spawn (); + +if ($pid == -1) { + exit 1 +} + my $annotest_idl_result = $annotest_idl->WaitKill (10); if ($annotest_idl_result > 0) { print STDERR "ERROR: annotest_idl returned $annotest_idl_result\n"; |