diff options
| author | elliott_c <elliott_c@ae88bc3d-4319-0410-8dbf-d08b4c9d3795> | 2005-01-27 16:38:29 +0000 |
|---|---|---|
| committer | elliott_c <elliott_c@ae88bc3d-4319-0410-8dbf-d08b4c9d3795> | 2005-01-27 16:38:29 +0000 |
| commit | 4347e0b6fa34192de4a5fab14359eb1ce2f2f06b (patch) | |
| tree | b07fe9ce4e108eecdce280783bc418ff06f60748 /TAO/orbsvcs | |
| parent | 0d7fee565623a3703e04154538f07823f246ac3e (diff) | |
| download | ATCD-4347e0b6fa34192de4a5fab14359eb1ce2f2f06b.tar.gz | |
ChangeLogTag: Thu Jan 27 10:37:19 2005 Chad Elliott <elliott_c@ociweb.com>
Diffstat (limited to 'TAO/orbsvcs')
| -rwxr-xr-x | TAO/orbsvcs/examples/ImR/Combined_Service/run_test.pl | 10 |
1 files changed, 10 insertions, 0 deletions
diff --git a/TAO/orbsvcs/examples/ImR/Combined_Service/run_test.pl b/TAO/orbsvcs/examples/ImR/Combined_Service/run_test.pl index b68ea174967..f55689a5446 100755 --- a/TAO/orbsvcs/examples/ImR/Combined_Service/run_test.pl +++ b/TAO/orbsvcs/examples/ImR/Combined_Service/run_test.pl @@ -146,6 +146,16 @@ print STDERR "Starting client\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"; |