summaryrefslogtreecommitdiff
path: root/TAO/orbsvcs/tests/CosEC_Multiple/run_test2.pl
diff options
context:
space:
mode:
Diffstat (limited to 'TAO/orbsvcs/tests/CosEC_Multiple/run_test2.pl')
-rwxr-xr-xTAO/orbsvcs/tests/CosEC_Multiple/run_test2.pl104
1 files changed, 0 insertions, 104 deletions
diff --git a/TAO/orbsvcs/tests/CosEC_Multiple/run_test2.pl b/TAO/orbsvcs/tests/CosEC_Multiple/run_test2.pl
deleted file mode 100755
index a748182fe12..00000000000
--- a/TAO/orbsvcs/tests/CosEC_Multiple/run_test2.pl
+++ /dev/null
@@ -1,104 +0,0 @@
-#$Id$
-# -*- perl -*-
-eval '(exit $?0)' && eval 'exec perl -S $0 ${1+"$@"}'
- & eval 'exec perl -S $0 $argv:q'
- if 0;
-
-use lib "../../../../bin";
-
-require ACEutils;
-
-$con_count = 10;
-$sup_count = 10;
-$ev_count = 8;
-
-sub cosec_multiple_test2
-{
- # first start the Naming service..
- $SV1 = Process::Create ($EXEPREFIX."../../Naming_Service/Naming_Service".$Process::EXE_EXT,"");
-
- sleep 10;
-
- # now start the Rt EC..
- $SV2 = Process::Create ($EXEPREFIX."../../Event_Service/Event_Service".$Process::EXE_EXT,"");
-
- sleep 10;
-
- # now start the CosEC1..
- $SV3 = Process::Create ($EXEPREFIX."../../CosEvent_Service/CosEvent_Service".$Process::EXE_EXT);
-
- sleep 10;
-
- # now start the consumers
- for ($cntr1 = 0; $cntr1 < $con_count ; $cntr1+=1)
- {
- print "creating consumer# $cntr1\n";
- $CONS = Process::Create ($EXEPREFIX."consumer".$Process::EXE_EXT,
- "-c $ev_count");
- sleep 10;
- }
-
-
- # now start the suppliers
- for ($cntr2 = 0; $cntr2 < $con_count ; $cntr2+=1)
- {
- print "creating supplier# $cntr2\n";
- $SUPP = Process::Create ($EXEPREFIX."supplier".$Process::EXE_EXT,
- "-c $ev_count");
- sleep 10;
- }
-
- print "waiting for the last supplier to finish\n";
- $SUPP->Wait ();
-
-
- print "waiting for the last consumer to finish\n";
- $CONS->Wait ();
-
-
- print "cleanup...\n";
- $SV1->Kill ();
- $SV2->Kill ();
- $SV3->Kill ();
-
- $SV1->Wait ();
- $SV2->Wait ();
- $SV3->Wait ();
-
- print "done!.\n";
-}
-
-# Parse the arguments
-
-for ($i = 0; $i <= $#ARGV; $i++)
-{
- SWITCH:
- {
- if ($ARGV[$i] eq "-h" || $ARGV[$i] eq "-?")
- {
- print "usage: run_test2.pl -e event_count -c consumers -s suppliers -h help\n";
- exit;
- }
- if ($ARGV[$i] eq "-e")
- {
- $ev_count = $ARGV[$i + 1];
- $i++;
- last SWITCH;
- }
- if ($ARGV[$i] eq "-c")
- {
- $con_count = $ARGV[$i + 1];
- $i++;
- last SWITCH;
- }
- if ($ARGV[$i] eq "-s")
- {
- $sup_count = $ARGV[$i + 1];
- $i++;
- last SWITCH;
- }
-}
-}
-
-
-cosec_multiple_test2 ();