diff options
Diffstat (limited to 'TAO/orbsvcs/tests/EC_Throughput/run_test.pl')
| -rwxr-xr-x | TAO/orbsvcs/tests/EC_Throughput/run_test.pl | 10 |
1 files changed, 5 insertions, 5 deletions
diff --git a/TAO/orbsvcs/tests/EC_Throughput/run_test.pl b/TAO/orbsvcs/tests/EC_Throughput/run_test.pl index abbf7f3dc6f..15960e52f28 100755 --- a/TAO/orbsvcs/tests/EC_Throughput/run_test.pl +++ b/TAO/orbsvcs/tests/EC_Throughput/run_test.pl @@ -30,10 +30,10 @@ if ($test != 0) { print STDERR "================ Collocated tests, multi threaded\n"; $T = new PerlACE::Process ("ECT_Throughput", - "-ORBSvcConf $ec_mt_conf" + "-ORBSvcConf $ec_mt_conf" . " -m new -u 10000 -n 1 -t 0 -c 4"); -$test = $T->SpawnWaitKill (60); +$test = $T->SpawnWaitKill (120); if ($test != 0) { print STDERR "ERROR: test returned $test\n"; @@ -48,12 +48,12 @@ unlink $ns_ior; $NS = new PerlACE::Process ("../../Naming_Service/Naming_Service", "-o $ns_ior"); - + $ES = new PerlACE::Process ("../../Event_Service/Event_Service", "-ORBInitRef NameService=file://$ns_ior " . " -ORBSvcConf $ec_conf " . " -t NEW -s local"); - + $C = new PerlACE::Process ("ECT_Consumer", "-ORBInitRef NameService=file://$ns_ior " . " -c 4 -s 1"); @@ -66,7 +66,7 @@ $NS->Spawn (); if (PerlACE::waitforfile_timed ($ns_ior, 10) == -1) { print STDERR "ERROR: cannot find file <$ns_ior>\n"; - $NS->Kill (); + $NS->Kill (); exit 1; } |