| line |
true |
false |
branch |
|
7
|
1 |
5 |
if (*Test::Builder::new{'CODE'}) |
|
102
|
0 |
8 |
unless defined $name |
|
113
|
0 |
9 |
unless defined $name |
|
117
|
0 |
9 |
unless $Test->ok(!$@, "Test '${name}' completed") |
|
118
|
0 |
9 |
unless $Test->ok(!length($prem), "Test '${name}' no premature diagnostication") |
|
130
|
80 |
0 |
if (defined $expect->{$field}) |
|
142
|
0 |
16 |
unless defined $name |
|
162
|
16 |
0 |
if (exists $expect->{'depth'}) |
|
168
|
16 |
0 |
if (defined $depth) |
|
170
|
0 |
16 |
unless $Test->is_eq($result->{'depth'}, $depth, 'checking depth') |
|
174
|
16 |
0 |
if (defined(my $exp = $expect->{'diag'})) |
|
178
|
4 |
12 |
if (ref $exp eq 'Regexp') { } |
|
180
|
0 |
4 |
unless ($Test->like($result->{'diag'}, $exp, "subtest '${sub_name}' of '${name}' compare diag")) |
|
190
|
2 |
10 |
if length $exp and not $exp =~ /\n$/ |
|
192
|
0 |
12 |
unless ($Test->ok($result->{'diag'} eq $exp, "subtest '${sub_name}' of '${name}' compare diag")) |
|
199
|
0 |
16 |
if ($got) |
|
206
|
0 |
0 |
if ($want_space) { } |
|
234
|
0 |
0 |
if ($c > 32 and $c < 125 or $c == 10) { } |
|
272
|
0 |
2 |
if ($plan[$idx] eq 'import') |