Tue Sep 20 06:43:33 UTC 2011 Marcel Smit <msmit@remedy.nl>

        * tests/AMI/run_mt_noupcall.pl:
        * tests/MT_Client/run_test.pl:
          Copy only those configuration files that are needed by the targets.
          We don't want to solve this in the test framework; the script knows
          which configuration files should be copied.

2 files changed, 10 insertions, 1 deletions

diff --git a/TAO/tests/AMI/run_mt_noupcall.pl b/TAO/tests/AMI/run_mt_noupcall.pl
index 76ce949dbdd..72efcaa386b 100755
--- a/TAO/tests/AMI/run_mt_noupcall.pl
+++ b/TAO/tests/AMI/run_mt_noupcall.pl
@@ -11,7 +11,12 @@ use PerlACE::TestTarget;
 my $server = PerlACE::TestTarget::create_target (1) || die "Create target 1 failed\n";
 my $client = PerlACE::TestTarget::create_target (2) || die "Create target 2 failed\n";
 
-$client_conf = $client->LocalFile ("mt_noupcall$PerlACE::svcconf_ext");
+$client_conf_base = "mt_noupcall$PerlACE::svcconf_ext";
+$client_conf = $client->LocalFile ($client_conf_base);
+if ($client->PutFile ($client_conf_base) == -1) {
+    print STDERR "ERROR: cannot set file <$client_conf>\n";
+    exit 1;
+}
 
 $server_debug_level = '0';
 $client_debug_level = '0';
diff --git a/TAO/tests/MT_Client/run_test.pl b/TAO/tests/MT_Client/run_test.pl
index de410bbb050..e425d5c143a 100755
--- a/TAO/tests/MT_Client/run_test.pl
+++ b/TAO/tests/MT_Client/run_test.pl
@@ -43,6 +43,10 @@ $client->DeleteFile($iorbase);
 
 $server_conf1 = $server->LocalFile ($server_conf);
 
+if ($server->PutFile ($server_conf) == -1) {
+    print STDERR "ERROR: cannot set file <$server_conf1>\n";
+    exit 1;
+}
 
 $SV = $server->CreateProcess ("server",
                               "-ORBdebuglevel $debug_level " .