diff options
Diffstat (limited to 'tests/Connect_Strategy_Test/run_test.pl')
| -rwxr-xr-x | tests/Connect_Strategy_Test/run_test.pl | 18 |
1 files changed, 14 insertions, 4 deletions
diff --git a/tests/Connect_Strategy_Test/run_test.pl b/tests/Connect_Strategy_Test/run_test.pl index 01ee992887d..ae333b28998 100755 --- a/tests/Connect_Strategy_Test/run_test.pl +++ b/tests/Connect_Strategy_Test/run_test.pl @@ -21,15 +21,25 @@ my $server = PerlACE::TestTarget::create_target (1) || die "Create target 1 fail my $client = PerlACE::TestTarget::create_target (2) || die "Create target 2 failed\n"; my $iorbase = "server.ior"; -my $reactor_conf = "reactor$PerlACE::svcconf_ext"; -my $blocked_conf = "blocked$PerlACE::svcconf_ext"; my $server_iorfile = $server->LocalFile ($iorbase); my $client_iorfile = $client->LocalFile ($iorbase); -my $client_reactor_conf = $client->LocalFile ($reactor_conf); -my $client_blocked_conf = $client->LocalFile ($blocked_conf); $server->DeleteFile($iorbase); $client->DeleteFile($iorbase); +my $reactor_conf = "reactor$PerlACE::svcconf_ext"; +my $client_reactor_conf = $client->LocalFile ($reactor_conf); +if ($client->PutFile ($reactor_conf) == -1) { + print STDERR "ERROR: cannot set file <$client_reactor_conf>\n"; + exit 1; +} + +my $blocked_conf = "blocked$PerlACE::svcconf_ext"; +my $client_blocked_conf = $client->LocalFile ($blocked_conf); +if ($client->PutFile ($blocked_conf) == -1) { + print STDERR "ERROR: cannot set file <$client_blocked_conf>\n"; + exit 1; +} + $SV = $server->CreateProcess ("server", "-ORBdebuglevel $debug_level -o $server_iorfile"); $CL = $client->CreateProcess ("client", "-k file://$client_iorfile"); $server_status = $SV->Spawn (); |