| line |
true |
false |
branch |
|
151
|
0 |
43 |
if @_ & 1 |
|
152
|
0 |
43 |
if $Test::planned |
|
164
|
43 |
0 |
if ($k =~ /^test(s)?$/) { } |
|
|
0 |
0 |
elsif ($k eq 'todo' or $k eq 'failok') { } |
|
|
0 |
0 |
elsif ($k eq 'onfail') { } |
|
168
|
0 |
0 |
unless ref $v eq 'CODE' |
|
174
|
0 |
43 |
if (@todo) { } |
|
183
|
0 |
43 |
if defined &Win32::BuildNumber and defined &Win32::BuildNumber() |
|
186
|
0 |
43 |
if defined $MacPerl::Version |
|
201
|
0 |
43 |
unless defined $file and length $file and -e $file and -f _ and -r _ |
|
203
|
0 |
43 |
unless open SOURCEFILE, "<$file" |
|
228
|
6 |
26775 |
ref $v eq 'CODE' ? : |
|
233
|
0 |
0 |
unless defined $str |
|
369
|
0 |
12566 |
unless $Test::planned |
|
376
|
11508 |
1058 |
$repetition > 1 ? : |
|
385
|
787 |
11779 |
if (@_ == 0) { } |
|
390
|
0 |
11779 |
if (not defined $expected) { } |
|
|
0 |
11779 |
elsif (not defined $result) { } |
|
|
2544 |
9235 |
elsif (ref $expected eq 'Regexp') { } |
|
|
0 |
9235 |
elsif (($regex) = $expected =~ m[^ / (.+) / $]sx or (undef, $regex) = $expected =~ /^ m([^\w\s]) (.+) \1 $/sx) { } |
|
405
|
0 |
12566 |
if ($todo and $ok) { } |
|
406
|
0 |
0 |
if $todo |
|
410
|
0 |
12566 |
if (not $ok) { } |
|
417
|
0 |
0 |
@_ ? : |
|
|
0 |
12566 |
unless $ok |
|
434
|
0 |
0 |
if defined $expected |
|
439
|
0 |
0 |
if defined $diag |
|
441
|
0 |
0 |
if $detail->{'todo'} |
|
442
|
0 |
0 |
if (not $detail->{'compare'}) { } |
|
443
|
0 |
0 |
if (not $diag) { } |
|
455
|
0 |
0 |
defined $detail->{'regex'} ? : |
|
457
|
0 |
0 |
$diag ? : |
|
460
|
0 |
0 |
if defined $expected and 2 < $expected =~ tr/\n// |
|
464
|
0 |
0 |
if (defined $Test::Program_Lines{$detail->{'file'}}[$detail->{'line'}]) |
|
467
|
0 |
0 |
if $Test::Program_Lines{$detail->{'file'}}[$detail->{'line'}] =~ /[^\s\#\(\)\{\}\[\]\;]/ |
|
482
|
0 |
0 |
if $ENV{'PERL_TEST_DIFF'} |
|
484
|
0 |
0 |
if eval {
do {
require Algorithm::Diff;
'Algorithm::Diff'->VERSION(1.15);
1
}
} |
|
486
|
0 |
0 |
unless $Test::told_about_diff++ |
|
504
|
0 |
0 |
unless ($got_fh and $exp_fh) |
|
511
|
0 |
0 |
if (close $got_fh and close $exp_fh) { } |
|
514
|
0 |
0 |
if (open DIFF, "$diff_cmd |") { } |
|
544
|
0 |
0 |
unless $diff_kind |
|
547
|
0 |
0 |
$count_lines == 1 ? : |
|
551
|
0 |
0 |
if ($diff_kind eq 'GOT') { } |
|
|
0 |
0 |
elsif ($diff_kind eq 'EXP') { } |
|
|
0 |
0 |
elsif ($diff_kind eq 'CH') { } |
|
557
|
0 |
0 |
if ($count_lines > 1) { } |
|
569
|
0 |
0 |
if ($count_lines > 1) { } |
|
590
|
0 |
0 |
if $diff_kind and $diff_kind ne $kind |
|
698
|
480 |
1956 |
if (not @_ or $whyskip) { } |
|
699
|
0 |
480 |
if $whyskip =~ /^\d+$/ |
|
705
|
480 |
0 |
if length $whyskip |
|
729
|
0 |
0 |
if @Test::FAILDETAIL and $Test::ONFAIL |