blob: d3818dd8ef7a9a42475a8a3286490d9076e65aa7 (
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
|
eval '(exit $?0)' && eval 'exec perl -S $0 ${1+"$@"}'
& eval 'exec perl -S $0 $argv:q'
if 0;
# -*- perl -*-
# $Id$
use lib "$ENV{ACE_ROOT}/bin";
use PerlACE::Run_Test;
# The location of the implementation repository binaries
$imr_bin_path = "../../ImplRepo_Service";
# The location of the tao_imr IMR utility
$tao_imr_bin_path = "$ENV{ACE_ROOT}/bin";
# IOR file names
$imr_ior_file = PerlACE::LocalFile("impl.ior");
$activator_ior_file = PerlACE::LocalFile("activator.ior");
# Log file
$log_file = PerlACE::LocalFile("test_result.log");
# The players in our little drama.
$LOCATOR = new PerlACE::Process("$imr_bin_path/ImplRepo_Service");
$ACTIVATOR = new PerlACE::Process("$imr_bin_path/ImR_Activator");
$TAO_IMR = new PerlACE::Process("$tao_imr_bin_path/tao_imr");
# Run the IMR locator on a fixed port
$port = PerlACE::uniqueid () + 10001; # This can't be 10000 for Chorus 4.0
sub test_body
{
unlink $imr_ior_file;
unlink $activator_ior_file;
unlink $log_file;
# Start the IMR locator to generate an IOR file for the server to use...
$LOCATOR->Arguments("-o $imr_ior_file -ORBEndpoint iiop://:$port");
$LOCATOR->Spawn ();
if (PerlACE::waitforfile_timed ($imr_ior_file, 10) == -1)
{
print STDERR "ERROR: cannot find $imr_ior_file\n";
$LOCATOR->Kill ();
return 1;
}
# Set the activator arguments
$activator_arguments = "-o $activator_ior_file -ORBInitRef ImplRepoService=file://$imr_ior_file";
# Start up the activator
$ACTIVATOR->Arguments ($activator_arguments);
$ACTIVATOR->Spawn ();
if (PerlACE::waitforfile_timed ($activator_ior_file, 10) == -1)
{
print STDERR "ERROR: cannot find $activator_ior_file\n";
$ACTIVATOR->Kill ();
$LOCATOR->Kill ();
return 1;
}
# Redirect STDERR to a log file so that the ERROR
# message does not get printed to the terminal
open(SAVEERR, ">&STDERR");
open(STDERR, ">$log_file");
# Add the illegal persistent POA name to the IMR
$TAO_IMR->Arguments("-ORBInitRef ImplRepoService=file://$imr_ior_file add \"\"");
$result = $TAO_IMR->SpawnWaitKill (30);
# Close the log file and restore STDERR
close(STDERR);
open(STDERR, ">&SAVEERR");
# If the add of an empty string failed, then
# the test of the tao_imr succeeded.
if ($result != 0) {
$result = 0;
}
else {
$result = -1;
}
# Tidy up
$ACTIVATOR->TerminateWaitKill (5);
$LOCATOR->TerminateWaitKill (5);
return $result;
}
# Run regression for bug #1437
$test_result = test_body();
if ($test_result != 0)
{
print STDERR "ERROR: Regression test for Bug #1437 failed\n";
}
else
{
print "Regression test for Bug #1437 passed.\n";
}
unlink $log_file;
unlink $imr_ior_file;
unlink $activator_ior_file;
exit $test_result;
|
