| line |
true |
false |
branch |
|
80
|
0 |
0 |
if (not @_) { } |
|
|
0 |
0 |
elsif (@_ == 1) { } |
|
82
|
0 |
0 |
if ($@) |
|
88
|
0 |
0 |
if ($@) |
|
94
|
0 |
0 |
if (my $tests = delete $args{'tests'}) { } |
|
|
0 |
0 |
elsif (my $skip = delete $args{'skip_all'}) { } |
|
100
|
0 |
0 |
if ($@) |
|
103
|
0 |
0 |
if ($args{'diff'}) |
|
115
|
0 |
0 |
if (defined $LOG) |
|
117
|
0 |
0 |
unless ($logfile) |
|
121
|
0 |
0 |
unless open my $log, ">>$logfile" |
|
124
|
0 |
0 |
if ($VERBOSE) { } |
|
150
|
0 |
0 |
if $@ |
|
157
|
0 |
0 |
if ($VERBOSE) |
|
163
|
0 |
0 |
unless check($test) |
|
164
|
0 |
0 |
unless ok($test, $msg) |
|
171
|
0 |
0 |
if ($VERBOSE) |
|
177
|
0 |
0 |
unless check(!$test) |
|
178
|
0 |
0 |
unless ok(!$test, "not [$msg]") |
|
185
|
0 |
0 |
if ($VERBOSE) |
|
192
|
0 |
0 |
unless check_is(0 + $lhs, 0 + $rhs) |
|
193
|
0 |
0 |
unless is(0 + $lhs, 0 + $rhs, $msg) |
|
199
|
0 |
0 |
if ($VERBOSE) |
|
205
|
0 |
0 |
unless check_is($lhs, $rhs) |
|
206
|
0 |
0 |
unless is($lhs, $rhs, $msg) |
|
226
|
0 |
0 |
if defined $OFH |
|
227
|
0 |
0 |
if defined $FFH |
|
228
|
0 |
0 |
if defined $TFH |