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
|
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 -ORBConnectIPV6Only YES",
},
{
name => "ConnectDisconnect",
args => "-ORBConnectIPV6Only YES",
extra => 300,
},
{
name => "Events",
args => "-ORBConnectIPV6Only YES",
},
{
name => "IdAssignment",
args => "-ORBConnectIPV6Only YES",
},
{
name => "LifeCycle",
args => "-ORBConnectIPV6Only YES",
},
{
name => "Simple",
args => "-ORBConnectIPV6Only YES",
},
{
name => "MultiTypes",
args => "-ORBConnectIPV6Only YES",
},
{
name => "Filter",
args => "-ORBConnectIPV6Only YES",
},
{
name => "Updates",
args => "-ORBConnectIPV6Only YES",
},
{
name => "Sequence",
args => "-ORBConnectIPV6Only YES",
},
);
@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 ();
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 " .
"-ORBListenEndpoints iiop://1.2@[::1]");
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 ();
$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;
|
