| 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')
|