diff options
author | Steve Totten <tottens@users.noreply.github.com> | 2004-09-17 13:46:02 +0000 |
---|---|---|
committer | Steve Totten <tottens@users.noreply.github.com> | 2004-09-17 13:46:02 +0000 |
commit | 78d1a43cde84477d37ac2a90e9d34be047808485 (patch) | |
tree | 2e543466b4de386321ff633772ba1c90d8fe481a /TAO/orbsvcs/tests/ImplRepo | |
parent | 5fde04e6745043e6effc11899d6e35c1c6cc44d7 (diff) | |
download | ATCD-78d1a43cde84477d37ac2a90e9d34be047808485.tar.gz |
ChangeLogTag: Fri Sep 17 08:44:44 2004 Steve Totten <totten_s@ociweb.com>
Diffstat (limited to 'TAO/orbsvcs/tests/ImplRepo')
-rwxr-xr-x | TAO/orbsvcs/tests/ImplRepo/NameService/run_test.pl | 6 | ||||
-rwxr-xr-x | TAO/orbsvcs/tests/ImplRepo/locked/run_test.pl | 6 | ||||
-rwxr-xr-x | TAO/orbsvcs/tests/ImplRepo/run_test.pl | 6 |
3 files changed, 18 insertions, 0 deletions
diff --git a/TAO/orbsvcs/tests/ImplRepo/NameService/run_test.pl b/TAO/orbsvcs/tests/ImplRepo/NameService/run_test.pl index 037a604d364..b31e4dc99f5 100755 --- a/TAO/orbsvcs/tests/ImplRepo/NameService/run_test.pl +++ b/TAO/orbsvcs/tests/ImplRepo/NameService/run_test.pl @@ -20,6 +20,12 @@ $ACTIVATOR = new PerlACE::Process("../../../ImplRepo_Service/ImR_Activator"); $NS = new PerlACE::Process ("../../../Naming_Service/Naming_Service"); $TAO_IMR = new PerlACE::Process ("../../../../../bin/tao_imr"); +# We want the tao_imr executable to be found exactly in the path +# given, without being modified by the value of -ExeSubDir. +# So, we tell its Process object to ignore the setting of -ExeSubDir. + +$TAO_IMR->IgnoreExeSubDir (1); + $TEST = new PerlACE::Process ("test"); $imr_init_ref = "-ORBInitRef ImplRepoService=file://$imr_ior"; diff --git a/TAO/orbsvcs/tests/ImplRepo/locked/run_test.pl b/TAO/orbsvcs/tests/ImplRepo/locked/run_test.pl index 099f5fdad62..cefff878d6a 100755 --- a/TAO/orbsvcs/tests/ImplRepo/locked/run_test.pl +++ b/TAO/orbsvcs/tests/ImplRepo/locked/run_test.pl @@ -19,6 +19,12 @@ $IMR_LOCATOR = new PerlACE::Process ("../../../ImplRepo_Service/ImplRepo_Service $IMR_ACTIVATOR = new PerlACE::Process ("../../../ImplRepo_Service/ImR_Activator"); $TAO_IMR = new PerlACE::Process ("../../../../../bin/tao_imr"); +# We want the tao_imr executable to be found exactly in the path +# given, without being modified by the value of -ExeSubDir. +# So, we tell its Process object to ignore the setting of -ExeSubDir. + +$TAO_IMR->IgnoreExeSubDir (1); + ################################################################################ $errors = 0; diff --git a/TAO/orbsvcs/tests/ImplRepo/run_test.pl b/TAO/orbsvcs/tests/ImplRepo/run_test.pl index ea222c7e56b..02f68b6eeaa 100755 --- a/TAO/orbsvcs/tests/ImplRepo/run_test.pl +++ b/TAO/orbsvcs/tests/ImplRepo/run_test.pl @@ -43,6 +43,12 @@ $IMR_LOCATOR = new PerlACE::Process ("../../ImplRepo_Service/ImplRepo_Service"); $IMR_ACTIVATOR = new PerlACE::Process ("../../ImplRepo_Service/ImR_Activator"); $TAO_IMR = new PerlACE::Process("$ACE_ROOT/bin/tao_imr"); +# We want the tao_imr executable to be found exactly in the path +# given, without being modified by the value of -ExeSubDir. +# So, we tell its Process object to ignore the setting of -ExeSubDir. + +$TAO_IMR->IgnoreExeSubDir (1); + $A_SVR = new PerlACE::Process (PerlACE::LocalFile ("airplane_server")); $A_CLI = new PerlACE::Process (PerlACE::LocalFile ("airplane_client"), " -k file://$airplane_ior"); |