blob: 5e399f43fdb1f2f80f62ebcd8f14a72b175e8ffa (
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
|
eval '(exit $?0)' && eval 'exec perl -S $0 ${1+"$@"}'
& eval 'exec perl -S $0 $argv:q'
if 0;
# $Id$
# -*- perl -*-
use lib "$ENV{ACE_ROOT}/bin";
use PerlACE::TestTarget;
$status = 0;
$debug_level = '0';
foreach $i (@ARGV) {
if ($i eq '-debug') {
$debug_level = '10';
}
}
my $ifr_service = PerlACE::TestTarget::create_target (1) || die "Create target 1 failed\n";
my $tao_ifr = PerlACE::TestTarget::create_target (2) || die "Create target 2 failed\n";
# The location of the implementation repository binaries
my $ifr_bin_path = "../../IFR_Service";
# The location of the tao_ifr IFR utility
my $tao_ifr_bin_path = "$ENV{ACE_ROOT}/bin";
# IOR file
my $ior_file = "ifr.ior";
# IDL File
my $idl_file = "test.idl";
#Log file
my @result_files = ();
for ($i = 0; $i < 2; $i++) {
$result_files[$i] = "test_result_$i.log";
}
#Files specification
$tao_ifr_idlfile = $tao_ifr->LocalFile($idl_file);
$tao_ifr_iorfile = $tao_ifr->LocalFile($ior_file);
$ifr_service_iorfile = $ifr_service->LocalFile($ior_file);
$tao_ifr->DeleteFile($ior_file);
$ifr_service->DeleteFile($ior_file);
$ifr_service_result_file = $ifr_service->LocalFile ($result_files[0]);
$tao_ifr_result_file = $ifr_service->LocalFile ($result_files[1]);
$ifr_service->DeleteFile ($result_files[0]);
$tao_ifr->DeleteFile ($result_files[1]);
$IFRSERVICE = $ifr_service->CreateProcess("$ifr_bin_path/tao_ifr_service", "-ORBdebuglevel $debug_level ".
"-ORBLogFile $ifr_service_result_file ".
"-o $ifr_service_iorfile");
$TAOIFR = $tao_ifr->CreateProcess("$tao_ifr_bin_path/tao_ifr", "-ORBLogFile $tao_ifr_result_file ".
"-ORBInitRef InterfaceRepository=file://$tao_ifr_iorfile ".
"-Cw $tao_ifr_idlfile");
sub analyse_results {
my $result_file = $_[0];
if (! -r $result_file) {
print STDERR "ERROR: cannot find $result_file\n";
return 1;
}
my $match = 0;
open (FILE, $result_file) or return -1;
while (<FILE>) {
$match = /Warning - identifier spellings differ only in case:/;
last if $match;
}
close FILE;
return $match ? 0 : -1;
}
sub test_body {
# Start the IFR Service to generate an IOR file for the tao_ifr to use...
$ifr_status = $IFRSERVICE->Spawn ();
if ($ifr_status != 0) {
print STDERR "ERROR: ifr_service Spawn returned $ifr_status\n";
return 1;
}
if ($ifr_service->WaitForFileTimed ($ior_file,
$ifr_service->ProcessStartWaitInterval()) == -1) {
print STDERR "ERROR: cannot find file <$ifr_service_iorfile>\n";
$IFRSERVICE->Kill (); $IFRSERVICE->TimedWait (1);
return 1;
}
if ($ifr_service->GetFile ($ior_file) == -1) {
print STDERR "ERROR: cannot retrieve file <$ifr_service_iorfile>\n";
$IFRSERVICE->Kill (); $IFRSERVICE->TimedWait (1);
return 1;
}
if ($tao_ifr->PutFile ($ior_file) == -1) {
print STDERR "ERROR: cannot set file <$tao_ifr_iorfile>\n";
$IFRSERVICE->Kill (); $IFRSERVICE->TimedWait (1);
return 1;
}
$tao_status = $TAOIFR->SpawnWaitKill ($tao_ifr->ProcessStartWaitInterval() + 15);
if ($tao_status != 0) {
print STDERR "ERROR: tao_ifr returned $tao_status\n";
$status = 1;
}
$match = 0;
# $match = analyse_results ($ifr_service_result_file); $ # this string is not currently needed
$match += analyse_results ($tao_ifr_result_file);
# Tidy up
$ifr_status = $IFRSERVICE->TerminateWaitKill ($ifr_service->ProcessStopWaitInterval());
if ($ifr_status != 0) {
print STDERR "ERROR: ifr_service TerminateWaitKill returned $ifr_status\n";
return 1;
}
return $match;
}
# Run regression for bug #1436
$status = test_body();
if ($status != 0) {
print STDERR "ERROR: Regression test for Bug #1436 failed\n";
}
else {
print "Regression test for Bug #1436 passed.\n";
}
$tao_ifr->DeleteFile($ior_file);
$ifr_service->DeleteFile($ior_file);
$ifr_service->DeleteFile ($result_files[0]);
$tao_ifr->DeleteFile ($result_files[1]);
exit $status;
|
