summaryrefslogtreecommitdiff
path: root/TAO/tests/Big_Reply
diff options
context:
space:
mode:
authorJohnny Willemsen <jwillemsen@remedy.nl>2009-09-28 17:54:32 +0000
committerJohnny Willemsen <jwillemsen@remedy.nl>2009-09-28 17:54:32 +0000
commitb2ea56d82cc7bb4e5afbe80089b57f72db5c6394 (patch)
tree130e7fbf63b5c709cffa4f59666b9e5c55da9645 /TAO/tests/Big_Reply
parent0894cd1d945b8c318b4f4507b642d16debe6a8c9 (diff)
downloadATCD-b2ea56d82cc7bb4e5afbe80089b57f72db5c6394.tar.gz
Diffstat (limited to 'TAO/tests/Big_Reply')
-rwxr-xr-xTAO/tests/Big_Reply/run_test.pl6
1 files changed, 3 insertions, 3 deletions
diff --git a/TAO/tests/Big_Reply/run_test.pl b/TAO/tests/Big_Reply/run_test.pl
index fba3a9418e0..3cd142b3815 100755
--- a/TAO/tests/Big_Reply/run_test.pl
+++ b/TAO/tests/Big_Reply/run_test.pl
@@ -8,15 +8,15 @@ eval '(exit $?0)' && eval 'exec perl -S $0 ${1+"$@"}'
use lib "$ENV{ACE_ROOT}/bin";
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 $iorbase = "server.ior";
my $server_iorfile = $server->LocalFile ($iorbase);
my $client_iorfile = $client->LocalFile ($iorbase);
$server->DeleteFile($iorbase);
$client->DeleteFile($iorbase);
-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";
-
$SV = $server->CreateProcess ("server", "-o file://$server_iorfile");
$CL = $client->CreateProcess ("client", "-k file://$client_iorfile");