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
117
118
119
120
121
122
123
124
125
126
127
128
129
130
131
132
133
134
135
136
137
138
139
140
141
142
143
144
145
146
147
148
149
150
151
152
|
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;
$experiment_timeout = 60;
$startup_timeout = 60;
$notifyior = PerlACE::LocalFile ("notify.ior");
$namingior = PerlACE::LocalFile ("naming.ior");
$status = 0;
@tests =
(
{
name => "AdminProperties",
args => "-ORBSvcConf adminproperties.conf",
},
{
name => "ConnectDisconnect",
args => "",
extra => 300,
},
{
name => "Events",
args => "",
},
{
name => "IdAssignment",
args => "",
},
{
name => "LifeCycle",
args => "",
},
{
name => "Simple",
args => "",
},
{
name => "MultiTypes",
args => "",
},
{
name => "Filter",
args => "",
},
{
name => "Updates",
args => "",
},
{
name => "Sequence",
args => "",
},
);
@default_test_configs =
(
"notify.rt.conf",
"notify.reactive.conf",
"notify.mt.conf",
);
if ($#ARGV == -1)
{
@test_configs = @default_test_configs;
}
else
{
@test_configs = @ARGV;
}
$Naming = new PerlACE::Process ("../../../Naming_Service/Naming_Service",
"-o $namingior");
unlink $namingior;
$naming_spawn = $Naming->Spawn ();
if ($naming_spawn != 0)
{
exit 1;
}
if (PerlACE::waitforfile_timed ($namingior, $startup_timeout) == -1) {
print STDERR "ERROR: waiting for the naming service to start\n";
$Naming->Kill ();
exit 1;
}
for $config (@test_configs)
{
print STDERR "\nTesting Notification Service with config file = $config ....\n\n";
$Notification = new PerlACE::Process ("../../../Notify_Service/Notify_Service",
"-ORBInitRef NameService=file://$namingior " .
"-IORoutput $notifyior " .
"-ORBSvcConf $config");
unlink $notifyior;
$Notification->Spawn ();
if (PerlACE::waitforfile_timed ($notifyior, $startup_timeout) == -1) {
print STDERR "ERROR: waiting for the notify service to start\n";
$Notification->Kill ();
$Naming->Kill ();
exit 1;
}
for $name (@tests)
{
## The MaxQueueLength and MaxEventsPerConsumer are not supported in the Reactive
## configuration, so we skip this test for now.
## The Notification should actually throw an exception for the property not supported.
if ($name->{name} eq "AdminProperties"
&& ($config eq "notify.reactive.conf" || $config eq "notify.rt.conf"))
{
next;
}
print STDERR "\nTesting $name->{name}....\n\n";
$test = new PerlACE::Process ("./$name->{name}",
"-ORBInitRef NameService=file://$namingior " .
"$name->{args} ");
$test_spawn = $test->Spawn ();
if ($test_spawn != 0)
{
break;
}
$status = $test->WaitKill ($experiment_timeout +
(defined $name->{extra} ?
$name->{extra} : 0));
if ($status != 0)
{
print STDERR "ERROR: $name->{name} returned $status\n";
break;
}
}
$Notification->Kill ();
}
$Naming->Kill ();
unlink $namingior;
unlink $notifyior;
exit $status;
|
