diff options
Diffstat (limited to 'TAO/tests/RTCORBA/Server_Declared/run_test.pl')
| -rwxr-xr-x | TAO/tests/RTCORBA/Server_Declared/run_test.pl | 25 |
1 files changed, 5 insertions, 20 deletions
diff --git a/TAO/tests/RTCORBA/Server_Declared/run_test.pl b/TAO/tests/RTCORBA/Server_Declared/run_test.pl index e13efcd664f..faf44c15a12 100755 --- a/TAO/tests/RTCORBA/Server_Declared/run_test.pl +++ b/TAO/tests/RTCORBA/Server_Declared/run_test.pl @@ -23,33 +23,18 @@ $server_conf = PerlACE::LocalFile ("server.conf"); # available range. $server_args = - "-p $iorfile1 -o $iorfile2 -a 65 -b 75 -c 70 -ORBSvcConf $server_conf " - ."-ORBendpoint iiop://$TARGETHOSTNAME:0/priority=65 " - ."-ORBendpoint iiop://$TARGETHOSTNAME:0/priority=75 " - ."-ORBendpoint iiop://$TARGETHOSTNAME:0/priority=73 "; + "-p $iorfile1 -o $iorfile2 -a 65 -b 75 -c 70 -ORBSvcConf $server_conf"; print STDERR "Value is " . $^O; if ($^O eq "MSWin32") { $server_args = - "-p $iorfile1 -o $iorfile2 -a 3 -b 5 -c 2 -ORBSvcConf $server_conf " - ."-ORBendpoint iiop://$TARGETHOSTNAME:0/priority=3 " - ."-ORBendpoint iiop://$TARGETHOSTNAME:0/priority=5 " - ."-ORBendpoint iiop://$TARGETHOSTNAME:0/priority=1 "; + "-p $iorfile1 -o $iorfile2 -a 3 -b 5 -c 2 -ORBSvcConf $server_conf "; } -elsif ($^O eq "dec_osf") { - $server_args = - "-p $iorfile1 -o $iorfile2 -a 20 -b 30 -c 25 -ORBSvcConf $server_conf " - ."-ORBendpoint iiop://$TARGETHOSTNAME:0/priority=20 " - ."-ORBendpoint iiop://$TARGETHOSTNAME:0/priority=30 " - ."-ORBendpoint iiop://$TARGETHOSTNAME:0/priority=28 "; -} -elsif ($^O eq "hpux") { + +if ($^O eq "dec_osf") { $server_args = - "-p $iorfile1 -o $iorfile2 -a 17 -b 29 -c 24 -ORBSvcConf $server_conf " - ."-ORBendpoint iiop://$TARGETHOSTNAME:0/priority=17 " - ."-ORBendpoint iiop://$TARGETHOSTNAME:0/priority=29 " - ."-ORBendpoint iiop://$TARGETHOSTNAME:0/priority=27 "; + "-p $iorfile1 -o $iorfile2 -a 20 -b 30 -c 25 -ORBSvcConf $server_conf "; } $client_args = "-p file://$iorfile1 -o file://$iorfile2"; |