diff options
Diffstat (limited to 'TAO/tests/Param_Test/run_test.pl')
-rwxr-xr-x | TAO/tests/Param_Test/run_test.pl | 9 |
1 files changed, 4 insertions, 5 deletions
diff --git a/TAO/tests/Param_Test/run_test.pl b/TAO/tests/Param_Test/run_test.pl index 26a8d65f916..4aaf42d658e 100755 --- a/TAO/tests/Param_Test/run_test.pl +++ b/TAO/tests/Param_Test/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; require Process; @@ -24,7 +23,7 @@ sub run_test $SV = Process::Create ($EXEPREFIX."server".$Process::EXE_EXT, "$debug -ORBport $port -o ". $iorfile); - + ACE::waitforfile ($iorfile); system ($EXEPREFIX."client $debug -f $iorfile -i $invocation -t ". @@ -104,7 +103,7 @@ for ($i = 0; $i <= $#ARGV; $i++) "ub_short_sequence", "ub_long_sequence", "bd_short_sequence", "bd_long_sequence", "fixed_array", "var_array", "typecode", "exception", - "big_union", "complex_any"); + "big_union"); if ($type ne "") { |