Now is run_test.pl

1 files changed, 0 insertions, 119 deletions

diff --git a/TAO/orbsvcs/tests/Logger/runtests.pl b/TAO/orbsvcs/tests/Logger/runtests.pl
deleted file mode 100755
index 9ae7e6ea636..00000000000
--- a/TAO/orbsvcs/tests/Logger/runtests.pl
+++ /dev/null
@@ -1,119 +0,0 @@
-# $Id$
-eval '(exit $?0)' && eval 'exec perl -S $0 ${1+"$@"}'
-    & eval 'exec perl -S $0 $argv:q'
-    if 0;
-
-# This is a Perl script that runs the client and all the other servers that
-# are needed
-
-unshift @INC, '../../../../bin';
-require Process;
-
-$nsiorfile = "theior";
-
-# amount of delay between running the servers
-
-$sleeptime = 3;
-
-# Get the userid (or ip on NT)
-
-if ($^O eq "MSWin32")
-{
-  system ("ipconfig | find \"Address\">ipnum");
-
-  open (IPNUM, "ipnum");
-
-  read (IPNUM, $line, 80);
-
-  ($junk, $ip1, $ip2, $ip3, $ip4) = split (/: (\d+)\.(\d+)\.(\d+)\.(\d+)/, $line);
-
-  close IPNUM;
-
-  system ("del /q ipnum");
-
-  $uid = $ip4;
-}
-else
-{
-  $uid = getpwnam (getlogin ());
-}
-
-# variables for parameters
-
-$nsport = 20000 + $uid;
-$svport = 0; 
-
-# other variables
-
-$n = 1;
-$leave = 1;
-$ior = 0;
-$done = "";
-$debug = "";
-$cm = "";
-$sm = "";
-$other = "";
-$c_conf = "client.conf";
-$s_conf = "server.conf";
-
-sub read_nsior
-{
-  open (FH, "<$nsiorfile");
-
-  read (FH, $ior, 255);
-
-  close (FH);
-}
-
-sub name_server
-{
-  my $args = "$other -ORBport $nsport -ORBobjrefstyle url -o $nsiorfile";
-  my $prog = "..$DIR_SEPARATOR..$DIR_SEPARATOR"."Naming_Service".$DIR_SEPARATOR.
-      "Naming_Service".$Process::EXE_EXT;
-
-  $NS = Process::Create ($prog, $args);
-}
-
-sub server
-{
-    my $args = "";
-    my $prog = "server".$Process::EXE_EXT;
-    
-    $SV = Process::Create ($prog, $args);
-}
-
-sub client
-{
-    my $args = "";
-    my $prog = "client".$Process::EXE_EXT;
-    
-    $CL = Process::Create ($prog, $args);
-}
-
-name_server ();
-sleep $sleeptime;
-read_nsior ();
-
-server ();
-
-sleep $sleeptime;
-
-client ();
-
-sleep $sleeptime;
-if ($leave)
-{
-  $SV->Kill ();
-  $NS->Kill ();
-  $CL->Kill ();
-}
-
-
-if ($^O eq "MSWin32")
-{
-  system ("del /q $nsiorfile");
-}
-else
-{
-  system ("rm $nsiorfile");
-}