diff options
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"); |