diff options
| author | Abdullah Sowayan <sowayan@users.noreply.github.com> | 2008-10-21 20:47:43 +0000 |
|---|---|---|
| committer | Abdullah Sowayan <sowayan@users.noreply.github.com> | 2008-10-21 20:47:43 +0000 |
| commit | d2911d5b9eb897d3da7d458ebf5ba8b998bc7763 (patch) | |
| tree | 3158327d3787df5b439329fac177f20a12857c62 /TAO/DevGuideExamples/RTCORBA/run_test.pl | |
| parent | f8ea2bc5a4d98525f6f290d8272663e46aa1de74 (diff) | |
| download | ATCD-d2911d5b9eb897d3da7d458ebf5ba8b998bc7763.tar.gz | |
Tue Oct 21 19:10:21 UTC 2008 Abdullah Sowayan <abdullah.sowayan@lmco.com>
Diffstat (limited to 'TAO/DevGuideExamples/RTCORBA/run_test.pl')
| -rw-r--r-- | TAO/DevGuideExamples/RTCORBA/run_test.pl | 37 |
1 files changed, 37 insertions, 0 deletions
diff --git a/TAO/DevGuideExamples/RTCORBA/run_test.pl b/TAO/DevGuideExamples/RTCORBA/run_test.pl new file mode 100644 index 00000000000..e672f005f3e --- /dev/null +++ b/TAO/DevGuideExamples/RTCORBA/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="Messenger.ior"; +unlink $ior; + +# start MessengerServer +$S = new PerlACE::Process("MessengerServer"); +$S->Spawn(); +if (PerlACE::waitforfile_timed ($ior, 5) == -1) { + print STDERR "ERROR: cannot find file $ior\n"; + $S->Kill(); + exit 1; +} + + +# start MessengerClient +$C = new PerlACE::Process("MessengerClient"); + +if ($C->SpawnWaitKill(10) != 0) { + $S->Kill(); + exit (1); +} + +# clean-up +$S->Kill(); +unlink $ior; + +exit 0; + + + |