*** empty log message ***

1 files changed, 61 insertions, 0 deletions

diff --git a/TAO/tests/DynAny_Test/run_test.pl b/TAO/tests/DynAny_Test/run_test.pl
new file mode 100755
index 00000000000..f3240961015
--- /dev/null
+++ b/TAO/tests/DynAny_Test/run_test.pl
@@ -0,0 +1,61 @@
+# $Id$
+# -*- perl -*-
+eval '(exit $?0)' && eval 'exec perl -S $0 ${1+"$@"}'
+    & eval 'exec perl -S $0 $argv:q'
+    if 0;
+
+use lib "../../../bin";
+require ACEutils;
+
+$type = "";
+$other = "";
+
+sub run_test
+{
+  my $type = shift(@_);
+
+  print (".".$DIR_SEPARATOR."basic_test -t "."$type");
+  system (".".$DIR_SEPARATOR."basic_test -t "."$type");
+
+}
+
+# Parse the arguments
+
+for ($i = 0; $i <= $#ARGV; $i++)
+{
+  SWITCH:
+  {
+    if ($ARGV[$i] eq "-h" || $ARGV[$i] eq "-?")
+    {
+      print "Run_Test Perl script for TAO DynAny Test\n\n";
+      print "run_test [-t type]\n";
+      print "\n";
+      print "-t type             -- runs only one type of dynany test\n";
+      exit;
+    }
+    if ($ARGV[$i] eq "-t")
+    {
+      $type = $ARGV[$i + 1];
+      $i++;
+      last SWITCH;
+    }
+    $other .= $ARGV[$i];
+  }
+}
+
+@types = ("dynany", "dynarray", "dynenum", "dynsequence", "dynstruct",
+          "dynunion");
+
+if ($type ne "")
+{
+  run_test ($type);
+}
+else
+{
+  foreach $type (@types)
+  {
+    run_test ($type);
+  }
+}
+
+