diff options
Diffstat (limited to 'TAO/tests/CDR/run_test.pl')
-rwxr-xr-x | TAO/tests/CDR/run_test.pl | 15 |
1 files changed, 7 insertions, 8 deletions
diff --git a/TAO/tests/CDR/run_test.pl b/TAO/tests/CDR/run_test.pl index 0eb511921eb..8d7b776e395 100755 --- a/TAO/tests/CDR/run_test.pl +++ b/TAO/tests/CDR/run_test.pl @@ -1,10 +1,9 @@ +# $Id$ +# -*- perl -*- eval '(exit $?0)' && eval 'exec perl -S $0 ${1+"$@"}' & eval 'exec perl -S $0 $argv:q' if 0; -# $Id$ -# -*- perl -*- - use lib "../../../bin"; require ACEutils; @@ -17,19 +16,19 @@ $args = ""; $| = 1; print STDERR "\n"; -sub run_test +sub run_test { #my $test = shift (@tests); my $args = shift (@argslist); - + print STDERR "\n$brace $test $args test BEGUN\n"; $TST = Process::Create ($EXEPREFIX."$test".$Process::EXE_EXT, - "$args"); + "$args"); print STDERR "\t$test RUNNING\n"; - $retval = ($TST->Wait ()) / 256; + $retval = ($TST->Wait ()) / 256; if (retval != 0) { - print STDERR "$brace $test $args FAILED; exited with value $retval\n"; + print STDERR "$brace $test $args FAILED; exited with value $retval\n"; } print STDERR "$brace $test ENDED successfully\n"; } |