blob: 6a00abf45564f6819910e85fba56067d5a2b691c (
plain)
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
61
62
63
64
65
66
67
68
69
70
71
72
73
74
75
76
77
78
79
80
81
82
83
84
85
86
87
88
89
90
91
92
93
94
95
96
97
98
99
100
101
102
103
104
105
106
107
108
109
110
111
112
113
114
115
116
|
eval '(exit $?0)' && eval 'exec perl -S $0 ${1+"$@"}'
& eval 'exec perl -S $0 $argv:q'
if 0;
# $Id$
# -*- perl -*-
use lib "../../../../bin";
require ACEutils;
$con_count = 10;
$sup_count = 10;
$ev_count = 8;
$status = 0;
sub cosec_multiple_test2
{
# first start the Naming service..
$SV1 = Process::Create ($EXEPREFIX."../../Naming_Service/Naming_Server".$EXE_EXT, "");
sleep 10;
# now start the Rt EC..
$SV2 = Process::Create ($EXEPREFIX."../../Event_Service/Event_Service".$EXE_EXT, "");
sleep 10;
# now start the CosEC1..
$SV3 = Process::Create ($EXEPREFIX."../../CosEvent_Service/CosEvent_Service".$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".$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".$EXE_EXT,
"-c $ev_count");
sleep 10;
}
print "waiting for the last supplier to finish\n";
if ($SUPP->TimedWait (60) == -1) {
print STDERR "ERROR: supplier timedout\n";
$status = 1;
$SUPP->Kill (); $SUPP->TimedWait (1);
}
print "waiting for the last consumer to finish\n";
if ($CONS->TimedWait (60) == -1) {
print STDERR "ERROR: consumer timedout\n";
$status = 1;
$CONS->Kill (); $CONS->TimedWait (1);
}
print "cleanup...\n";
$SV1->Kill ();
$SV2->Kill ();
$SV3->Kill ();
$SV1->TimedWait (1);
$SV2->TimedWait (1);
$SV3->TimedWait (1);
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 ();
exit $status;
|