1 files changed, 60 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..06eab10a14b
--- /dev/null
+++ b/TAO/tests/DynAny_Test/run_test.pl
@@ -0,0 +1,60 @@
+eval '(exit $?0)' && eval 'exec perl -S $0 ${1+"$@"}'
+    & eval 'exec perl -S $0 $argv:q'
+    if 0;
+
+# $Id$
+# -*- perl -*-
+
+use lib "$ENV{ACE_ROOT}/bin";
+use PerlACE::Run_Test;
+
+$status = 0;
+$type = "";
+
+sub run_test
+{
+    my $type = shift(@_);
+
+    if (PerlACE::is_vxworks_test()) {
+        $BT = new PerlACE::ProcessVX ("basic_test", "-t $type");
+    }
+    else {
+        $BT = new PerlACE::Process ("basic_test", "-t $type");
+    }
+    my $basictest = $BT->SpawnWaitKill ($PerlACE::wait_interval_for_process_creation);
+
+    if ($basictest != 0) {
+        print STDERR "ERROR: basic test for ($type) returned $basictest\n";
+        $status = 1;
+    }
+}
+
+for ($i = 0; $i <= $#ARGV; $i++) {
+    if ($ARGV[$i] eq "-h" || $ARGV[$i] eq "-?") {
+        print "Run_Test Perl script for TAO DynAny Test\n\n";
+        print "run_test [-chorus <target>] [-t type]\n";
+        print "\n";
+        print "-t type             -- runs only one type of dynany test\n";
+        exit;
+    }
+    elsif ($ARGV[$i] eq "-t") {
+        $type = $ARGV[$i + 1];
+        $i++;
+    }
+}
+
+@types = ("dynany", "dynarray", "dynenum", "dynsequence", "dynstruct",
+          "dynunion");
+
+
+if ($type ne "") {
+    run_test ($type);
+}
+else {
+    foreach $type (@types) {
+        run_test ($type);
+    }
+}
+
+exit $status;
+