diff options
Diffstat (limited to 'TAO/orbsvcs/tests/InterfaceRepo/Application_Test/run_test.pl')
-rwxr-xr-x | TAO/orbsvcs/tests/InterfaceRepo/Application_Test/run_test.pl | 18 |
1 files changed, 17 insertions, 1 deletions
diff --git a/TAO/orbsvcs/tests/InterfaceRepo/Application_Test/run_test.pl b/TAO/orbsvcs/tests/InterfaceRepo/Application_Test/run_test.pl index 6ddd8f3fee1..d6831078350 100755 --- a/TAO/orbsvcs/tests/InterfaceRepo/Application_Test/run_test.pl +++ b/TAO/orbsvcs/tests/InterfaceRepo/Application_Test/run_test.pl @@ -14,6 +14,22 @@ $ifr_iorfile= "if_repo.ior"; $svr_iorfile = "iorfile"; $test_idl = PerlACE::LocalFile ("test.idl"); +# find the tao_ifr executable. +# Its placement is dependent upon the OS and if MPC generated makefiles are used. +my $exec_extn=""; +if ($^O eq "MSWin32") { + $exec_extn=".exe"; +} + +$tao_ifr = "../../../../../bin/tao_ifr"; +if (! -e $tao_ifr . $exec_extn ) { + $tao_ifr = "../../../IFR_Service/tao_ifr"; + if (! -e $tao_ifr . $exec_extn ) { + print STDERR "ERROR: tao_ifr compiler not found.\n"; + exit 1; + } +} + $lookup_by_name = ""; $other = ""; @@ -26,7 +42,7 @@ for ($i = 0; $i <= $#ARGV; $i++) { } } -$TAO_IFR = new PerlACE::Process ("../../../../../bin/tao_ifr"); +$TAO_IFR = new PerlACE::Process ($tao_ifr); $IFR = new PerlACE::Process ("../../../IFR_Service/IFR_Service", " -o $ifr_iorfile"); $SV = new PerlACE::Process ("server", "-ORBInitRef InterfaceRepository=file://$ifr_iorfile"); $CL = new PerlACE::Process ("client", "-ORBInitRef InterfaceRepository=file://$ifr_iorfile" |