diff options
Diffstat (limited to 'TAO/tests/IDLv4/annotations/run_test.pl')
-rwxr-xr-x | TAO/tests/IDLv4/annotations/run_test.pl | 32 |
1 files changed, 14 insertions, 18 deletions
diff --git a/TAO/tests/IDLv4/annotations/run_test.pl b/TAO/tests/IDLv4/annotations/run_test.pl index a1cad7ce3c7..1f58b600d6b 100755 --- a/TAO/tests/IDLv4/annotations/run_test.pl +++ b/TAO/tests/IDLv4/annotations/run_test.pl @@ -3,29 +3,25 @@ eval '(exit $?0)' && eval 'exec perl -S $0 ${1+"$@"}' if 0; use strict; -use Env (ACE_ROOT); +use Env qw(ACE_ROOT); use lib "$ACE_ROOT/bin"; -use PerlACE::Run_Test +use PerlACE::Run_Test; -my $status = 0; - -my $annotest_idl = PerlDDS::create_process ("annotest_idl", ""); +my $annotest_idl = new PerlACE::Process("annotest_idl", ""); print $annotest_idl->CommandLine (); $annotest_idl->Spawn (); my $annotest_idl_result = $annotest_idl->WaitKill (10); -if ($annotest_idl_result > 0) - { - print STDERR "ERROR: annotest_idl returned $annotest_idl_result\n"; - } -$status = 1 if $annotest_idl_result; +if ($annotest_idl_result > 0) { + print STDERR "ERROR: annotest_idl returned $annotest_idl_result\n"; +} + +my $status = 1 if $annotest_idl_result; -if ($status) - { - print STDERR "test FAILED"; - } -else - { - print "test PASSED"; - } +if ($status) { + print STDERR "test FAILED"; +} +else { + print "test PASSED"; +} exit $status |