From c3461273c5327fd4e9b860cb97cfa1e6229254d9 Mon Sep 17 00:00:00 2001 From: mcorino Date: Fri, 15 Apr 2005 12:33:21 +0000 Subject: ChangeLogTag: Fri Apr 15 12:30:12 UTC 2005 Martin Corino --- TAO/tests/InterOp-Naming/run_test.pl | 16 ++++++++++++---- 1 file changed, 12 insertions(+), 4 deletions(-) (limited to 'TAO/tests/InterOp-Naming') diff --git a/TAO/tests/InterOp-Naming/run_test.pl b/TAO/tests/InterOp-Naming/run_test.pl index 57ccfce2675..25be880b026 100755 --- a/TAO/tests/InterOp-Naming/run_test.pl +++ b/TAO/tests/InterOp-Naming/run_test.pl @@ -18,9 +18,17 @@ $status = 0; print STDERR "\n\n==== InitRef test\n"; unlink $file; -$SV = new PerlACE::Process ("INS_test_server", - "-ORBEndpoint iiop://1.0@"."$TARGETHOSTNAME:$port " - . " -i object_name -o $file -ORBDottedDecimalAddresses 1"); +if (PerlACE::is_vxworks_test()) { + $TARGETHOSTNAME = $ENV{'ACE_RUN_VX_TGT_HOST'}; + $SV = new PerlACE::ProcessVX ("INS_test_server", + "-ORBEndpoint iiop://1.0@"."$TARGETHOSTNAME:$port " + . " -i object_name -o test.ior -ORBDottedDecimalAddresses 1"); +} +else { + $SV = new PerlACE::Process ("INS_test_server", + "-ORBEndpoint iiop://1.0@"."$TARGETHOSTNAME:$port " + . " -i object_name -o $file -ORBDottedDecimalAddresses 1"); +} $SV->Spawn (); @@ -31,7 +39,7 @@ if (PerlACE::waitforfile_timed ($file, 10) == -1) { } $CL = new PerlACE::Process ("INS_test_client", - " random_service " + "random_service " ."-ORBInitRef random_service=" ."corbaloc::1.1@"."$TARGETHOSTNAME:$port/object_name"); -- cgit v1.2.1