diff options
author | William R. Otte <wotte@dre.vanderbilt.edu> | 2006-07-24 15:50:11 +0000 |
---|---|---|
committer | William R. Otte <wotte@dre.vanderbilt.edu> | 2006-07-24 15:50:11 +0000 |
commit | 6b846cf03c0bcbd8c276cb0af61a181e5f98eaae (patch) | |
tree | da50d054f9c761c3f6a5923f6979e93306c56d68 /TAO/orbsvcs/tests/EC_Custom_Marshal/run_test.pl | |
parent | 0e555b9150d38e3b3473ba325b56db2642e6352b (diff) | |
download | ATCD-6b846cf03c0bcbd8c276cb0af61a181e5f98eaae.tar.gz |
Repo restructuring
Diffstat (limited to 'TAO/orbsvcs/tests/EC_Custom_Marshal/run_test.pl')
-rwxr-xr-x | TAO/orbsvcs/tests/EC_Custom_Marshal/run_test.pl | 74 |
1 files changed, 0 insertions, 74 deletions
diff --git a/TAO/orbsvcs/tests/EC_Custom_Marshal/run_test.pl b/TAO/orbsvcs/tests/EC_Custom_Marshal/run_test.pl deleted file mode 100755 index a44a114b388..00000000000 --- a/TAO/orbsvcs/tests/EC_Custom_Marshal/run_test.pl +++ /dev/null @@ -1,74 +0,0 @@ -eval '(exit $?0)' && eval 'exec perl -S $0 ${1+"$@"}' - & eval 'exec perl -S $0 $argv:q' - if 0; - -# $Id$ -# -*- perl -*- - -use lib '../../../../bin'; -use PerlACE::Run_Test; - -$port = PerlACE::uniqueid () + 10001; # This can't be 10000 on Chorus 4.0 - -$NS_ior = PerlACE::LocalFile ("NameService.ior"); -$sleeptime = 8; -$status = 0; - -$NS = new PerlACE::Process ("../../Naming_Service/Naming_Service", - "-ORBNameServicePort $port -o $NS_ior"); -$ES = new PerlACE::Process ("../../Event_Service/Event_Service", - "-ORBInitRef NameService=file://$NS_ior"); -$C = new PerlACE::Process ("ECM_Consumer", - "-ORBInitRef NameService=file://$NS_ior"); -$S = new PerlACE::Process ("ECM_Supplier", - "-ORBInitRef NameService=file://$NS_ior"); - -$NS->Spawn (); - -if (PerlACE::waitforfile_timed ($NS_ior, 10) == -1) { - print STDERR "ERROR: waiting for naming service IOR file\n"; - $NS->Kill (); - exit 1; -} - -$ES->Spawn (); - -sleep $sleeptime; - -$C->Spawn (); - -sleep $sleeptime; - -$S->Spawn (); - -$consumer = $C->WaitKill (60); - -if ($consumer != 0) { - print STDERR "ERROR: consumer returned $consumer\n"; - $status = 1; -} - -$supplier = $S->WaitKill (60); - -if ($supplier == -1) { - print STDERR "ERROR: supplier returned $supplier\n"; - $status = 1; -} - -$nserver = $NS->TerminateWaitKill (5); - -if ($nserver != 0) { - print STDERR "ERROR: nameserver returned $nserver\n"; - $status = 1; -} - -$eserver = $ES->TerminateWaitKill (5); - -if ($eserver != 0) { - print STDERR "ERROR: eventserver returned $eserver\n"; - $status = 1; -} - -unlink $NS_ior; - -exit $status; |