diff options
author | irfan <irfan@ae88bc3d-4319-0410-8dbf-d08b4c9d3795> | 2001-07-18 02:14:41 +0000 |
---|---|---|
committer | irfan <irfan@ae88bc3d-4319-0410-8dbf-d08b4c9d3795> | 2001-07-18 02:14:41 +0000 |
commit | 2327ffa4dbf3e9ab8da4dab0f80bc311bee6be35 (patch) | |
tree | e7198259ce7988049ba4b0da17e108e3eedf51e5 /TAO/tests/RTCORBA/Server_Protocol/run_test.pl | |
parent | 5474c62f4bbce494f375eabe12b8236aa3f5bfc8 (diff) | |
download | ATCD-2327ffa4dbf3e9ab8da4dab0f80bc311bee6be35.tar.gz |
ChangeLogTag: Tue Jul 17 21:13:30 2001 Irfan Pyarali <irfan@cs.wustl.edu>
Diffstat (limited to 'TAO/tests/RTCORBA/Server_Protocol/run_test.pl')
-rwxr-xr-x | TAO/tests/RTCORBA/Server_Protocol/run_test.pl | 21 |
1 files changed, 11 insertions, 10 deletions
diff --git a/TAO/tests/RTCORBA/Server_Protocol/run_test.pl b/TAO/tests/RTCORBA/Server_Protocol/run_test.pl index 8f141fc4bde..c50cc581cb1 100755 --- a/TAO/tests/RTCORBA/Server_Protocol/run_test.pl +++ b/TAO/tests/RTCORBA/Server_Protocol/run_test.pl @@ -13,6 +13,8 @@ $iorfile = PerlACE::LocalFile ("test.ior"); unlink $iorfile; $server_reverse_conf = PerlACE::LocalFile ("server_reverse.conf"); +$server_iiop_conf = PerlACE::LocalFile ("server_iiop.conf"); +$server_uiop_conf = PerlACE::LocalFile ("server_uiop.conf"); $server_shmiop_conf = PerlACE::LocalFile ("server_shmiop.conf"); $server_reverse_nt_conf = PerlACE::LocalFile ("server_reverse_nt.conf"); @@ -26,12 +28,10 @@ $server_reverse_nt_conf = PerlACE::LocalFile ("server_reverse_nt.conf"); "-ORBsvcconf $server_shmiop_conf -ORBendpoint shmiop://", "-ORBEndpoint uiop:// " - ." -ORBendpoint shmiop:// -ORBendpoint iiop://" - ." -ORBsvcconf $server_shmiop_conf -p 1413566208", + ." -ORBsvcconf $server_uiop_conf -p 1413566208", - "-ORBEndpoint uiop:// " - ." -ORBendpoint shmiop:// -ORBendpoint iiop://" - ." -ORBsvcconf $server_shmiop_conf -p 1413566210 "); + " -ORBendpoint shmiop:// " + ." -ORBsvcconf $server_shmiop_conf -p 1413566210"); @comments = ("* ORB Default Server Protocol Policy Test\n " ."(TAO's default behavior without config files): \n", @@ -58,15 +58,16 @@ if ($^O eq "MSWin32") { "-ORBsvcconf $server_shmiop_conf -ORBendpoint shmiop://", - "-ORBendpoint shmiop:// -ORBendpoint iiop://" - ." -ORBsvcconf $server_shmiop_conf -p 0", + "-ORBendpoint iiop://" + ." -ORBsvcconf $server_iiop_conf -p 0", - "-ORBendpoint shmiop:// -ORBendpoint iiop://" + "-ORBendpoint shmiop:// " ." -ORBsvcconf $server_shmiop_conf -p 1413566210"); $comments[3] = - "Overriding ORB Default Server Protocol Policy in the POA " - ."(POA Server Protocol set to IIOP only): \n"; + "* Overriding ORB Default Server Protocol Policy in the POA\n" + ." (POA Server Protocol set to IIOP only): \n", + } print STDERR "********** RTCORBA Server Protocol Policy Unit Test\n"; |