diff options
| author | Johnny Willemsen <jwillemsen@remedy.nl> | 2007-12-06 15:11:06 +0000 |
|---|---|---|
| committer | Johnny Willemsen <jwillemsen@remedy.nl> | 2007-12-06 15:11:06 +0000 |
| commit | 65105a4863d8c07e6ea3585c32e2287c7b0743c1 (patch) | |
| tree | 702a6ad5a173b3b6a6d0f07f3b87748e0f7d0259 /TAO/tests/Big_Oneways | |
| parent | e8ea88fe68afa1065771a897f4debe833c5dfae4 (diff) | |
| download | ATCD-65105a4863d8c07e6ea3585c32e2287c7b0743c1.tar.gz | |
Thu Dec 6 15:10:54 UTC 2007 Johnny Willemsen <jwillemsen@remedy.nl>
Diffstat (limited to 'TAO/tests/Big_Oneways')
| -rwxr-xr-x | TAO/tests/Big_Oneways/run_test.pl | 16 |
1 files changed, 7 insertions, 9 deletions
diff --git a/TAO/tests/Big_Oneways/run_test.pl b/TAO/tests/Big_Oneways/run_test.pl index 9e4f729e416..8393570a65c 100755 --- a/TAO/tests/Big_Oneways/run_test.pl +++ b/TAO/tests/Big_Oneways/run_test.pl @@ -23,24 +23,22 @@ if (defined $opt_i) { if (defined $opt_b) { $server_args .= " -b ".$opt_b; } - -$iorfile = PerlACE::LocalFile ("server.ior"); +$iorfilebase = "server.ior"; +$iorfile = PerlACE::LocalFile ("$iorfilebase"); $status = 0; unlink $iorfile; if (PerlACE::is_vxworks_test()) { - $SV = new PerlACE::ProcessVX ("server", "-o server.ior $server_args -ORBDottedDecimalAddresses 1"); - $CL1 = new PerlACE::Process ("client", " -k file://$iorfile -ORBDottedDecimalAddresses 1"); - $CL2 = new PerlACE::Process ("client", " -k file://$iorfile -ORBDottedDecimalAddresses 1"); - $CL3 = new PerlACE::Process ("client", " -k file://$iorfile -ORBDottedDecimalAddresses 1"); + $SV = new PerlACE::ProcessVX ("server", "-o $iorfilebase $server_args"); } else { $SV = new PerlACE::Process ("server", "-o $iorfile $server_args"); - $CL1 = new PerlACE::Process ("client", " -k file://$iorfile"); - $CL2 = new PerlACE::Process ("client", " -k file://$iorfile"); - $CL3 = new PerlACE::Process ("client", " -k file://$iorfile"); } +$CL1 = new PerlACE::Process ("client", " -k file://$iorfile"); +$CL2 = new PerlACE::Process ("client", " -k file://$iorfile"); +$CL3 = new PerlACE::Process ("client", " -k file://$iorfile"); + $server = $SV->Spawn (); if ($server != 0) { |