1 files changed, 0 insertions, 58 deletions
diff --git a/TAO/tests/DynAny_Test/run_test.pl b/TAO/tests/DynAny_Test/run_test.pl
deleted file mode 100755
index d16d5907fe5..00000000000
--- a/TAO/tests/DynAny_Test/run_test.pl
+++ /dev/null
@@ -1,58 +0,0 @@
-# $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 = "";
-
-sub run_test
-{
-  my $type = shift(@_);
-
-  system ($EXEPREFIX."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;
-    }
-  }
-}
-
-@types = ("dynany", "dynarray", "dynenum", "dynsequence", "dynstruct",
-          "dynunion");
-
-if ($type ne "")
-{
-  run_test ($type);
-}
-else
-{
-  foreach $type (@types)
-  {
-    run_test ($type);
-  }
-}
-
-