diff options
author | elliott_c <elliott_c@ae88bc3d-4319-0410-8dbf-d08b4c9d3795> | 2008-06-20 14:33:12 +0000 |
---|---|---|
committer | elliott_c <elliott_c@ae88bc3d-4319-0410-8dbf-d08b4c9d3795> | 2008-06-20 14:33:12 +0000 |
commit | 09fe1cdc494016607664f08604be37d9afd4469b (patch) | |
tree | 0f4673bcc94562090ec89a97728d431f3e5fa4ab /TAO/tests/OctetSeq/run_test.pl | |
parent | fd6687d76c3d3b84a86cf8cdcce6f3c88287a221 (diff) | |
download | ATCD-09fe1cdc494016607664f08604be37d9afd4469b.tar.gz |
ChangeLogTag: Fri Jun 20 14:32:52 UTC 2008 Chad Elliott <elliott_c@ociweb.com>
Diffstat (limited to 'TAO/tests/OctetSeq/run_test.pl')
-rwxr-xr-x | TAO/tests/OctetSeq/run_test.pl | 14 |
1 files changed, 10 insertions, 4 deletions
diff --git a/TAO/tests/OctetSeq/run_test.pl b/TAO/tests/OctetSeq/run_test.pl index 6e079e8aebf..78fc54542a1 100755 --- a/TAO/tests/OctetSeq/run_test.pl +++ b/TAO/tests/OctetSeq/run_test.pl @@ -9,13 +9,19 @@ use lib "$ENV{ACE_ROOT}/bin"; use PerlACE::Run_Test; $status = 0; -$iorfile = "test.ior"; +$iorfile = PerlACE::LocalFile ("test.ior"); unlink $iorfile; -$SV = new PerlACE::TargetProcess ("server", "-o $iorfile"); -$T = new PerlACE::TargetProcess ("OctetSeq", "-n 32 -l 8192 -h 8192 -s 1 -q"); -$CL = new PerlACE::HostProcess ("client", "-i 5000 -k file://$iorfile"); +if (PerlACE::is_vxworks_test()) { + $SV = new PerlACE::ProcessVX ("server", "-o test.ior"); + $T = new PerlACE::ProcessVX ("OctetSeq", "-n 32 -l 8192 -h 8192 -s 1 -q"); +} +else { + $SV = new PerlACE::Process ("server", "-o $iorfile"); + $T = new PerlACE::Process ("OctetSeq", "-n 32 -l 8192 -h 8192 -s 1 -q"); +} +$CL = new PerlACE::Process ("client", "-i 5000 -k file://$iorfile"); print STDERR "\n\n==== Octet sequence passing test\n"; |