1 files changed, 0 insertions, 172 deletions
diff --git a/TAO/tests/Leader_Followers/run_test.pl b/TAO/tests/Leader_Followers/run_test.pl
deleted file mode 100755
index d083e09d241..00000000000
--- a/TAO/tests/Leader_Followers/run_test.pl
+++ /dev/null
@@ -1,172 +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;
-$iorfile = PerlACE::LocalFile ("lf.ior");
-$tpool_reactor_directive = "-ORBsvcconfdirective \"static Advanced_Resource_Factory '-ORBreactortype tp'\"";
-$select_reactor_directive = "-ORBsvcconfdirective \"static Advanced_Resource_Factory '-ORBreactortype select_mt'\"";
-
-if (PerlACE::is_vxworks_test()) {
-    $sv_iorfile = "lf.ior";
-    $SV = new PerlACE::ProcessVX ("server");
-}
-else {
-    $sv_iorfile = $iorfile;
-    $SV = new PerlACE::Process ("server");
-}
-$CL = new PerlACE::Process ("client");
-
-sub run_client ($)
-{
-    my $args = shift;
-
-    $CL->Arguments ("-k file://$iorfile " . $args);
-
-    my $client = $CL->SpawnWaitKill (200);
-    
-    if ($client != 0) {
-        $time = localtime;
-        print STDERR "ERROR: client returned $client at $time\n";
-        $status = 1;
-    }
-}
-
-sub run_clients ()
-{
-    print STDERR "\n\n*** No event loop threads ***\n\n\n";
-
-    print STDERR "\nSelect Reactor\n\n";
-
-    run_client ("$select_reactor_directive -e 0");
-
-    print STDERR "\nTP Reactor\n\n";
-
-    run_client ("$tpool_reactor_directive -e 0");
-
-    print STDERR "\n\n*** Single-threaded client event loop: Select Reactor ***\n\n\n";
-
-    print STDERR "\nSingle-threaded client running event loop for 3 seconds\n\n";
-
-    run_client ("$select_reactor_directive -e 1 -t 3000");
-
-    print STDERR "\nSingle-threaded client running event loop for 10 seconds\n\n";
-
-    run_client ("$select_reactor_directive -e 1 -t 10000");
-
-    print STDERR "\nSingle-threaded client running event loop for 20 seconds\n\n";
-
-    run_client ("$select_reactor_directive -e 1 -t 20000");
-
-    print STDERR "\n\n*** Single-threaded client event loop: TP Reactor ***\n\n\n";
-
-    print STDERR "\nSingle-threaded client running event loop for 3 seconds\n\n";
-
-    run_client ("$tpool_reactor_directive -e 1 -t 3000");
-
-    print STDERR "\nSingle-threaded client running event loop for 10 seconds\n\n";
-
-    run_client ("$tpool_reactor_directive -e 1 -t 10000");
-
-    print STDERR "\nSingle-threaded client running event loop for 20 seconds\n\n";
-
-    run_client ("$tpool_reactor_directive -e 1 -t 20000");
-
-    print STDERR "\n\n*** Multi-threaded client event loop: TP Reactor ***\n\n\n";
-
-    print STDERR "\nMulti-threaded client running event loop for 3 seconds\n\n";
-
-    run_client ("$tpool_reactor_directive -e 5 -t 3000");
-
-    print STDERR "\nMulti-threaded client running event loop for 10 seconds\n\n";
-
-    run_client ("$tpool_reactor_directive -e 5 -t 10000");
-
-    print STDERR "\nMulti-threaded client running event loop for 20 seconds\n\n";
-
-    run_client ("$tpool_reactor_directive -e 5 -t 20000 -x");
-}
-
-$single = 1;
-$multi = 0;
-
-for ($i = 0; $i <= $#ARGV; $i++) {
-    if ($ARGV[$i] eq "-h" || $ARGV[$i] eq "-?") {
-      print "run_test [-m] -[a]\n";
-      print "\n";
-      print "-m  -- tests the multithreaded server (default is single)\n";
-      print "-a  -- tests both multi and single threaded servers\n";
-      exit 0;
-    }
-    elsif ($ARGV[$i] eq "-m") {
-      $multi = 1;
-      $single = 0;
-    }
-    elsif ($ARGV[$i] eq "-a") {
-      $multi = 1;
-      $single = 1;
-    }
-}
-
-if ($single == 1) {
-    unlink $iorfile;
-
-    print STDERR "\n\n*** Single threaded server ***\n\n\n";
-
-    $SV->Arguments ("-o $sv_iorfile $select_reactor_directive");
-
-    $SV->Spawn ();
-
-    if (PerlACE::waitforfile_timed ($iorfile, 10) == -1) {
-        print STDERR "ERROR: cannot find file <$iorfile>\n";
-        $SV->Kill (); 
-        exit 1;
-    }
-
-    run_clients ();
-
-    $server = $SV->WaitKill (100);
-    if ($server != 0) {
-        $time = localtime;
-        print STDERR "ERROR: server returned $server at $time\n";
-        $status = 1;
-    }
-
-    unlink $iorfile;
-}
-
-if ($multi == 1) {
-    unlink $iorfile;
-    
-    print STDERR "\n\n*** Thread-Pool server ***\n\n\n";
-
-    $SV->Arguments ("-o $sv_iorfile -e 5 $tpool_reactor_directive");
-
-    $SV->Spawn ();
-
-    if (PerlACE::waitforfile_timed ($iorfile, 10) == -1) {
-        print STDERR "ERROR: cannot find file <$iorfile>\n";
-        $SV->Kill (); 
-        exit 1;
-    }
-
-    run_clients ();
-
-    $server = $SV->WaitKill (10);
-
-    if ($server != 0) {
-        $time = localtime;
-        print STDERR "ERROR: server returned $server at $time\n";
-        $SV->Kill (); 
-    }
-
-    unlink $iorfile;
-}
-
-exit $status;