1 files changed, 0 insertions, 144 deletions
diff --git a/TAO/orbsvcs/tests/Simple_Naming/run_test.pl b/TAO/orbsvcs/tests/Simple_Naming/run_test.pl
deleted file mode 100755
index 7f5167f5db5..00000000000
--- a/TAO/orbsvcs/tests/Simple_Naming/run_test.pl
+++ /dev/null
@@ -1,144 +0,0 @@
-eval '(exit $?0)' && eval 'exec perl -S $0 ${1+"$@"}'
-    & eval 'exec perl -S $0 $argv:q'
-    if 0;
-
-# $Id$
-# -*- perl -*-
-
-# This is a Perl script that runs all Naming Service tests.  It starts
-# all the servers and clients as necessary.
-
-unshift @INC, '../../../../bin';
-require Process;
-require ACEutils;
-require Uniqueid;
-
-# Amount of delay (in seconds) between starting a server and a client
-# to allow proper server initialization.
-$sleeptime = 8;
-
-# Variables for command-line arguments to client and server
-# executables. 
-$ns_multicast_port = 10000 + uniqueid ();  
-$ns_orb_port = 12000 + uniqueid ();
-$iorfile = "ns.ior";
-$persistent_ior_file = "pns.ior";
-$persistent_log_file = "test_log";
-$data_file = "test_run.data";
-
-sub name_server
-{
-  my $args = "@_ "."-ORBnameserviceport $ns_multicast_port -o $iorfile";
-  my $prog = "..$DIR_SEPARATOR..$DIR_SEPARATOR".
-      "Naming_Service".$DIR_SEPARATOR.
-          "Naming_Service".$EXE_EXT;
-
-  unlink $iorfile;
-  $NS = Process::Create ($prog, $args);
-
-  if (ACE::waitforfile_timed ($iorfile, $sleeptime) == -1) {
-    print STDERR "ERROR: cannot find IOR file <$iorfile>\n";
-    $NS->Kill (); $NS->TimedWait (1);
-    exit 1;
-  }
-}
-
-sub client
-{
-  my $args = "@_"." ";
-  my $prog = $EXEPREFIX."client".$EXE_EXT;
-
-  $CL = Process::Create ($prog, $args);
-
-  $client = $CL->TimedWait (60);
-  if ($client == -1) {
-      print STDERR "ERROR: client timedout\n";
-      $CL->Kill (); $CL->TimedWait (1);
-  }
-}
-
-# Options for all simple tests recognized by the 'client' program.
-@opts = ("-s -ORBnameserviceior file://$iorfile",
-         "-s -ORBnameserviceport $ns_multicast_port",
-         "-t -ORBnameserviceior file://$iorfile", 
-         "-i -ORBnameserviceior file://$iorfile", 
-         "-e -ORBnameserviceior file://$iorfile", 
-         "-y -ORBnameserviceior file://$iorfile",
-         "-p $persistent_ior_file -ORBnameserviceior file://$iorfile",
-         "-c file://$persistent_ior_file -ORBnameserviceior file://$iorfile");
-
-@server_opts = ("", "", "", "", "", "",
-                "-ORBEndpoint iiop://localhost:$ns_orb_port -f $persistent_log_file",
-                "-ORBEndpoint iiop://localhost:$ns_orb_port -f $persistent_log_file");
-
-@comments = ("Simple Test: \n",
-             "Simple Test (using multicast to locate the server): \n",
-             "Tree Test: \n",
-             "Iterator Test: \n",
-             "Exceptions Test: \n",
-             "Destroy Test: \n",
-             "Persistent Test (Part 1): \n",
-             "Persistent Test (Part 2): \n");
-
-$test_number = 0;
-
-unlink $persistent_ior_file, $persistent_log_file;
-
-# Run server and client for each of the tests.  Client uses ior in a
-# file to bootstrap to the server.
-foreach $o (@opts)
-{
-  name_server ($server_opts[$test_number]);
-
-  print STDERR "\n          ".$comments[$test_number];
-
-  client ($o);
-
-  $NS->Terminate (); $server = $NS->TimedWait (5);
-  if ($server == -1) {
-    print STDERR "ERROR: server timedout\n";
-    $NS->Kill (); $NS->TimedWait (1);
-  }
-  $test_number++;
-}
-
-unlink $persistent_ior_file, $persistent_log_file;
-
-# Now run the multithreaded test, sending output to the file.
-print STDERR "\n          Multithreaded Test:\n";
-unlink $data_file;
-
-open (OLDOUT, ">&STDOUT");
-open (STDOUT, ">$data_file") or die "can't redirect stdout: $!";
-open (OLDERR, ">&STDERR");
-open (STDERR, ">&STDOUT") or die "can't redirect stderror: $!";
-
-name_server ();
-
-client ("-ORBnameserviceior file://$iorfile", "-m25");
-
-close (STDERR);
-close (STDOUT);
-open (STDOUT, ">&OLDOUT");
-open (STDERR, ">&OLDERR");
-
-$NS->Terminate (); $server = $NS->TimedWait (5);
-if ($server == -1) {
-  print STDERR "ERROR: server timedout\n";
-  $NS->Kill (); $NS->TimedWait (1);
-}
-
-unlink $iorfile;
-
-$FL = Process::Create ($EXEPREFIX."process-m-output.pl",
-                       " test_run.data 25");
-$filter = $FL->TimedWait (60);
-if ($filter == -1) {
-  print STDERR "ERROR: filter timedout\n";
-  $FL->Kill (); $FL->TimedWait (1);
-}
-print STDERR "\n";
-
-# @@ Capture any exit status from the processes.
-exit 0;
-