1 files changed, 0 insertions, 166 deletions
diff --git a/TAO/orbsvcs/tests/ImplRepo/run_test.pl b/TAO/orbsvcs/tests/ImplRepo/run_test.pl
deleted file mode 100755
index 47eda1fa345..00000000000
--- a/TAO/orbsvcs/tests/ImplRepo/run_test.pl
+++ /dev/null
@@ -1,166 +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;
-
-$airplane_ior = "airplane.ior";
-$simple_ior = "simple.ior";
-$implrepo_ior = "implrepo.ior";
-
-# Make sure the files are gone, so we can wait on them.
-unlink $airplane_ior;
-unlink $simple_ior;
-unlink $implrepo_ior;
-
-# The Tests
-
-sub airplane_test
-{
-  $SV = Process::Create ($EXEPREFIX."airplane_server".$Process::EXE_EXT,
-                         "-o $airplane_ior -r");
-
-  ACE::waitforfile ($airplane_ior);
-
-  $status = system ($EXEPREFIX."airplane_client".$Process::EXE_EXT.
-                    " -f $airplane_ior");
-
-  $SV->Kill (); $SV->Wait ();
-  unlink $airplane_ior;
-}
-
-sub airplane_ir_test
-{
-  $IR = Process::Create ("..".$DIR_SEPARATOR."..".$DIR_SEPARATOR."ImplRepo_Service".$DIR_SEPARATOR."ImplRepo_Service".$Process::EXE_EXT, 
-                         "-ORBsvcconf implrepo.conf -ORBobjrefstyle url -d 0");
-
-  ACE::waitforfile ($implrepo_ior);
-
-  $SV = Process::Create ($EXEPREFIX."airplane_server".$Process::EXE_EXT,
-                         "-o $airplane_ior -i -r -ORBobjrefstyle url");
-
-  ACE::waitforfile ($airplane_ior);
-
-  system($EXEPREFIX."airplane_client -f $airplane_ior -ORBobjrefstyle url");
-
-  $IR->Kill (); $IR->Wait ();
-}
-
-sub simple_test
-{
-  $SV = Process::Create ($EXEPREFIX."server".$Process::EXE_EXT,
-                         "-o $simple_ior");
-
-  ACE::waitforfile ($simple_ior);
-
-  $status = system ($EXEPREFIX."client".$Process::EXE_EXT.
-                    " -f $simple_ior");
-
-  $SV->Kill (); $SV->Wait ();
-
-  unlink $simple_ior;
-}
-
-sub implrepo_test
-{
-  $IR = Process::Create ("..".$DIR_SEPARATOR."..".$DIR_SEPARATOR."ImplRepo_Service".$DIR_SEPARATOR."ImplRepo_Service".$Process::EXE_EXT, 
-                         "-ORBsvcconf implrepo.conf");
-
-  ACE::waitforfile ("implrepo.ior");
-
-  system ($EXEPREFIX."server -r -o svr.ior");
-
-  $SV = Process::Create ($EXEPREFIX."server".$Process::EXE_EXT, "");
-
-  sleep $ACE::sleeptime;
-
-  $PSV = Process::Create ($EXEPREFIX."airplane_server".$Process::EXE_EXT,
-                          "-o $airplane_ior -i -r");
-
-  ACE::waitforfile ($airplane_ior);
-
-  $PCL = Process::Create ($EXEPREFIX."airplane_client".$Process::EXE_EXT,
-                          " -f $airplane_ior");
-
-  system ($EXEPREFIX."client -f svr.ior");
-
-  $IR->Kill (); $IR->Wait ();
-}
-
-sub implrepo2_test
-{
-  $IR = Process::Create ("..".$DIR_SEPARATOR."..".$DIR_SEPARATOR."ImplRepo_Service".$DIR_SEPARATOR."ImplRepo_Service".$Process::EXE_EXT, 
-                         "-ORBsvcconf implrepo.conf");
-
-  ACE::waitforfile ("implrepo.ior");
-
-  system ($EXEPREFIX."server -r -o svr.ior");
-
-  $SV = Process::Create ($EXEPREFIX."server".$Process::EXE_EXT, "");
-
-  sleep $ACE::sleeptime;
-
-  $PSV = Process::Create ($EXEPREFIX."airplane_server".$Process::EXE_EXT,
-                          "-o $airplane_ior -i -r");
-
-  ACE::waitforfile ($airplane_ior);
-
-  $PCL = Process::Create ($EXEPREFIX."client".$Process::EXE_EXT,
-                          " -f $svr_ior");
-
-  system ($EXEPREFIX."airplane_client -f $airplane_ior");
-
-  $IR->Kill (); $IR->Wait ();
-}
-
-
-
-# Parse the arguments
-
-for ($i = 0; $i <= $#ARGV; $i++)
-{
-  SWITCH:
-  {
-    if ($ARGV[$i] eq "-h" || $ARGV[$i] eq "-?")
-    {
-      print "run_test test\n";
-      print "\n";
-      print "test               -- Runs a specific test\n";
-      print "                      airplane, simple, or implrepo\n";
-      exit;
-    }
-    if ($ARGV[$i] eq "airplane")
-    {
-      airplane_test ();    
-      exit;
-    }
-    if ($ARGV[$i] eq "airplane_ir")
-    {
-      airplane_ir_test ();    
-      exit;
-    }
-    if ($ARGV[$i] eq "simple")
-    {
-      simple_test ();    
-      exit;
-    }
-    if ($ARGV[$i] eq "implrepo")
-    {
-      implrepo_test ();    
-      exit;
-    }
-    if ($ARGV[$i] eq "implrepo2")
-    {
-      implrepo2_test ();    
-      exit;
-    }
-
-    print "run_test: Unknown Option: ".$ARGV[$i]."\n";
-  }
-}
-
-print "Specify airplane, airplane_ir\n"