diff options
Diffstat (limited to 'TAO/tests/RTCORBA/MT_Client_Protocol_Priority/run_test.pl')
-rwxr-xr-x | TAO/tests/RTCORBA/MT_Client_Protocol_Priority/run_test.pl | 12 |
1 files changed, 9 insertions, 3 deletions
diff --git a/TAO/tests/RTCORBA/MT_Client_Protocol_Priority/run_test.pl b/TAO/tests/RTCORBA/MT_Client_Protocol_Priority/run_test.pl index af580051506..ba40eab7c7d 100755 --- a/TAO/tests/RTCORBA/MT_Client_Protocol_Priority/run_test.pl +++ b/TAO/tests/RTCORBA/MT_Client_Protocol_Priority/run_test.pl @@ -43,14 +43,20 @@ unlink $iorfile; unlink $data_file; $server_args = - "-o $iorfile -ORBdebuglevel $debug_level " - ."-ORBendpoint iiop:// -ORBendpoint shmiop:// "; + "-ORBdebuglevel $debug_level " + ."-ORBendpoint iiop:// " + .(PerlACE::is_vxworks_test() ? "" : "-ORBendpoint shmiop:// "); $client_args = "-o file://$iorfile " ."-a $priority1 -b $priority2 -e 1413566210 -f 0 -n $iterations"; -$SV = new PerlACE::Process ("server", $server_args); +if (PerlACE::is_vxworks_test()) { + $SV = new PerlACE::ProcessVX ("server", "-o test.ior $server_args"); +} +else { + $SV = new PerlACE::Process ("server", "-o $iorfile $server_args"); +} $CL = new PerlACE::Process ("client", $client_args); print STDERR "\n********** MT Client Protocol & CLIENT_PROPAGATED combo Test\n\n"; |