| line |
true |
false |
branch |
|
115
|
0 |
15 |
unless $plan =~ /^\d+$/ |
|
134
|
0 |
15 |
unless $perl |
|
147
|
0 |
15 |
if (length $preamble) |
|
153
|
0 |
15 |
unless ($rantests == $plan) |
|
161
|
0 |
97 |
unless ($e =~ s/^ want_test:([,\w]+)\n//) |
|
166
|
1 |
651 |
$_ eq 'undef' ? : |
|
169
|
56 |
41 |
$type eq 'fail' ? : |
|
170
|
3 |
94 |
if ($type eq 'skip') { } |
|
172
|
3 |
0 |
if defined $name |
|
174
|
93 |
1 |
if defined $name |
|
178
|
56 |
41 |
if $type eq 'fail' |
|
184
|
0 |
361 |
if @mismatch |
|
187
|
0 |
361 |
if (not defined $want) { } |
|
|
135 |
226 |
elsif ($want =~ s[^/][]) { } |
|
|
0 |
226 |
elsif ($line ne $want) { } |
|
190
|
0 |
135 |
unless ($line =~ /$want/) |
|
201
|
0 |
97 |
if (@lines < @diag) |
|
204
|
0 |
97 |
if (@mismatch) |
|
207
|
0 |
0 |
if defined $name |
|
221
|
0 |
15 |
if ($stdout ne $want_out) |
|
227
|
0 |
15 |
if ($expect_failed_tests and not $status) { } |
|
|
0 |
15 |
elsif ($status and not $expect_failed_tests) { } |
|
272
|
0 |
0 |
unless $type =~ /^(pass|fail|skip)\z/i |
|
278
|
0 |
0 |
if ref $diag eq 'Regexp' |
|
279
|
0 |
0 |
if ref $diag |
|
282
|
0 |
0 |
defined $_ ? : |
|
307
|
0 |
0 |
unless wantarray |
|
314
|
0 |
0 |
if ($from_test_builder and $ENV{'HARNESS_ACTIVE'}) |
|
320
|
0 |
0 |
if ($from_test_builder and $Test::Builder::VERSION <= 0.3) { } |
|
322
|
0 |
0 |
if (defined $line) |
|
327
|
0 |
0 |
if (defined $test_name) { } |
|
332
|
0 |
0 |
if (defined $line) |