| line |
true |
false |
branch |
|
42
|
4247 |
1301 |
defined $_->in_subtest ? : |
|
48
|
9471 |
50 |
unless my $line = $self->proc->get_err_line('peek', 1) |
|
50
|
46 |
4 |
if $line =~ /^\s*#/ |
|
55
|
0 |
4 |
unless length $out |
|
62
|
8246 |
1265 |
unless my $line = $self->proc->get_out_line('peek', 1) |
|
64
|
55 |
1210 |
if $line =~ /^\s*#/ |
|
69
|
1204 |
6 |
if @events |
|
72
|
6 |
0 |
unless length $out |
|
81
|
4621 |
1170 |
$line =~ /^(\s+)(.+)$/ ? : |
|
91
|
5451 |
2321 |
if (@events = $self->$sub($str, $nest)) |
|
103
|
1301 |
4490 |
unless my($st_ok, @errors) = $self->parse_tap_ok($line, $nest) |
|
104
|
3804 |
686 |
unless $line =~ /\s*\{\s*\)?\s*$/ |
|
113
|
0 |
5267 |
unless (defined $line) |
|
115
|
0 |
0 |
if $count++ > 10 |
|
119
|
686 |
4581 |
if $line =~ /^\s*\}\s*$/ |
|
136
|
32 |
654 |
if defined $todo |
|
139
|
686 |
0 |
if defined $name |
|
161
|
1301 |
4538 |
unless $line =~ s/^(not )?ok\b// |
|
164
|
2 |
4536 |
if $line and not $line =~ /^ / |
|
167
|
4504 |
34 |
if ($line =~ s/^(\s*)(\d+)\b//) |
|
171
|
2 |
4502 |
if length $space > 1 |
|
177
|
75 |
4463 |
if ($line =~ s/#\s*(todo & skip|todo|skip)(.*)$//i) |
|
180
|
2 |
73 |
unless $line =~ s/\s+$// |
|
183
|
2 |
73 |
if $reason and not $reason =~ s/^\s+// |
|
186
|
29 |
46 |
if $directive =~ /skip/i |
|
187
|
50 |
25 |
if $directive =~ /todo/i |
|
199
|
12 |
4526 |
if ($line =~ /^Subtest: (.+)$/) { } |
|
|
29 |
4497 |
elsif (defined $skip) { } |
|
211
|
46 |
4451 |
defined $todo ? : |
|
229
|
342 |
4 |
unless $line =~ s/^TAP version\s*// |
|
241
|
344 |
969 |
unless $line =~ s/^1\.\.(\d+)// |
|
246
|
23 |
946 |
if ($max == 0) |
|
247
|
19 |
4 |
if ($line =~ s/^\s*#\s*//) |
|
248
|
19 |
0 |
if ($line =~ s/^(skip)\S*\s*//i) |
|
266
|
967 |
2 |
unless $line =~ /\S/ |
|
280
|
342 |
4 |
unless $line =~ s/^Bail out! *// |
|
292
|
56 |
59 |
$io eq 'STDERR' ? : |
|
297
|
0 |
115 |
unless defined $nest and defined $diag |
|
300
|
6 |
109 |
$diag =~ /^Failed test/ ? : |
|
303
|
91 |
971 |
unless my $line = $self->proc->$meth('peek', 1) |
|
305
|
12 |
959 |
unless defined $lnest and defined $msg |
|
306
|
4 |
955 |
if $lnest != $nest |
|
307
|
2 |
953 |
if $msg =~ /^Failed test/ |
|
308
|
2 |
951 |
if $failed and not $msg =~ /^at / |
|
312
|
951 |
0 |
if $msg |
|
313
|
4 |
947 |
if $failed |
|
316
|
56 |
59 |
$io eq 'STDERR' ? : |
|
327
|
14 |
23 |
unless $msg or $hash or $space |