diff options
| author | Johnny Willemsen <jwillemsen@remedy.nl> | 2019-04-16 09:38:01 +0200 |
|---|---|---|
| committer | Johnny Willemsen <jwillemsen@remedy.nl> | 2019-04-16 09:38:01 +0200 |
| commit | 14279070f933585cfed4587cd45d69a927f13c0f (patch) | |
| tree | ecd859e0746c6b3dea6e0009b88f179a1ae0000e /TAO/orbsvcs/tests/ImplRepo | |
| parent | f6c8325e4e79378efa05c99aa6952f1e1c6b05e6 (diff) | |
| download | ATCD-14279070f933585cfed4587cd45d69a927f13c0f.tar.gz | |
Add with -debug also ImR activator logging and tab changes
* TAO/orbsvcs/tests/ImplRepo/ping_interrupt/run_test.pl:
Diffstat (limited to 'TAO/orbsvcs/tests/ImplRepo')
| -rwxr-xr-x | TAO/orbsvcs/tests/ImplRepo/ping_interrupt/run_test.pl | 26 |
1 files changed, 14 insertions, 12 deletions
diff --git a/TAO/orbsvcs/tests/ImplRepo/ping_interrupt/run_test.pl b/TAO/orbsvcs/tests/ImplRepo/ping_interrupt/run_test.pl index efa412deabc..b9eae4afa96 100755 --- a/TAO/orbsvcs/tests/ImplRepo/ping_interrupt/run_test.pl +++ b/TAO/orbsvcs/tests/ImplRepo/ping_interrupt/run_test.pl @@ -10,17 +10,19 @@ use PerlACE::TestTarget; $status = 0; $imr_debug = ""; +$act_debug = ""; if ($#ARGV >= 0) { for (my $i = 0; $i <= $#ARGV; $i++) { - if ($ARGV[$i] eq '-debug') { - $imr_debug = "-d 5 -ORBDebugLevel 10 -ORBVerboseLogging 1 -ORBLogFile imr_loc.log"; - $i++; - } - else { - usage(); - exit 1; - } + if ($ARGV[$i] eq '-debug') { + $imr_debug = "-d 10 -ORBDebugLevel 10 -ORBVerboseLogging 1 -ORBLogFile imr_loc.log"; + $act_debug = "-d 10 -ORBDebugLevel 10 -ORBVerboseLogging 1 -ORBLogFile imr_act.log"; + $i++; + } + else { + usage(); + exit 1; + } } } @@ -103,7 +105,7 @@ sub server_setup () { print "initializing activator\n"; - $ACT->Arguments ("-d 0 -l -o $act_actiorfile -ORBInitRef ImplRepoService=file://$act_imriorfile"); + $ACT->Arguments ("-l -o $act_actiorfile -ORBInitRef ImplRepoService=file://$act_imriorfile $act_debug"); $ACT_status = $ACT->Spawn (); if ($ACT_status != 0) { @@ -206,8 +208,8 @@ sub interrupt_ping_test my $IMR_status = $IMR->TerminateWaitKill ($imr->ProcessStopWaitInterval()); if ($IMR_status != 0) { - print STDERR "ERROR: IMR returned $IMR_status\n"; - $status = 1; + print STDERR "ERROR: IMR returned $IMR_status\n"; + $status = 1; } my $test_time = time() - $start_time; @@ -219,7 +221,7 @@ sub interrupt_ping_test sub usage() { print "Usage: run_test.pl ". - "[-debug]\n"; + "[-debug]\n"; } ############################################################################### |