diff options
Diffstat (limited to 'TAO/examples/POA/Forwarding/run_test.pl')
-rwxr-xr-x | TAO/examples/POA/Forwarding/run_test.pl | 122 |
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); - } -} - |