diff options
Diffstat (limited to 'TAO/DevGuideExamples/ValueTypes/Bank/run_test.pl')
-rw-r--r-- | TAO/DevGuideExamples/ValueTypes/Bank/run_test.pl | 37 |
1 files changed, 37 insertions, 0 deletions
diff --git a/TAO/DevGuideExamples/ValueTypes/Bank/run_test.pl b/TAO/DevGuideExamples/ValueTypes/Bank/run_test.pl new file mode 100644 index 00000000000..7a13320b164 --- /dev/null +++ b/TAO/DevGuideExamples/ValueTypes/Bank/run_test.pl @@ -0,0 +1,37 @@ +eval '(exit $?0)' && eval 'exec perl -S $0 ${1+"$@"}' + & eval 'exec perl -S $0 $argv:q' + if 0; + +use Env (ACE_ROOT); +use lib "$ACE_ROOT/bin"; +use PerlACE::Run_Test; +$ior = "server.ior"; +$S = new PerlACE::Process("server"); +$S->Spawn(); + +if (PerlACE::waitforfile_timed ($ior, 10) == -1) { + print STDERR "ERROR: cannot find file <$ior>\n"; + $S->Kill(); + unlink $ior; + exit 1; +} + +$C = new PerlACE::Process("client"); +$C->Spawn(); + +$CRET = $C->WaitKill(15); +$S->Kill(); + +# clean-up + +unlink $ior; + +if ($CRET != 0) { + print STDERR "ERROR: Client returned <$CRET>\n"; + exit 1 ; +} + +exit 0; + + + |