summaryrefslogtreecommitdiff
path: root/TAO/tests/Transport_Cache_Manager
diff options
context:
space:
mode:
authorJohnny Willemsen <jwillemsen@remedy.nl>2009-02-02 13:01:42 +0000
committerJohnny Willemsen <jwillemsen@remedy.nl>2009-02-02 13:01:42 +0000
commitf75da2fead1f4d1f6fa0dab3268ec50b077bfb82 (patch)
treef47b66c4bef8af4eac8d56b7f6252d76a21010dd /TAO/tests/Transport_Cache_Manager
parent651942d44bb7042d6d00b8cc9dc423e112c6ce76 (diff)
downloadATCD-f75da2fead1f4d1f6fa0dab3268ec50b077bfb82.tar.gz
Diffstat (limited to 'TAO/tests/Transport_Cache_Manager')
-rwxr-xr-xTAO/tests/Transport_Cache_Manager/run_test.pl34
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;