summaryrefslogtreecommitdiff
path: root/TAO/tests/Param_Test/run_test.pl
diff options
context:
space:
mode:
authorcoryan <coryan@ae88bc3d-4319-0410-8dbf-d08b4c9d3795>1998-08-13 14:20:54 +0000
committercoryan <coryan@ae88bc3d-4319-0410-8dbf-d08b4c9d3795>1998-08-13 14:20:54 +0000
commit06d695647eed08b7e78b6c560bd2c6eaa2420ed9 (patch)
treead7cc4a9bbd541c2695b4dd7396c1fc790c947af /TAO/tests/Param_Test/run_test.pl
parent456a2b285ecc766606b53677ac21f07e46eb071e (diff)
downloadATCD-06d695647eed08b7e78b6c560bd2c6eaa2420ed9.tar.gz
ChangeLogTag:Thu Aug 13 09:14:12 1998 Carlos O'Ryan <coryan@cs.wustl.edu>
Diffstat (limited to 'TAO/tests/Param_Test/run_test.pl')
-rwxr-xr-xTAO/tests/Param_Test/run_test.pl15
1 files changed, 9 insertions, 6 deletions
diff --git a/TAO/tests/Param_Test/run_test.pl b/TAO/tests/Param_Test/run_test.pl
index b6630ce32c2..55d6e2a5df9 100755
--- a/TAO/tests/Param_Test/run_test.pl
+++ b/TAO/tests/Param_Test/run_test.pl
@@ -1,4 +1,4 @@
-#$Id$
+# $Id$
# -*- perl -*-
eval '(exit $?0)' && eval 'exec perl -S $0 ${1+"$@"}'
& eval 'exec perl -S $0 $argv:q'
@@ -90,11 +90,14 @@ for ($i = 0; $i <= $#ARGV; $i++)
}
}
-@types = ("short", "ubstring", "bdstring", "fixed_struct", "strseq",
- "bounded_strseq", "var_struct", "nested_struct", "struct_seq",
- "bounded_struct_seq", "any", "objref", "objref_sequence",
- "any_sequence", "short_sequence", "long_sequence",
- "bounded_short_sequence", "bounded_long_sequence",
+@types = ("short", "ubstring", "bdstring", "fixed_struct",
+ "ub_strseq", "bd_strseq",
+ "var_struct", "nested_struct",
+ "ub_struct_seq", "bd_struct_seq",
+ "any", "objref", "objref_sequence",
+ "any_sequence",
+ "ub_short_sequence", "ub_long_sequence",
+ "bd_short_sequence", "bd_long_sequence",
"fixed_array", "var_array", "typecode");
if ($type ne "")