diff options
author | mcorino <mcorino@users.noreply.github.com> | 2005-04-15 12:33:21 +0000 |
---|---|---|
committer | mcorino <mcorino@users.noreply.github.com> | 2005-04-15 12:33:21 +0000 |
commit | 52b35348a5fc3be124bf7d93efd4705102781696 (patch) | |
tree | 850914d64f56066ff79de721f17a121577d97b63 /TAO/tests/Exposed_Policies/run_test.pl | |
parent | 929f6f2062d733de624942f91d74bef4e72f5c44 (diff) | |
download | ATCD-52b35348a5fc3be124bf7d93efd4705102781696.tar.gz |
ChangeLogTag: Fri Apr 15 12:30:12 UTC 2005 Martin Corino <mcorino@remedy.nl>
Diffstat (limited to 'TAO/tests/Exposed_Policies/run_test.pl')
-rwxr-xr-x | TAO/tests/Exposed_Policies/run_test.pl | 19 |
1 files changed, 14 insertions, 5 deletions
diff --git a/TAO/tests/Exposed_Policies/run_test.pl b/TAO/tests/Exposed_Policies/run_test.pl index 1bfc4949f2c..869ad6de981 100755 --- a/TAO/tests/Exposed_Policies/run_test.pl +++ b/TAO/tests/Exposed_Policies/run_test.pl @@ -13,11 +13,20 @@ $obj_file = PerlACE::LocalFile ("Object.cfg"); $base_ior_file = PerlACE::LocalFile ("default.ior"); $overridden_ior_file = PerlACE::LocalFile ("overridden.ior"); -$SV = new PerlACE::Process ("server", - " -POAConfigFile $poa_file" . - " -ObjectConfigFile $obj_file" . - " -BaseObjectIOR $base_ior_file" . - " -OverriddenIOR $overridden_ior_file"); +if (PerlACE::is_vxworks_test()) { + $SV = new PerlACE::ProcessVX ("server", + " -POAConfigFile POA.cfg" . + " -ObjectConfigFile Object.cfg" . + " -BaseObjectIOR default.ior" . + " -OverriddenIOR overridden.ior"); +} +else { + $SV = new PerlACE::Process ("server", + " -POAConfigFile $poa_file" . + " -ObjectConfigFile $obj_file" . + " -BaseObjectIOR $base_ior_file" . + " -OverriddenIOR $overridden_ior_file"); +} if ($^O eq "dec_osf") { $poa_file = PerlACE::LocalFile ("POA.cfg.tru64"); |