| line |
true |
false |
branch |
|
76
|
85 |
4 |
$ntests ? : |
|
96
|
232 |
2868 |
unless ($ok_count) |
|
101
|
2596 |
272 |
defined $msg ? : |
|
102
|
2867 |
1 |
if ($ok) { } |
|
106
|
1 |
0 |
if defined $msg |
|
121
|
0 |
0 |
if $ok |
|
137
|
7 |
79 |
$ok_count ? : |
|
140
|
0 |
86 |
if ref $result |
|
142
|
86 |
0 |
if ($result eq $expect) { } |
|
159
|
9 |
0 |
unless $ok_count or $NO_FLUSH |
|
217
|
76 |
0 |
ref $src ? : |
|
219
|
0 |
76 |
if ($@) |
|
229
|
0 |
76 |
if $input =~ /\s*--\s*start\s*--\s*/ |
|
230
|
7 |
69 |
if $input =~ /\s*--\s*stop\s*--\s*/ |
|
236
|
69 |
7 |
if $tests[0] =~ /^\s*$/ |
|
245
|
30 |
46 |
if (ref $tproc eq 'HASH') { } |
|
|
26 |
20 |
elsif (ref $tproc eq 'ARRAY') { } |
|
|
17 |
3 |
elsif (not ref $tproc) { } |
|
272
|
117 |
1017 |
if ($input =~ s/^\s*-- name:? (.*?) --\s*\n//im) { } |
|
281
|
0 |
1134 |
if ($input =~ s/^\s*-- todo:? (.*?) --\s*\n//im) |
|
282
|
0 |
0 |
$1 eq '' ? : |
|
288
|
7 |
1127 |
unless defined $expect |
|
295
|
72 |
1062 |
if ($input =~ s/^\s*--\s*use\s+(\S+)\s*--\s*\n//im) |
|
298
|
72 |
0 |
if ($ttlookup = $ttprocs->{$ttname}) { } |
|
307
|
0 |
1134 |
unless ($tproc->process(\$input, $params, \$output)) |
|
325
|
34 |
1100 |
if ($expect =~ s/^\s*--+\s*process\s*--+\s*\n//im) |
|
327
|
0 |
34 |
unless ($tproc->process(\$expect, $params, \$out)) |
|
343
|
1133 |
1 |
$expect eq $output ? : |
|
344
|
1 |
1133 |
if (not $match or $DEBUG) |
|
345
|
1 |
0 |
unless $match |
|
349
|
1 |
0 |
unless ($PRESERVE) |
|
359
|
0 |
1134 |
if ($todo) |
|
363
|
1133 |
1 |
$match ? : |
|
391
|
5 |
0 |
unless $DEBUG |
|
393
|
0 |
0 |
$ok_count ? : |
|
401
|
914 |
220 |
if length $text > 32 |