| line |
true |
false |
branch |
| 151 |
0 |
46 |
if @_ & 1 |
| 152 |
0 |
46 |
if $planned |
| 164 |
46 |
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 |
46 |
if (@todo) { } |
| 183 |
0 |
46 |
if defined &Win32::BuildNumber and defined &Win32::BuildNumber() |
| 186 |
0 |
46 |
if defined $MacPerl::Version |
| 201 |
0 |
46 |
unless defined $file and length $file and -e $file and -f _ and -r _ |
| 203 |
0 |
46 |
unless open SOURCEFILE, "<$file" |
| 228 |
6 |
89039 |
ref $v eq 'CODE' ? : |
| 233 |
0 |
0 |
unless defined $str |
| 369 |
0 |
47410 |
if not $planned |
| 376 |
46282 |
1128 |
$repetition > 1 ? : |
| 385 |
8287 |
39123 |
if (@_ == 0) { } |
| 390 |
0 |
39123 |
if (not defined $expected) { } |
| |
0 |
39123 |
elsif (not defined $result) { } |
| |
2520 |
36603 |
elsif (ref $expected eq 'Regexp') { } |
| |
0 |
36603 |
elsif (($regex) = $expected =~ m[^ / (.+) / $]sx or (undef, $regex) = $expected =~ /^ m([^\w\s]) (.+) \1 $/sx) { } |
| 405 |
0 |
47410 |
if ($todo and $ok) { } |
| 406 |
0 |
0 |
if $todo |
| 410 |
0 |
47410 |
if (not $ok) { } |
| 417 |
0 |
0 |
@_ ? : |
| |
0 |
47410 |
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) { } |
| 454 |
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 $Program_Lines{$$detail{'file'}}[$$detail{'line'}]) |
| 465 |
0 |
0 |
if $Program_Lines{$$detail{'file'}}[$$detail{'line'}] =~ /[^\s\#\(\)\{\}\[\];]/ |
| 482 |
0 |
0 |
if $ENV{'PERL_TEST_DIFF'} |
| 484 |
0 |
0 |
if eval {
|
| 486 |
0 |
0 |
unless $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 |
556 |
1956 |
if (not @_ or $whyskip) { } |
| 699 |
0 |
556 |
if $whyskip =~ /^\d+$/ |
| 705 |
556 |
0 |
if length $whyskip |