diff options
Diffstat (limited to 'tests/MT_NoUpcall_Client_Leader/run_test.pl')
-rwxr-xr-x | tests/MT_NoUpcall_Client_Leader/run_test.pl | 16 |
1 files changed, 14 insertions, 2 deletions
diff --git a/tests/MT_NoUpcall_Client_Leader/run_test.pl b/tests/MT_NoUpcall_Client_Leader/run_test.pl index d64c2393165..55f187c3c6c 100755 --- a/tests/MT_NoUpcall_Client_Leader/run_test.pl +++ b/tests/MT_NoUpcall_Client_Leader/run_test.pl @@ -11,8 +11,20 @@ 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"; -my $client_conf = $server->LocalFile ("mt_noupcall$PerlACE::svcconf_ext"); -my $server_conf = $server->LocalFile ("mt_noupcall$PerlACE::svcconf_ext"); +my $client_conf_base = "mt_noupcall$PerlACE::svcconf_ext"; +my $client_conf = $server->LocalFile ($client_conf_base); +if ($client->PutFile ($client_conf_base) == -1) { + print STDERR "ERROR: cannot set file <$client_conf>\n"; + exit 1; +} + + +my $server_conf_base = "mt_noupcall$PerlACE::svcconf_ext"; +my $server_conf = $server->LocalFile ($server_conf_base); +if ($client->PutFile ($server_conf_base) == -1) { + print STDERR "ERROR: cannot set file <$server_conf>\n"; + exit 1; +} $debug_level = '0'; |