diff options
author | Johnny Willemsen <jwillemsen@remedy.nl> | 2009-02-02 13:01:42 +0000 |
---|---|---|
committer | Johnny Willemsen <jwillemsen@remedy.nl> | 2009-02-02 13:01:42 +0000 |
commit | f75da2fead1f4d1f6fa0dab3268ec50b077bfb82 (patch) | |
tree | f47b66c4bef8af4eac8d56b7f6252d76a21010dd /TAO/tests/Transport_Cache_Manager | |
parent | 651942d44bb7042d6d00b8cc9dc423e112c6ce76 (diff) | |
download | ATCD-f75da2fead1f4d1f6fa0dab3268ec50b077bfb82.tar.gz |
Diffstat (limited to 'TAO/tests/Transport_Cache_Manager')
-rwxr-xr-x | TAO/tests/Transport_Cache_Manager/run_test.pl | 34 |
1 files changed, 16 insertions, 18 deletions
diff --git a/TAO/tests/Transport_Cache_Manager/run_test.pl b/TAO/tests/Transport_Cache_Manager/run_test.pl index 8cf849d7cf8..b9fe5f3fd00 100755 --- a/TAO/tests/Transport_Cache_Manager/run_test.pl +++ b/TAO/tests/Transport_Cache_Manager/run_test.pl @@ -21,24 +21,22 @@ push(@testsToRun, @tests); foreach my $process (@testsToRun) { - my $server = PerlACE::TestTarget::create_target (1) || die "Create target 1 failed\n"; - my $P = $server->CreateProcess ($process, - '--log_level=nothing ' - .'--report_level=no'); - print "Running $process ...\n"; - my $result = $P->Spawn; - if ($result != 0) { - print "FAILED $process\n"; - $final_result = 1; - next; - } - $result = $P->WaitKill($server->ProcessStartWaitInterval()); - if ($result != 0) { - print "FAILED $process\n"; - $final_result = 1; - next; - } - print "SUCCESS\n"; + my $server = PerlACE::TestTarget::create_target (1) || die "Create target 1 failed\n"; + my $P = $server->CreateProcess ($process); + print "Running $process ...\n"; + my $result = $P->Spawn; + if ($result != 0) { + print "FAILED $process\n"; + $final_result = 1; + next; + } + $result = $P->WaitKill($server->ProcessStartWaitInterval()); + if ($result != 0) { + print "FAILED $process\n"; + $final_result = 1; + next; + } + print "SUCCESS\n"; } exit $final_result; |