blob: f55689a544676eea2c86fa75555a13b5ecca7200 (
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
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
153
154
155
156
157
158
159
160
161
162
163
164
165
166
167
168
169
170
171
172
173
174
175
176
177
178
179
180
181
182
183
184
|
eval '(exit $?0)' && eval 'exec perl -S $0 ${1+"$@"}'
& eval 'exec perl -S $0 $argv:q'
if 0;
# $Id$
# -*- perl -*-
###############################################################################
my $ACE_ROOT = $ENV{ACE_ROOT};
use lib "$ENV{ACE_ROOT}/bin";
use PerlACE::Run_Test;
use Cwd;
use Sys::Hostname;
use File::Copy;
use strict;
my $cwd = getcwd();
if (!defined $ACE_ROOT) {
print "Error: ACE_ROOT not defined.\n";
return 1;
}
# this matches the orbendpoint used in start_all.conf
my $imr_corbaloc = "corbaloc::localhost:9999";
my $imr_initref = "-orbinitref ImplRepoService=$imr_corbaloc/ImplRepoService";
my $imr_start_file = PerlACE::LocalFile ("imr_status");
my $server_start_file = PerlACE::LocalFile ("server_status");
my $start_conf = PerlACE::LocalFile ("start_all.conf");
my $COMB = new PerlACE::Process (PerlACE::LocalFile ("combined_service"));
my $combined_ior = PerlACE::LocalFile ("combined.ior");
my $cs_initref = "-orbinitref ServiceConfig=file://$combined_ior";
my $SERV = new PerlACE::Process (PerlACE::LocalFile ("test_server"));
my $test_server = $SERV->Executable ();
my $IMRUTIL = new PerlACE::Process("$ACE_ROOT/bin/tao_imr");
my $CLI = new PerlACE::Process ('test');
my $test_initref = "-orbinitref Test=$imr_corbaloc";
my $hostname = hostname();
###############################################################################
sub do_test
{
unlink $combined_ior;
my $start_time = time();
print STDERR "Starting comb -f $start_conf\n";
# First we start all the servers, including the test server
$COMB->Arguments("-f $start_conf");
my $ret = $COMB->Spawn();
if ($ret != 0) {
print "ERROR : spawning combined service.\n";
return $ret;
}
## Wait a little bit for everything to get started
sleep(2);
print STDERR "Starting test_server -orbuseimr 1 $imr_initref\n";
$SERV->Arguments("-orbuseimr 1 $imr_initref");
my $ret = $SERV->Spawn();
if ($ret != 0) {
print "ERROR : spawning test server.\n";
return $ret;
}
## Wait a little bit for everything to get started
sleep(2);
print STDERR "Starting client\n";
# The client should pass the simple test
$CLI->Arguments("$test_initref/TestObject1");
$ret = $CLI->SpawnWaitKill(5);
if ($ret != 0) {
print "ERROR : spawning test client 1.\n";
return $ret;
}
# The client should pass the simple test again, this time with obj #2
$CLI->Arguments("$test_initref/TestObject2");
$ret = $CLI->SpawnWaitKill(5);
if ($ret != 0) {
print "ERROR : spawning test client 2.\n";
return $ret;
}
print STDERR "Starting imr\n";
# The server was autoregistered without any start information. We
# need to update the registration with a command line so that the
# activator can be used to re-launch it.
$IMRUTIL->Arguments("$imr_initref update TestObject1 -l $hostname -c \"$test_server -orbuseimr 1 $imr_initref\"");
$ret = $IMRUTIL->SpawnWaitKill(5);
if ($ret != 0) {
print "ERROR : Updating TestObject1 cmdline.\n";
return $ret;
}
# The new command line should now be registered, but only for TestObject1
$IMRUTIL->Arguments("$imr_initref list -v");
$ret = $IMRUTIL->SpawnWaitKill(5);
if ($ret != 0) {
print "ERROR : Listing ImR Servers.\n";
return $ret;
}
# Now we can kill the server.
$IMRUTIL->Arguments("$imr_initref shutdown TestObject1");
$ret = $IMRUTIL->SpawnWaitKill(5);
if ($ret != 0) {
print "ERROR : Shutting down test server.\n";
return $ret;
}
# Both TestObject1 and TestObject2 should now show up as "not running"
$IMRUTIL->Arguments("$imr_initref list -v");
$ret = $IMRUTIL->SpawnWaitKill(5);
if ($ret != 0) {
print "ERROR : Listing ImR Servers.\n";
return $ret;
}
print STDERR "Starting client\n";
# The client should pass the simple test again, because the Activator will
# restart test_server
$CLI->Arguments("$test_initref/TestObject1");
$ret = $CLI->SpawnWaitKill(5);
if ($ret != 0) {
print "ERROR : spawning test client 3.\n";
return $ret;
}
# The client should pass the simple test again with obj #2, because both
# are started by the server
$CLI->Arguments("$test_initref/TestObject2");
$ret = $CLI->SpawnWaitKill(5);
if ($ret != 0) {
print "ERROR : spawning test client 4.\n";
return $ret;
}
# We have to kill the server, since $SERV most likely does
# not refer to the actual process anymore since a new server
# was started by the ImR Activator.
$IMRUTIL->Arguments("$imr_initref shutdown TestObject1");
$ret = $IMRUTIL->SpawnWaitKill(5);
if ($ret != 0) {
print "ERROR : Shutting down test server.\n";
return $ret;
}
$COMB->TerminateWaitKill(5);
if ($ret != 0) {
print "ERROR : Terminating combined service.\n";
return $ret;
}
$SERV->TerminateWaitKill(5);
if ($ret != 0) {
print "ERROR : Terminating test server.\n";
return $ret;
}
unlink $combined_ior;
return $ret;
}
my $ret = do_test();
# Regardless of the return value, ensure that the processes
# are terminated before exiting
$CLI->Kill();
$COMB->Kill();
$SERV->Kill();
exit $ret;
|
