diff options
author | coryan <coryan@ae88bc3d-4319-0410-8dbf-d08b4c9d3795> | 1998-08-11 16:07:09 +0000 |
---|---|---|
committer | coryan <coryan@ae88bc3d-4319-0410-8dbf-d08b4c9d3795> | 1998-08-11 16:07:09 +0000 |
commit | 9b5712f17cd2e5ad6cdded3bf144210bd16d9b49 (patch) | |
tree | 6de07d4183b01a3311bfe5fb2b4eb0a5d6185426 /TAO/orbsvcs/tests/EC_Custom_Marshal/run_test.pl | |
parent | 785320f54280f7a07f05ef4adc939d3f60ba5ab9 (diff) | |
download | ATCD-9b5712f17cd2e5ad6cdded3bf144210bd16d9b49.tar.gz |
ChangeLogTag:Tue Aug 11 10:51:36 1998 Carlos O'Ryan <coryan@cs.wustl.edu>
Diffstat (limited to 'TAO/orbsvcs/tests/EC_Custom_Marshal/run_test.pl')
-rwxr-xr-x | TAO/orbsvcs/tests/EC_Custom_Marshal/run_test.pl | 42 |
1 files changed, 42 insertions, 0 deletions
diff --git a/TAO/orbsvcs/tests/EC_Custom_Marshal/run_test.pl b/TAO/orbsvcs/tests/EC_Custom_Marshal/run_test.pl new file mode 100755 index 00000000000..d52d64dde97 --- /dev/null +++ b/TAO/orbsvcs/tests/EC_Custom_Marshal/run_test.pl @@ -0,0 +1,42 @@ +# $Id$ +# -*- perl -*- +eval '(exit $?0)' && eval 'exec perl -S $0 ${1+"$@"}' + & eval 'exec perl -S $0 $argv:q' + if 0; + +unshift @INC, '../../../../bin'; +require Process; + +$NS_ior = "NameService.ior"; +$sleeptime = 3; + +$NS = Process::Create ("..".$DIR_SEPARATOR. + "..".$DIR_SEPARATOR. + "Naming_Service".$DIR_SEPARATOR + "Naming_Service". + $Process::EXE_EXT." -o $NS_ior "); +sleep $sleeptime; + +$ES = Process::Create ("..".$DIR_SEPARATOR. + "..".$DIR_SEPARATOR. + "Event_Service". + "Event_Service".$Process::EXE_EXT); + +sleep $sleeptime; + +$C = Process::Create ("ECM_Consumer".$Process::EXE_EXT); + +sleep $sleeptime; + +$S = Process::Create ("ECM_Supplier".$Process::EXE_EXT); + +$C->Wait (); +$S->Wait (); + +$NS->Kill (); $NS->Wait (); +$ES->Kill (); $ES->Wait (); + +unlink $NS_ior; + +# @@ Capture the errors from the processes. +exit 0; |