diff options
Diffstat (limited to 'TAO/tests/CSD_Strategy_Tests/TP_Test_3/run_test.pl')
| -rwxr-xr-x | TAO/tests/CSD_Strategy_Tests/TP_Test_3/run_test.pl | 11 |
1 files changed, 8 insertions, 3 deletions
diff --git a/TAO/tests/CSD_Strategy_Tests/TP_Test_3/run_test.pl b/TAO/tests/CSD_Strategy_Tests/TP_Test_3/run_test.pl index 11e3ef02dd6..18860b82c92 100755 --- a/TAO/tests/CSD_Strategy_Tests/TP_Test_3/run_test.pl +++ b/TAO/tests/CSD_Strategy_Tests/TP_Test_3/run_test.pl @@ -8,6 +8,11 @@ eval '(exit $?0)' && eval 'exec perl -S $0 ${1+"$@"}' use lib "$ENV{ACE_ROOT}/bin"; use PerlACE::Run_Test; +PerlACE::add_lib_path ('../TP_Foo_A/.'); +PerlACE::add_lib_path ('../TP_Foo_B/.'); +PerlACE::add_lib_path ('../TP_Foo_C/.'); +PerlACE::add_lib_path ('../TP_Common/.'); + my $status = 0; my $iorfname_prefix = "servant"; @@ -106,7 +111,7 @@ for ($i = 0; $i < $num_servants; $i++) { } if (PerlACE::is_vxworks_test()) { - $SV = new PerlACE::ProcessVX ("server_main", + $SV = new PerlACE::ProcessVX ("server_main", "-p $iorfname_prefix " . "-s $num_servants " . "-n $num_csd_threads " . @@ -116,7 +121,7 @@ if (PerlACE::is_vxworks_test()) { "-k $collocated_client_kind"); } else { - $SV = new PerlACE::Process("server_main", + $SV = new PerlACE::Process("server_main", "-p $iorfname_prefix " . "-s $num_servants " . "-n $num_csd_threads " . @@ -155,7 +160,7 @@ for ($i = 0; $i < $num_remote_clients; $i++) "-k $client_kind ". "-n $client_id"); # print STDERR $CLS[$i]->CommandLine() . "\n"; - + $CLS[$i]->Spawn(); } |