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 | 18 |
1 files changed, 5 insertions, 13 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 b3d985c0194..4997a5d88ef 100755 --- a/TAO/tests/RTCORBA/MT_Client_Protocol_Priority/run_test.pl +++ b/TAO/tests/RTCORBA/MT_Client_Protocol_Priority/run_test.pl @@ -20,25 +20,22 @@ if ($ARGV[0] eq '-q') { $iorfile = PerlACE::LocalFile ("test.ior"); $data_file = PerlACE::LocalFile ("test_run.data"); +$debug_level = 1; $iterations = 50; $priority1 = 65; $priority2 = 70; -$priority3 = 75; if ($^O eq "MSWin32") { - $priority1 = 6; + $priority1 = 2; $priority2 = 1; - $priority3 = 5; } elsif ($^O eq "dec_osf") { $priority1 = 20; $priority2 = 25; - $priority3 = 30; } elsif ($^O eq "hpux") { $priority1 = 17; $priority2 = 22; - $priority3 = 29; } # Clean up leftovers from previous runs. @@ -48,13 +45,8 @@ unlink $data_file; $server_conf = PerlACE::LocalFile ("server.conf"); $server_args = - "-o $iorfile -ORBdebuglevel 1 -ORBsvcconf $server_conf " - ."-ORBendpoint iiop://$TARGETHOSTNAME:0/priority=$priority1 " - ."-ORBendpoint iiop://$TARGETHOSTNAME:0/priority=$priority2 " - ."-ORBendpoint iiop://$TARGETHOSTNAME:0/priority=$priority3 " - ."-ORBendpoint shmiop://0/priority=$priority1 " - ."-ORBendpoint shmiop://0/priority=$priority2 " - ."-ORBendpoint shmiop://0/priority=$priority3 "; + "-o $iorfile -ORBdebuglevel $debug_level -ORBsvcconf $server_conf " + ."-ORBendpoint iiop:// -ORBendpoint shmiop:// "; $client_args = "-o file://$iorfile " @@ -125,11 +117,11 @@ if ($errors > 0) { else { print STDERR "ERROR: Could not open $data_file\n"; } - unlink $data_file; } } unlink $iorfile; +unlink $data_file; # Clean up shmiop files PerlACE::check_n_cleanup_files ("server_shmiop_*"); |