summaryrefslogtreecommitdiff
diff options
context:
space:
mode:
authorJohnny Willemsen <jwillemsen@remedy.nl>2019-04-16 09:38:01 +0200
committerJohnny Willemsen <jwillemsen@remedy.nl>2019-04-16 09:38:01 +0200
commit14279070f933585cfed4587cd45d69a927f13c0f (patch)
treeecd859e0746c6b3dea6e0009b88f179a1ae0000e
parentf6c8325e4e79378efa05c99aa6952f1e1c6b05e6 (diff)
downloadATCD-14279070f933585cfed4587cd45d69a927f13c0f.tar.gz
Add with -debug also ImR activator logging and tab changes
* TAO/orbsvcs/tests/ImplRepo/ping_interrupt/run_test.pl:
-rwxr-xr-xTAO/orbsvcs/tests/ImplRepo/ping_interrupt/run_test.pl26
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";
}
###############################################################################