diff options
author | Phil Mesnier <mesnier_p@ociweb.com> | 2014-02-06 23:33:48 +0000 |
---|---|---|
committer | Phil Mesnier <mesnier_p@ociweb.com> | 2014-02-06 23:33:48 +0000 |
commit | 99bec8bcd64082fab74018c8982feafbbce57a09 (patch) | |
tree | 952ac5a29ac0fa03cbedd3a11f90238699963cde /TAO/orbsvcs/tests/ImplRepo/ReconnectServer | |
parent | 80fc05bd0a04c62b467ab0a09042a73dc0ad0e85 (diff) | |
download | ATCD-99bec8bcd64082fab74018c8982feafbbce57a09.tar.gz |
Thu Feb 6 23:11:57 UTC 2014 Phil Mesnier <mesnier_p@ociweb.com>
* orbsvcs/ImplRepo_Service/AsyncAccessManager.cpp:
* orbsvcs/ImplRepo_Service/AsyncListManager.cpp:
* orbsvcs/ImplRepo_Service/Config_Backing_Store.cpp:
* orbsvcs/ImplRepo_Service/ImR_Locator_i.cpp:
* orbsvcs/ImplRepo_Service/Locator_Repository.h:
* orbsvcs/ImplRepo_Service/Locator_Repository.cpp:
* orbsvcs/ImplRepo_Service/Locator_XMLHandler.cpp:
* orbsvcs/ImplRepo_Service/Server_Info.h:
* orbsvcs/ImplRepo_Service/Server_Info.cpp:
* orbsvcs/ImplRepo_Service/Shared_Backing_Store.cpp:
* orbsvcs/ImplRepo_Service/UpdateableServerInfo.cpp:
* orbsvcs/ImplRepo_Service/XML_Backing_Store.cpp:
More refactoring of Server_Info interactions to ensure linked infos
present the correct information for server access vs poa access.
* orbsvcs/tests/ImplRepo/ReconnectServer/run_test.pl:
enhance the debug output to help resolve runtime error.
Diffstat (limited to 'TAO/orbsvcs/tests/ImplRepo/ReconnectServer')
-rwxr-xr-x | TAO/orbsvcs/tests/ImplRepo/ReconnectServer/run_test.pl | 28 |
1 files changed, 16 insertions, 12 deletions
diff --git a/TAO/orbsvcs/tests/ImplRepo/ReconnectServer/run_test.pl b/TAO/orbsvcs/tests/ImplRepo/ReconnectServer/run_test.pl index 20b6c6a5dec..cce335e5e85 100755 --- a/TAO/orbsvcs/tests/ImplRepo/ReconnectServer/run_test.pl +++ b/TAO/orbsvcs/tests/ImplRepo/ReconnectServer/run_test.pl @@ -30,10 +30,17 @@ my $srv_b_id = "BBB"; my $client_duration = 30; my $ping_ext = ''; +my $imr_debug = ""; +my $srva_debug = ""; +my $srvb_debug = ""; +my $clt_debug = ""; + foreach my $i (@ARGV) { if ($i eq '-debug') { - $debug_level = '10'; - $imr_debug_level = '3'; + $imr_debug = "-ORBDebugLevel 10 -ORBVerboseLogging 1 -ORBLogFile imr.log -d 10 "; + $srva_debug = "-ORBDebugLevel 10 -ORBVerboseLogging 1 -ORBLogFile srva.log "; + $srvb_debug = "-ORBDebugLevel 10 -ORBVerboseLogging 1 -ORBLogFile srvb.log "; + $clt_debug = "-ORBDebugLevel 10 -ORBVerboseLogging 1 -ORBLogFile clt.log "; } if ($i eq '-forwardalways') { $delay = '5'; @@ -75,28 +82,25 @@ $cli->DeleteFile ($srvaiorfile); $IMR = $imr->CreateProcess ("../../../ImplRepo_Service/tao_imr_locator", "-ORBEndpoint "."$protocol"."://:".$port." ". - "-UnregisterIfAddressReused ". - "-d $imr_debug_level ". + "-UnregisterIfAddressReused $imr_debug". "$ping_ext ". "-o $imr_imriorfile "); -# "-p $imr_imrdbfile"); + $SRV_A = $srva->CreateProcess ("serverA", - "_ORBDebugLevel = $debug_level ". - "-ORBEndpoint " . "$protocol" . "://:" . "$srv_port_base/portspan=20 ". + "-ORBEndpoint " . $protocol . "://:" ."$srv_port_base/portspan=20 ". "-ORBInitRef ImplRepoService=file://$srva_imriorfile ". - "-ORBServerId $srv_a_id ". + "-ORBServerId $srv_a_id $srva_debug". "-ORBUseIMR 1 ". "-o $srva_srvaiorfile"); $SRV_B = $srvb->CreateProcess ("serverB", - "_ORBDebugLevel = $debug_level ". - "-ORBEndpoint " . "$protocol" . "://:" . "$srv_port_base/portspan=20 ". + "-ORBEndpoint " . $protocol . "://:" . "$srv_port_base/portspan=20 ". "-ORBInitRef ImplRepoService=file://$srvb_imriorfile ". - "-ORBServerId $srv_b_id ". + "-ORBServerId $srv_b_id $srvb_debug". "-ORBUseIMR 1 ". "-o $srvb_srvbiorfile"); $CLI = $cli->CreateProcess ("client", "$forward_opt -i file://$cli_srvaiorfile ". - "-t $client_duration ". + "-t $client_duration $clt_debug". "-e $got_object_not_exist_exception "); |