1 files changed, 0 insertions, 122 deletions
diff --git a/TAO/examples/POA/Forwarding/run_test.pl b/TAO/examples/POA/Forwarding/run_test.pl
deleted file mode 100755
index 33980674242..00000000000
--- a/TAO/examples/POA/Forwarding/run_test.pl
+++ /dev/null
@@ -1,122 +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;
-
-$brace="\#\#\#\#\#";
-
-# There are three ways to run the test with different results, requiring
-# different numbers of servers and with variable arguments, hence the
-# arrays 
-
-# Servers 1 and 2 are used in all tests
-@server1arglist = ("-o server2 -ORBport 10040 -ORBobjrefstyle url",
-		   "-p server2  -ORBport 10040 -ORBobjrefstyle url",
-		   "-o server3 -ORBport 10040 -ORBobjrefstyle url");
-@server2arglist = ("-f server2 -o server1 -ORBport 10041 -ORBobjrefstyle url",
-		   "-g server2 -p server1 -ORBport 10041 -ORBobjrefstyle url",
-		   "-g server3 -p server2 -ORBport 10041 -ORBobjrefstyle url");
-
-# The third server is only needed for the last test, but I'm making it 
-# a list in case anyone wants to run it in multiple tests, rather than 
-# just one
-@server3arglist = ("",
-		   "",
-		   "-f server2 -o server1 -ORBport 10043 -ORBobjrefstyle url");
-
-# The client is run for all tests
-@clientarglist = ("-f server1 -i 5",
-		  "-g server1 -i 5",
-		  "-f server1 -i 8");
-
-# Descriptions of the tests
-@testlist = ("POA approach",
-	     "servant locator approach",
-	     "dual POA and servant locator approaches");
-
-$testtype = "";
-
-# The strings to hold the arguments for the client and servers
-$server1args = "";
-$server2args = "";
-$server3args = "";
-$clientargs = "";
-
-# Set STDERR to autoflush (weird unbufferd output stuff)
-$| = 1; 
-
-# Make pretty look thing
-print STDERR "\n";
-
-# There's a cleaner way to do this, but I don't know what it is
-sub argshift
-{
-    $server1args = shift (@server1arglist);
-    $server2args = shift (@server2arglist);
-    $server3args = shift (@server3arglist);
-    $clientargs = shift (@clientarglist);
-    $testtype = shift (@testlist);
-}
-	
-
-# Run the test in it's three forms
-sub run_test 
-{    
-    print STDERR "\n$brace Test of $testtype BEGUN\n";
-    
-    # Run the servers
-    $SRV1 = Process::Create  (".".$DIR_SEPARATOR."server".$Process::EXE_EXT,
-			     "$server1args");
-    print STDERR ("server $server1args\n");
-    $SRV2 = Process::Create  (".".$DIR_SEPARATOR."server".$Process::EXE_EXT,
-			     "$server2args");
-    print STDERR ("server $server2args\n");
-
-    if ($server3args ne "")
-    {
-	$SRV3 = Process::Create (".".$DIR_SEPARATOR."server".$Process::EXE_EXT,
-				 "$server3args");
-    }
-    
-    # Run the client and block until completion
-    $status  = system ("client$Process::EXE_EXT $clientargs");
-    print STDERR ("client $clientargs");
-    
-    # Now that the client has finished, kill off the servers
- 
-    $SRV1->Kill (); $SRV1->Wait ();
-    $SRV2->Kill (); $SRV2->Wait ();
-    
-    if ($server3args ne "")
-    {
-	$SRV3->Kill (); $SRV3->Wait ();
-    }
-
-    if ($status != 0)
-    {
-	print STDERR ("\n$brace Test of $testtype FAILED\n");
-	$retval = -1;
-    }
-    else
-    {
-	print STDERR ("\n$brace Test of $testtype SUCCEEDED\n");
-    }
-    return $status;
-}
-
-
-for ($q = 0; $q < 3; $q++)
-{
-    argshift ();
-    run_test ();
-    if ($q < 2)
-    {
-	print STDERR ("\n\t\t Waiting for things to stabilize...\n");
-	sleep ($ACE::sleeptime);
-    }
-}
-