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
185
186
187
188
189
190
191
192
193
194
195
196
197
198
199
200
201
202
203
204
205
|
#!/bin/bash
set +x
if [[ "x" == ${LCOV_HOME}x ]] ; then
if [ -f ../../bin/lcov ] ; then
LCOV_HOME=../..
fi
fi
source ../common.tst
rm -rf *.xml *.dat *.info *.json cover_one perl2lcov_report cover_genhtml *.log
clean_cover
if [[ 1 == $CLEAN_ONLY ]] ; then
exit 0
fi
LCOV_OPTS="--branch-coverage $PARALLEL $PROFILE"
perl -MDevel::Cover=-db,cover_one,-coverage,statement,branch,condition,subroutine,-silent,1 example.pl
if [ 0 != $? ] ; then
echo "perl exec failed"
exit 1
fi
# error check: try to run perl2lcov before running 'cover':
$COVER ${EXEC_COVER} $PERL2LCOV_TOOL --output err.info --testname test1 ./cover_one 2>&1 | tee err.log
if [ 0 == ${PIPESTATUS[0} ] ; then
echo "expected to fail - but passed"
exit 1
fi
grep "appears to be empty" err.log
if [ 0 != $? ] ; then
echo "expected error message not found"
exit 1
fi
cover cover_one -silent 1
$COVER ${EXEC_COVER} $PERL2LCOV_TOOL --output one.info --testname test1 ./cover_one
if [ 0 != $? ] ; then
echo "perl2lcov failed"
exit 1
fi
# did we generate the test name we expected
N=`grep -c TN: one.info`
if [ "$N" != '1' ] ; then
echo "wrong number of tests"
exit 1;
fi
T=`grep TN: one.info`
if [ "$T" != 'TN:test1' ] ; then
echo "wrong test name"
exit 1
fi
#should be 2 functions in namespace 1 and namespace 2
for space in 'space1' 'space2' ; do
N=`grep FNA: one.info | grep -c $space::`
if [ 2 != "$N" ] ; then
echo "wrong number of functions in $space"
exit 1
fi
done
# expect only one function in global namespace
# rather than looking for known index '4' for this function, would be better
# to look for the name - then find index from name, then find location from index
# but this is easier and testcase is simple.
G=`grep FNA: one.info | grep -v space`
if [ "$G" != 'FNA:4,1,global1' ] ; then
echo "wrong name/location for function in global namespace"
exit 1
fi
DA=`grep -c -E '^DA:' one.info`
BR=`grep -c -E '^BRDA:' one.info`
# do region exclusions work?
$COVER ${EXEC_COVER} $PERL2LCOV_TOOL --filter region --output region.info ./cover_one
if [ 0 != $? ] ; then
echo "perl2lcov failed"
exit 1
fi
# how many lines now?
REGION_DA=`grep -c -E '^DA:' region.info`
REGION_BR=`grep -c -E '^BRDA:' region.info`
if [ $BR -lt $REGION_BR ] ; then
echo "wrong region branch count $BR -> $REGION_BR"
exit 1
fi
if [ $DA -lt $REGION_DA ] ; then
echo "wrong region line count $DA -> $REGION_DA"
exit 1
fi
# how about just branch exclusion...
$COVER ${EXEC_COVER} $PERL2LCOV_TOOL --filter branch_region --output br_region.info ./cover_one
if [ 0 != $? ] ; then
echo "perl2lcov failed"
exit 1
fi
# how many lines now?
BREGION_DA=`grep -c -E '^DA:' br_region.info`
BREGION_BR=`grep -c -E '^BRDA:' br_egion.info`
if [ $REGION_BR != $BREGION_BR ] ; then
echo "wrong branch region branch count $BR -> $BREGION_BR"
exit 1
fi
if [ $DA != $BREGION_DA ] ; then
echo "wrong branch region line count $DA -> $BREGION_DA"
exit 1
fi
# run again, collecting checksum..
$COVER ${EXEC_COVER} $PERL2LCOV_TOOL --output checksum.info --testname testCheck ./cover_one --checksum
if [ 0 != $? ] ; then
echo "perl2lcov checksum failed"
fi
# do we see the checksums we expect?
# expect to see checksum on each DA line..
for l in `grep -E '^DA:' checksum.info` ; do
echo $l | grep -E 'DA:[0-9]+,[0-9]+,.+'
if [ 0 != $? ] ; then
echo "no checksum in '$l'"
if [ 0 == $KEEP_GOING ] ; then
exit 1
fi
fi
done
$COVER ${EXEC_COVER} $PERL2LCOV_TOOL -o x.info --exclude example.pl ./cover_one
if [ 0 == $? ] ; then
echo "expected ERROR_EMPTY not found"
if [ 0 == $KEEP_GOING ] ; then
exit 1
fi
fi
$COVER ${EXEC_COVER} $PERL2LCOV_TOOL --exclude example.pl --ignore empty ./cover_one -o x.info
if [ 0 != $? ] ; then
echo "didn't ignore ERROR_EMPTY"
if [ 0 == $KEEP_GOING ] ; then
exit 1
fi
fi
if [ `test ! -z x.info` ] ; then
echo 'expected empty file - but not empty'
if [ 0 == $KEEP_GOING ] ; then
exit 1
fi
fi
$COVER ${EXEC_COVER} $PERL2LCOV_TOOL --help
if [ 0 != $? ] ; then
echo "perl2lcov help failed"
exit 1
fi
# incorrect option
$COVER ${EXEC_COVER} $PERL2LCOV_TOOL --unsupported
if [ 0 == $? ] ; then
echo "did not see expected error"
exit 1
fi
# is the data generated by perl2lcov valid?
$COVER $LCOV_TOOL $LCOV_OPTS --summary one.info
if [ 0 != $? ] ; then
echo "lcov summary failed"
if [ 0 == $KEEP_GOING ] ; then
exit 1
fi
fi
# now try running genhtml on the perl2lcov-generated .info file...
perl -MDevel::Cover=-db,cover_genhtml,-silent,1 $LCOV_HOME/bin/genhtml -o perl2lcov_report --flat --show-navigation one.info --branch --validate
if [ 0 != $? ] ; then
echo "genhtml failed"
if [ 0 == $KEEP_GOING ] ; then
exit 1
fi
fi
cover cover_genhtml -silent 1
# ignore inconsistency: line hit but no branch on line is hit
$COVER ${EXEC_COVER} $PERL2LCOV_TOOL --output genhtml.info --testname genhtml_test ./cover_genhtml --ignore inconsistent
if [ 0 != $? ] ; then
echo "perl2lcov genhtml"
if [ 0 == $KEEP_GOING ] ; then
exit 1
fi
fi
echo "Tests passed"
if [ "x$COVER" != "x" ] && [ $LOCAL_COVERAGE == 1 ]; then
cover
$PERL2LCOV_TOOL -o ${COVER_DB}/perlcov.info ${COVER_DB}
$GENHTML_TOOL -o ${COVER_DB}/report ${COVER_DB}/perlcov.info --flat --show-navigation --branch
fi
|
