diff options
Diffstat (limited to 'tests/Oneway_Send_Timeouts/run_test.pl')
-rwxr-xr-x | tests/Oneway_Send_Timeouts/run_test.pl | 13 |
1 files changed, 10 insertions, 3 deletions
diff --git a/tests/Oneway_Send_Timeouts/run_test.pl b/tests/Oneway_Send_Timeouts/run_test.pl index 9fddebaff12..c9945d9b814 100755 --- a/tests/Oneway_Send_Timeouts/run_test.pl +++ b/tests/Oneway_Send_Timeouts/run_test.pl @@ -14,7 +14,7 @@ $status = 0; $debug_level = '0'; $test_port = 12345; $management_port = 12346; -$client_conf = $target->LocalFile ("lf_flush.conf"); +$conf_file = "lf_flush.conf"; $flush_strategy = "LF"; foreach $i (@ARGV) { @@ -22,11 +22,11 @@ foreach $i (@ARGV) { $debug_level = '10'; } elsif ($i eq '-blocking') { - $client_conf = "block_flush.conf"; + $conf_file = "block_flush.conf"; $flush_strategy = "BLOCKING"; } elsif ($i eq '-reactive') { - $client_conf = "reactive_flush.conf"; + $conf_file = "reactive_flush.conf"; $flush_strategy = "REACTIVE"; } else { @@ -35,6 +35,13 @@ foreach $i (@ARGV) { } } +$client_conf = $target->LocalFile ($conf_file); + +if ($target->PutFile ($conf_file) == -1) { + print STDERR "ERROR: cannot set file <$client_conf>\n"; + exit 1; +} + my $test_opts = "-s \'-ORBEndpoint iiop://localhost:$test_port -ORBEndpoint " . "iiop://localhost:$management_port -ORBDebuglevel $debug_level -ORBCollocation " . "no -ORBGestalt LOCAL\' -c \'-k corbaloc::localhost:$test_port/Test -b " . |