| line |
true |
false |
branch |
|
76
|
81 |
3 |
$ntests ? : |
|
96
|
219 |
2805 |
unless ($ok_count) |
|
101
|
2532 |
273 |
defined $msg ? : |
|
102
|
2804 |
1 |
if ($ok) { } |
|
106
|
1 |
0 |
if defined $msg |
|
121
|
0 |
0 |
if $ok |
|
137
|
7 |
78 |
$ok_count ? : |
|
140
|
0 |
85 |
if ref $result |
|
142
|
85 |
0 |
if ($result eq $expect) { } |
|
159
|
6 |
0 |
unless $ok_count or $NO_FLUSH |
|
217
|
74 |
0 |
ref $src ? : |
|
219
|
0 |
74 |
if ($@) |
|
229
|
0 |
74 |
if $input =~ /\s*--\s*start\s*--\s*/ |
|
230
|
7 |
67 |
if $input =~ /\s*--\s*stop\s*--\s*/ |
|
236
|
67 |
7 |
if $tests[0] =~ /^\s*$/ |
|
245
|
30 |
44 |
if (ref $tproc eq 'HASH') { } |
|
|
24 |
20 |
elsif (ref $tproc eq 'ARRAY') { } |
|
|
17 |
3 |
elsif (not ref $tproc) { } |
|
272
|
103 |
1009 |
if ($input =~ s/^\s*-- name:? (.*?) --\s*\n//im) { } |
|
281
|
0 |
1112 |
if ($input =~ s/^\s*-- todo:? (.*?) --\s*\n//im) |
|
282
|
0 |
0 |
$1 eq '' ? : |
|
288
|
7 |
1105 |
unless defined $expect |
|
295
|
68 |
1044 |
if ($input =~ s/^\s*--\s*use\s+(\S+)\s*--\s*\n//im) |
|
298
|
68 |
0 |
if ($ttlookup = $$ttprocs{$ttname}) { } |
|
307
|
0 |
1112 |
unless ($tproc->process(\$input, $params, \$output)) |
|
325
|
34 |
1078 |
if ($expect =~ s/^\s*--+\s*process\s*--+\s*\n//im) |
|
327
|
0 |
34 |
unless ($tproc->process(\$expect, $params, \$out)) |
|
343
|
1111 |
1 |
$expect eq $output ? : |
|
344
|
1 |
1111 |
if (not $match or $DEBUG) |
|
345
|
1 |
0 |
unless $match |
|
349
|
1 |
0 |
unless ($PRESERVE) |
|
359
|
0 |
1112 |
if ($todo) |
|
363
|
1111 |
1 |
$match ? : |
|
391
|
5 |
0 |
unless $DEBUG |
|
393
|
0 |
0 |
$ok_count ? : |
|
401
|
897 |
215 |
if length $text > 32 |