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
|
eval '(exit $?0)' && eval 'exec perl -S $0 ${1+"$@"}'
& eval 'exec perl -S $0 $argv:q'
if 0;
# $Id$
# -*- perl -*-
# This is a Perl script that runs the client and all the other servers that
# are needed
use lib "$ENV{ACE_ROOT}/bin";
use PerlACE::Run_Test;
$status = 0;
$svc_conf = PerlACE::LocalFile ("svc$PerlACE::svcconf_ext");
$observer_conf = PerlACE::LocalFile ("observer$PerlACE::svcconf_ext");
$svc_complex_conf = PerlACE::LocalFile ("svc.complex$PerlACE::svcconf_ext");
$mt_svc_conf = PerlACE::LocalFile ("mt.svc$PerlACE::svcconf_ext");
$svc_complex_conf = PerlACE::LocalFile ("svc.complex$PerlACE::svcconf_ext");
$control_conf = PerlACE::LocalFile ("control$PerlACE::svcconf_ext");
sub RunTest ($$$)
{
my $message = shift;
my $program = shift;
my $arguments = shift;
my $TEST = new PerlACE::Process ($program, $arguments);
print STDERR "\n\n$message\n";
my $test = $TEST->SpawnWaitKill (240);
if ($test != 0) {
print STDERR "ERROR: Test returned $test\n";
$status = 1;
}
}
RunTest ("Reconnect suppliers and consumers, using disconnect/connect calls",
"Reconnect",
"-ORBsvcconf $svc_conf -suppliers 100 -consumers 100 -d 100");
RunTest ("Reconnect suppliers and consumers, using connect calls",
"Reconnect",
"-ORBsvcconf $svc_conf -suppliers 100 -consumers 100 -d 100 -s -c");
RunTest ("Shutdown EC with clients still attached",
"Shutdown",
"-ORBsvcconf $svc_conf -suppliers 5 -consumers 5");
RunTest ("Gateway test",
"Gateway",
"-ORBsvcconf $observer_conf");
RunTest ("Complex event channel test, multiple ECs connected through gateways",
"Observer",
"-ORBsvcconf $observer_conf -consumer_tshift 0 -consumers 5 -supplier_tshift 0 -suppliers 2 -burstsize 10 -burstcount 10 -burstpause 0");
RunTest ("Timeout tests",
"Timeout",
"-ORBsvcconf $svc_conf");
RunTest ("Wildcard tests",
"Wildcard",
"-ORBsvcconf $svc_conf");
RunTest ("Negation tests",
"Negation",
"-ORBsvcconf $svc_conf");
RunTest ("Bitmask tests",
"Bitmask",
"-ORBSvcConf $svc_complex_conf");
RunTest ("Disconnect callbacks test",
"Disconnect",
"-ORBsvcconf $svc_conf");
RunTest ("MT Disconnects test",
"MT_Disconnect",
"-ORBSvcConf $mt_svc_conf");
RunTest ("Atomic Reconnection test",
"Atomic_Reconnect",
"-ORBSvcConf $mt_svc_conf");
RunTest ("Complex filter",
"Complex",
"-ORBSvcConf $svc_complex_conf");
RunTest ("Control test",
"Control",
"-ORBSvcConf $control_conf");
RunTest ("Random test",
"Random",
"-ORBSvcConf $svc_conf -suppliers 4 -consumers 4 -max_recursion 1");
exit $status;
|