diff options
Diffstat (limited to 'TAO/examples/POA/Forwarding/run_test.pl')
-rwxr-xr-x | TAO/examples/POA/Forwarding/run_test.pl | 45 |
1 files changed, 23 insertions, 22 deletions
diff --git a/TAO/examples/POA/Forwarding/run_test.pl b/TAO/examples/POA/Forwarding/run_test.pl index 2a0f62b2d73..92b58c93cb7 100755 --- a/TAO/examples/POA/Forwarding/run_test.pl +++ b/TAO/examples/POA/Forwarding/run_test.pl @@ -1,9 +1,10 @@ -# $Id$ -# -*- perl -*- eval '(exit $?0)' && eval 'exec perl -S $0 ${1+"$@"}' & eval 'exec perl -S $0 $argv:q' if 0; +# $Id$ +# -*- perl -*- + use lib "../../../../bin"; require ACEutils; @@ -15,28 +16,28 @@ $brace="\#\#\#\#\#"; # Servers 1 and 2 are used in all tests @server1arglist = ("-o server1 -ORBport 10040 -ORBobjrefstyle url", - "-p server1 -ORBport 10040 -ORBobjrefstyle url", - "-o server1 -ORBport 10040 -ORBobjrefstyle url"); + "-p server1 -ORBport 10040 -ORBobjrefstyle url", + "-o server1 -ORBport 10040 -ORBobjrefstyle url"); @server2arglist = ("-f server1 -o server2 -ORBport 10041 -ORBobjrefstyle url", - "-g server1 -p server2 -ORBport 10041 -ORBobjrefstyle url", - "-g server1 -p server2 -ORBport 10041 -ORBobjrefstyle url"); + "-g server1 -p server2 -ORBport 10041 -ORBobjrefstyle url", + "-g server1 -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 server3 -ORBport 10043 -ORBobjrefstyle url"); + "", + "-f server2 -o server3 -ORBport 10043 -ORBobjrefstyle url"); # The client is run for all tests @clientarglist = ("-f server2 -i 5", - "-g server2 -i 5", - "-f server3 -i 8"); + "-g server2 -i 5", + "-f server3 -i 8"); # Descriptions of the tests @testlist = ("POA approach", - "servant locator approach", - "dual POA and servant locator approaches"); + "servant locator approach", + "dual POA and servant locator approaches"); $testtype = ""; @@ -75,19 +76,19 @@ sub run_test # Run the servers $SRV1 = Process::Create (".".$DIR_SEPARATOR."server".$Process::EXE_EXT, - "$server1args"); + "$server1args"); print STDERR ("server $server1args\n"); ACE::waitforfile ("server1"); $SRV2 = Process::Create (".".$DIR_SEPARATOR."server".$Process::EXE_EXT, - "$server2args"); + "$server2args"); print STDERR ("server $server2args\n"); ACE::waitforfile ("server2"); if ($server3args ne "") { - $SRV3 = Process::Create (".".$DIR_SEPARATOR."server".$Process::EXE_EXT, - "$server3args"); + $SRV3 = Process::Create (".".$DIR_SEPARATOR."server".$Process::EXE_EXT, + "$server3args"); ACE::waitforfile ("server3"); } @@ -102,17 +103,17 @@ sub run_test if ($server3args ne "") { - $SRV3->Kill (); $SRV3->Wait (); + $SRV3->Kill (); $SRV3->Wait (); } if ($status != 0) { - print STDERR ("\n$brace Test of $testtype FAILED\n"); - $retval = -1; + print STDERR ("\n$brace Test of $testtype FAILED\n"); + $retval = -1; } else { - print STDERR ("\n$brace Test of $testtype SUCCEEDED\n"); + print STDERR ("\n$brace Test of $testtype SUCCEEDED\n"); } cleanup_ior (); return $status; @@ -125,7 +126,7 @@ for ($q = 0; $q < 3; $q++) run_test (); if ($q < 2) { - print STDERR ("\n\t\t Waiting for things to stabilize...\n"); - sleep ($ACE::sleeptime); + print STDERR ("\n\t\t Waiting for things to stabilize...\n"); + sleep ($ACE::sleeptime); } } |