| line |
true |
false |
branch |
|
18
|
0 |
5 |
if ($] >= 5.008 and $Test::Builder::Config{'useithreads'} and $INC{'threads.pm'}) { } |
|
28
|
0 |
0 |
if ($type eq 'HASH') { } |
|
|
0 |
0 |
elsif ($type eq 'ARRAY') { } |
|
|
0 |
0 |
elsif ($type eq 'SCALAR') { } |
|
43
|
0 |
0 |
if ($type eq 'HASH') { } |
|
|
0 |
0 |
elsif ($type eq 'ARRAY') { } |
|
|
0 |
0 |
elsif ($type eq 'SCALAR') { } |
|
179
|
5 |
0 |
unless $^C |
|
206
|
5 |
1 |
if (defined $pack) |
|
228
|
2 |
5 |
unless $cmd |
|
230
|
0 |
5 |
if ($Have_Plan) |
|
235
|
0 |
5 |
if ($cmd eq 'no_plan') { } |
|
|
2 |
3 |
elsif ($cmd eq 'skip_all') { } |
|
|
3 |
0 |
elsif ($cmd eq 'tests') { } |
|
242
|
3 |
0 |
if ($arg) { } |
|
|
0 |
0 |
elsif (not defined $arg) { } |
|
|
0 |
0 |
elsif (not $arg) { } |
|
276
|
3 |
0 |
if (@_) |
|
277
|
0 |
3 |
unless $max =~ /^\+?\d+$/ and $max > 0 |
|
283
|
3 |
0 |
unless $self->no_header |
|
311
|
0 |
0 |
if $Expected_Tests |
|
312
|
0 |
0 |
if $No_Plan |
|
330
|
2 |
0 |
if $reason |
|
335
|
2 |
0 |
unless $self->no_header |
|
364
|
17 |
0 |
$test ? : |
|
366
|
0 |
17 |
unless ($Have_Plan) |
|
377
|
0 |
17 |
if defined $name and $name =~ /^[\d\s]+$/ |
|
390
|
0 |
17 |
if (not $test) { } |
|
392
|
0 |
0 |
$todo ? : |
|
399
|
17 |
0 |
if $self->use_numbers |
|
401
|
1 |
16 |
if (defined $name) { } |
|
410
|
0 |
17 |
if ($todo) { } |
|
425
|
0 |
17 |
unless ($test) |
|
426
|
0 |
0 |
$todo ? : |
|
427
|
0 |
0 |
if $ENV{'HARNESS_ACTIVE'} |
|
431
|
17 |
0 |
$test ? : |
|
440
|
0 |
34 |
unless eval {
do {
require overload
}
} |
|
444
|
18 |
16 |
if (defined $$thing) |
|
445
|
0 |
18 |
if (my $string_meth = overload::Method($$thing, '""')) |
|
474
|
0 |
10 |
unless (defined $got and defined $expect) |
|
479
|
0 |
0 |
unless $test |
|
490
|
0 |
0 |
unless (defined $got and defined $expect) |
|
495
|
0 |
0 |
unless $test |
|
506
|
0 |
0 |
if (defined $$val) { } |
|
507
|
0 |
0 |
if ($type eq 'eq') { } |
|
548
|
0 |
0 |
unless (defined $got and defined $dont_expect) |
|
553
|
0 |
0 |
unless $test |
|
564
|
0 |
0 |
unless (defined $got and defined $dont_expect) |
|
569
|
0 |
0 |
unless $test |
|
642
|
0 |
0 |
unless defined $regex |
|
647
|
0 |
0 |
if (ref $regex eq 'Regexp') { } |
|
|
0 |
0 |
elsif (($re, $opts) = $regex =~ m[^ /(.*)/ (\w*) $ ]sx or (undef, $re, $opts) = $regex =~ /^ m([^\w\s]) (.+) \1 (\w*) $/sx) { } |
|
655
|
0 |
0 |
length $opts ? : |
|
668
|
0 |
0 |
unless (defined $usable_regex) |
|
676
|
0 |
0 |
$this =~ /$usable_regex/ ? : |
|
677
|
0 |
0 |
if $cmp eq '!~' |
|
681
|
0 |
0 |
unless ($ok) |
|
682
|
0 |
0 |
defined $this ? : |
|
683
|
0 |
0 |
$cmp eq '=~' ? : |
|
717
|
0 |
10 |
unless ($ok) |
|
718
|
0 |
0 |
if ($type =~ /^(eq|==)$/) { } |
|
731
|
0 |
0 |
defined $got ? : |
|
732
|
0 |
0 |
defined $expect ? : |
|
773
|
0 |
0 |
unless ($Have_Plan) |
|
790
|
0 |
0 |
if $self->use_numbers |
|
792
|
0 |
0 |
if length $why |
|
817
|
0 |
0 |
unless ($Have_Plan) |
|
834
|
0 |
0 |
if $self->use_numbers |
|
887
|
0 |
17 |
if (defined $level) |
|
922
|
0 |
17 |
if (defined $use_nums) |
|
948
|
0 |
5 |
if (defined $no_header) |
|
957
|
0 |
5 |
if (defined $no_ending) |
|
1003
|
0 |
1 |
unless @msgs |
|
1006
|
0 |
1 |
if $^C |
|
1010
|
1 |
0 |
defined $_ ? : |
|
1016
|
1 |
0 |
unless $msg =~ /\n\Z/ |
|
1041
|
0 |
22 |
if $^C |
|
1053
|
0 |
22 |
unless $msg =~ /\n\Z/ |
|
1071
|
0 |
1 |
$self->todo ? : |
|
1108
|
5 |
22 |
if (defined $fh) |
|
1117
|
5 |
1 |
if (defined $fh) |
|
1126
|
5 |
0 |
if (defined $fh) |
|
1137
|
15 |
0 |
if (_is_fh($file_or_fh)) { } |
|
1142
|
0 |
0 |
unless open $fh, ">$file_or_fh" |
|
1153
|
0 |
15 |
if ref \$maybe_fh eq 'GLOB' |
|
1175
|
5 |
0 |
unless $Opened_Testhandles |
|
1192
|
0 |
5 |
unless open TESTOUT, '>&STDOUT' |
|
1193
|
0 |
5 |
unless open TESTERR, '>&STDERR' |
|
1223
|
0 |
0 |
if (defined $num) |
|
1224
|
0 |
0 |
unless ($Have_Plan) |
|
1232
|
0 |
0 |
if ($num > @Test_Results) { } |
|
|
0 |
0 |
elsif ($num < @Test_Results) { } |
|
1233
|
0 |
0 |
@Test_Results ? : |
|
1349
|
0 |
18 |
defined ${$pack . '::TODO';} ? : |
|
1368
|
17 |
0 |
wantarray ? : |
|
1410
|
0 |
15 |
if ($check) |
|
1461
|
0 |
0 |
if _my_exit($?) |
|
|
0 |
5 |
if ($Original_Pid != $$) |
|
1465
|
2 |
0 |
if _my_exit(0) |
|
|
2 |
0 |
unless ($Have_Plan or $Test_Died) |
|
1468
|
3 |
0 |
if (@Test_Results) { } |
|
|
0 |
0 |
elsif ($Skip_All) { } |
|
|
0 |
0 |
elsif ($Test_Died) { } |
|
1470
|
0 |
3 |
if ($No_Plan) |
|
1471
|
0 |
0 |
unless $self->no_header |
|
1480
|
0 |
17 |
unless defined $Test_Results[$idx] |
|
1487
|
0 |
3 |
if ($Curr_Test < $Expected_Tests) { } |
|
|
0 |
3 |
elsif ($Curr_Test > $Expected_Tests) { } |
|
|
0 |
3 |
elsif ($num_failed) { } |
|
1488
|
0 |
0 |
$Expected_Tests == 1 ? : |
|
1495
|
0 |
0 |
$Expected_Tests == 1 ? : |
|
1501
|
0 |
0 |
$num_failed == 1 ? : |
|
1507
|
0 |
3 |
if ($Test_Died) |
|
1512
|
0 |
0 |
if _my_exit(255) |
|
1515
|
3 |
0 |
$num_failed <= 254 ? : |
|
|
3 |
0 |
if _my_exit($num_failed <= 254 ? $num_failed : 254) |
|
1518
|
0 |
0 |
if _my_exit(0) |
|
1524
|
0 |
0 |
if _my_exit(255) |
|
1528
|
0 |
0 |
if _my_exit(255) |
|
1533
|
5 |
0 |
if defined $Test and not $Test->no_ending |