| line |
true |
false |
branch |
|
19
|
0 |
1 |
if ($] >= 5.008 and $Test::Builder::Config{'useithreads'}) { } |
|
52
|
2 |
0 |
if (defined $pack) |
|
61
|
1 |
1 |
unless $cmd |
|
63
|
0 |
1 |
if ($Have_Plan) |
|
68
|
0 |
1 |
if ($cmd eq 'no_plan') { } |
|
|
0 |
1 |
elsif ($cmd eq 'skip_all') { } |
|
|
1 |
0 |
elsif ($cmd eq 'tests') { } |
|
75
|
1 |
0 |
if ($arg) { } |
|
|
0 |
0 |
elsif (not defined $arg) { } |
|
|
0 |
0 |
elsif (not $arg) { } |
|
100
|
1 |
0 |
if (defined $max) |
|
104
|
1 |
0 |
unless $self->no_header |
|
119
|
0 |
0 |
if $Expected_Tests |
|
120
|
0 |
0 |
if $No_Plan |
|
131
|
0 |
0 |
if $reason |
|
136
|
0 |
0 |
unless $self->no_header |
|
146
|
55 |
0 |
$test ? : |
|
148
|
0 |
55 |
unless ($Have_Plan) |
|
156
|
0 |
55 |
if defined $name and $name =~ /^[\d\s]+$/ |
|
169
|
0 |
55 |
if (not $test) { } |
|
171
|
0 |
0 |
$todo ? : |
|
178
|
55 |
0 |
if $self->use_numbers |
|
180
|
55 |
0 |
if (defined $name) { } |
|
189
|
0 |
55 |
if ($todo) { } |
|
205
|
0 |
55 |
unless ($test) |
|
206
|
0 |
0 |
$todo ? : |
|
210
|
55 |
0 |
$test ? : |
|
218
|
3 |
10 |
unless (defined $got and defined $expect) |
|
223
|
0 |
3 |
unless $test |
|
234
|
0 |
0 |
unless (defined $got and defined $expect) |
|
239
|
0 |
0 |
unless $test |
|
250
|
0 |
0 |
if (defined $$val) { } |
|
251
|
0 |
0 |
if ($type eq 'eq') { } |
|
277
|
0 |
0 |
unless (defined $got and defined $dont_expect) |
|
282
|
0 |
0 |
unless $test |
|
293
|
0 |
0 |
unless (defined $got and defined $dont_expect) |
|
298
|
0 |
0 |
unless $test |
|
326
|
0 |
0 |
if (ref $regex eq 'Regexp') { } |
|
|
0 |
0 |
elsif (my($re, $opts) = $regex =~ m[^ /(.*)/ (\w*) $ ]sx) { } |
|
331
|
0 |
0 |
length $opts ? : |
|
343
|
0 |
0 |
unless (defined $usable_regex) |
|
351
|
0 |
0 |
$this =~ /$usable_regex/ ? : |
|
352
|
0 |
0 |
if $cmp eq '!~' |
|
356
|
0 |
0 |
unless ($ok) |
|
357
|
0 |
0 |
defined $this ? : |
|
358
|
0 |
0 |
$cmp eq '=~' ? : |
|
383
|
0 |
10 |
unless ($ok) |
|
384
|
0 |
0 |
if ($type =~ /^(eq|==)$/) { } |
|
397
|
0 |
0 |
defined $got ? : |
|
398
|
0 |
0 |
defined $expect ? : |
|
419
|
0 |
0 |
unless ($Have_Plan) |
|
439
|
0 |
0 |
if $self->use_numbers |
|
453
|
0 |
0 |
unless ($Have_Plan) |
|
474
|
0 |
0 |
if $self->use_numbers |
|
487
|
1 |
55 |
if (defined $level) |
|
501
|
0 |
55 |
if (defined $use_nums) |
|
512
|
0 |
1 |
if (defined $no_header) |
|
521
|
0 |
1 |
if (defined $no_ending) |
|
531
|
0 |
0 |
unless @msgs |
|
534
|
0 |
0 |
if $^C |
|
538
|
0 |
0 |
unless defined $_ |
|
542
|
0 |
0 |
unless $msgs[-1] =~ /\n\Z/ |
|
545
|
0 |
0 |
$self->todo ? : |
|
558
|
0 |
56 |
if $^C |
|
569
|
0 |
56 |
unless $msgs[-1] =~ /\n\Z/ |
|
580
|
1 |
56 |
if (defined $fh) |
|
589
|
1 |
0 |
if (defined $fh) |
|
598
|
1 |
0 |
if (defined $fh) |
|
608
|
0 |
3 |
if (not UNIVERSAL::isa($file_or_fh, 'GLOB')) { } |
|
610
|
0 |
0 |
unless open $fh, ">$file_or_fh" |
|
651
|
0 |
0 |
if (defined $num) |
|
652
|
0 |
0 |
unless ($Have_Plan) |
|
658
|
0 |
0 |
if ($num > @Test_Results) |
|
659
|
0 |
0 |
@Test_Results ? : |
|
696
|
0 |
55 |
defined ${$pack . '::TODO';} ? : |
|
706
|
55 |
0 |
wantarray ? : |
|
720
|
0 |
3 |
if ($check) |
|
756
|
0 |
0 |
if _my_exit($?) |
|
|
0 |
1 |
if ($Original_Pid != $$) |
|
760
|
0 |
0 |
if _my_exit(0) |
|
|
0 |
0 |
unless ($Have_Plan or $Test_Died) |
|
763
|
1 |
0 |
if (@Test_Results) { } |
|
|
0 |
0 |
elsif ($Skip_All) { } |
|
|
0 |
0 |
elsif ($Test_Died) { } |
|
765
|
0 |
1 |
if ($No_Plan) |
|
766
|
0 |
0 |
unless $self->no_header |
|
776
|
0 |
1 |
unless defined $Test_Results[$idx] |
|
783
|
0 |
1 |
if ($Curr_Test < $Expected_Tests) { } |
|
|
0 |
1 |
elsif ($Curr_Test > $Expected_Tests) { } |
|
|
0 |
1 |
elsif ($num_failed) { } |
|
800
|
0 |
1 |
if ($Test_Died) |
|
805
|
0 |
0 |
if _my_exit(255) |
|
808
|
1 |
0 |
$num_failed <= 254 ? : |
|
|
1 |
0 |
if _my_exit($num_failed <= 254 ? $num_failed : 254) |
|
811
|
0 |
0 |
if _my_exit(0) |
|
820
|
0 |
0 |
if _my_exit(255) |
|
825
|
1 |
0 |
if defined $Test and not $Test->no_ending |