diff options
Diffstat (limited to 'TAO/orbsvcs/tests/AVStreams/Component_Switching/run_test.pl')
-rwxr-xr-x | TAO/orbsvcs/tests/AVStreams/Component_Switching/run_test.pl | 27 |
1 files changed, 6 insertions, 21 deletions
diff --git a/TAO/orbsvcs/tests/AVStreams/Component_Switching/run_test.pl b/TAO/orbsvcs/tests/AVStreams/Component_Switching/run_test.pl index 498aa4f5973..08ca59f2925 100755 --- a/TAO/orbsvcs/tests/AVStreams/Component_Switching/run_test.pl +++ b/TAO/orbsvcs/tests/AVStreams/Component_Switching/run_test.pl @@ -10,8 +10,8 @@ use PerlACE::Run_Test; # amount of delay between running the servers -$sleeptime = 2; -$distributor_time = 5; +$sleeptime = 5; +$distributor_time = 8; $sender_time = 8; $status = 0; @@ -21,7 +21,7 @@ $makefile = PerlACE::LocalFile ("input"); unlink $nsior; -$NS = new PerlACE::Process ("../../../Naming_Service/Naming_Service", "-ORBDottedDecimalAddresses 1 -ORBEndpoint iiop://128.89.73.40:0 -o $nsior"); +$NS = new PerlACE::Process ("../../../Naming_Service/Naming_Service", "-ORBDottedDecimalAddresses 1 -o $nsior"); $SV1 = new PerlACE::Process ("sender", "-ORBDottedDecimalAddresses 1 ORBSvcConf components_svc.conf -ORBInitRef NameService=file://$nsior -s sender -r 30"); $SV2 = new PerlACE::Process ("sender", " -ORBDottedDecimalAddresses 1 -ORBSvcConf components_svc.conf -ORBInitRef NameService=file://$nsior -s sender -r 30"); $SV3 = new PerlACE::Process ("sender", " -ORBDottedDecimalAddresses 1 -ORBSvcConf components_svc.conf -ORBInitRef NameService=file://$nsior -s sender -r 30"); @@ -96,19 +96,11 @@ print STDERR "\nStarting Distributer 4\n\n"; $DI4->Spawn (); -$sender2 = $SV2->TerminateWaitKill (5); +$SV2->WaitKill (300); -if ($sender2 != 0) { - print STDERR "ERROR: sender2 returned $sender2\n"; - $status = 1; -} - -$sender3 = $SV3->TerminateWaitKill (5); +$SV3->WaitKill (300); -if ($sender3 != 0) { - print STDERR "ERROR: sender3 returned $sender3\n"; - $status = 1; -} +$SV1->WaitKill ( 300 ); $distributer3 = $DI3->TerminateWaitKill (5); @@ -145,13 +137,6 @@ if ($receiver2 != 0) { $status = 1; } -$sender = $SV1->TerminateWaitKill (5); - -if ($sender != 0) { - print STDERR "ERROR: sender returned $sender\n"; - $status = 1; -} - $distributer4 = $DI4->TerminateWaitKill (5); if ($distributer4 != 0) { print STDERR "ERROR: distributer4 returned $distributer4\n"; |