summaryrefslogtreecommitdiff
path: root/tests/Oneway_Send_Timeouts/run_test.pl
diff options
context:
space:
mode:
Diffstat (limited to 'tests/Oneway_Send_Timeouts/run_test.pl')
-rwxr-xr-xtests/Oneway_Send_Timeouts/run_test.pl13
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 " .