1 files changed, 0 insertions, 60 deletions
diff --git a/TAO/tests/DynAny_Test/run_test.pl b/TAO/tests/DynAny_Test/run_test.pl
deleted file mode 100755
index 6e894398de5..00000000000
--- a/TAO/tests/DynAny_Test/run_test.pl
+++ /dev/null
@@ -1,60 +0,0 @@
-eval '(exit $?0)' && eval 'exec perl -S $0 ${1+"$@"}'
-    & eval 'exec perl -S $0 $argv:q'
-    if 0;
-
-# $Id$
-# -*- perl -*-
-
-use lib "../../../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 (10);
-    
-    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;
-