diff options
author | Johnny Willemsen <jwillemsen@remedy.nl> | 2008-04-01 13:13:30 +0000 |
---|---|---|
committer | Johnny Willemsen <jwillemsen@remedy.nl> | 2008-04-01 13:13:30 +0000 |
commit | d7fdc3e5cb498443ef2b05bcd66a2e378fb7d274 (patch) | |
tree | f229509f591987d46e230714b274714b94be7d8d /TAO/examples/Buffered_AMI | |
parent | f0ed0c373fd20decf3aedf82e672957588dab52e (diff) | |
download | ATCD-d7fdc3e5cb498443ef2b05bcd66a2e378fb7d274.tar.gz |
Tue Apr 1 13:13:12 UTC 2008 Johnny Willemsen <jwillemsen@remedy.nl>
Diffstat (limited to 'TAO/examples/Buffered_AMI')
-rwxr-xr-x | TAO/examples/Buffered_AMI/run_test.pl | 17 |
1 files changed, 14 insertions, 3 deletions
diff --git a/TAO/examples/Buffered_AMI/run_test.pl b/TAO/examples/Buffered_AMI/run_test.pl index 7a8774a5fdc..c463024e5a7 100755 --- a/TAO/examples/Buffered_AMI/run_test.pl +++ b/TAO/examples/Buffered_AMI/run_test.pl @@ -8,16 +8,27 @@ eval '(exit $?0)' && eval 'exec perl -S $0 ${1+"$@"}' use lib "$ENV{ACE_ROOT}/bin"; use PerlACE::Run_Test; -$iorfile = PerlACE::LocalFile ("ami.ior"); +$iorbase = "ami.ior"; +$iorfile = PerlACE::LocalFile ("$iorbase"); $status = 0; unlink $iorfile; -$SV = new PerlACE::Process ("server", "-o $iorfile"); +if (PerlACE::is_vxworks_test()) { + $SV = new PerlACE::ProcessVX ("server", "-o $iorbase"); +} +else { + $SV = new PerlACE::Process ("server", "-o $iorfile"); +} $CL = new PerlACE::Process ("client", "-k file://$iorfile -x"); -$SV->Spawn (); +$server = $SV->Spawn (); + +if ($server != 0) { + print STDERR "ERROR: server returned $server\n"; + exit 1; +} if (PerlACE::waitforfile_timed ($iorfile, $PerlACE::wait_interval_for_process_creation) == -1) { print STDERR "ERROR: cannot find file <$iorfile>\n"; |