| line |
true |
false |
branch |
|
43
|
0 |
1 |
if ref $class |
|
53
|
1 |
0 |
if defined $Test::TESTERR |
|
58
|
1 |
0 |
if defined $Test::TESTERR |
|
78
|
1 |
0 |
unless (\*TESTOUT eq $Test::TESTOUT) |
|
99
|
0 |
0 |
if UNIVERSAL::isa($_[0], 'Test::Tech') |
|
126
|
0 |
0 |
unless @expression |
|
143
|
0 |
0 |
unless $tech_p |
|
144
|
0 |
0 |
UNIVERSAL::isa($_[0], 'Test::Tech') ? : |
|
145
|
0 |
0 |
ref $self ? : |
|
147
|
0 |
0 |
unless $Test::TESTOUT |
|
148
|
0 |
0 |
unless $Test::planned |
|
153
|
0 |
0 |
unless $$self{'Skip_Diag'} |
|
155
|
0 |
0 |
if (1.2 < $Test::VERSION) { } |
|
169
|
0 |
0 |
if defined $Test::TESTERR |
|
171
|
0 |
0 |
if (@{$$self{'unplanned'};}) |
|
174
|
0 |
0 |
if (@{$$self{'missed'};}) |
|
177
|
0 |
0 |
if (@{$$self{'skipped'};}) |
|
180
|
0 |
0 |
if (@{$$self{'failed'};}) |
|
185
|
0 |
0 |
if $$self{'num_tests'} |
|
186
|
0 |
0 |
if $$self{'last_test'} and $$self{'num_tests'} < $$self{'last_test'} |
|
190
|
0 |
0 |
if $total |
|
197
|
0 |
0 |
if wantarray |
|
200
|
0 |
0 |
$passed ? : |
|
216
|
0 |
0 |
unless $tech_p |
|
217
|
0 |
0 |
UNIVERSAL::isa($_[0], 'Test::Tech') && ref $_[0] ? : |
|
218
|
0 |
0 |
ref $self ? : |
|
219
|
0 |
0 |
if wantarray |
|
246
|
0 |
0 |
unless $tech_p |
|
247
|
0 |
0 |
UNIVERSAL::isa($_[0], 'Test::Tech') && ref $_[0] ? : |
|
248
|
0 |
0 |
ref $self ? : |
|
251
|
0 |
0 |
if 3 < @_ and ref $_[-1] |
|
253
|
0 |
0 |
if defined $$options{'diagnostic'} |
|
254
|
0 |
0 |
if defined $$options{'name'} |
|
261
|
0 |
0 |
if defined $diagnostic_in |
|
262
|
0 |
0 |
if defined $name_in |
|
263
|
0 |
0 |
unless defined $diagnostic |
|
266
|
0 |
0 |
if ($$self{'Skip_Tests'}) |
|
274
|
0 |
0 |
if (ref $_) |
|
283
|
0 |
0 |
if ($subroutine) |
|
284
|
0 |
0 |
unless substr($diagnostic, -1, 1) eq "\n" |
|
309
|
0 |
1 |
unless $tech_p |
|
310
|
0 |
1 |
UNIVERSAL::isa($_[0], 'Test::Tech') && ref $_[0] ? : |
|
311
|
1 |
0 |
ref $self ? : |
|
328
|
0 |
1 |
if (defined &Win32::BuildNumber and defined &Win32::BuildNumber()) { } |
|
|
0 |
1 |
elsif (defined $MacPerl::Version) { } |
|
335
|
0 |
1 |
unless 1.2 < $Test::VERSION |
|
377
|
0 |
0 |
unless $tech_p |
|
378
|
0 |
0 |
UNIVERSAL::isa($_[0], 'Test::Tech') && ref $_[0] ? : |
|
379
|
0 |
0 |
ref $self ? : |
|
382
|
0 |
0 |
if 4 < @_ and ref $_[-1] |
|
384
|
0 |
0 |
if $$options{'diagnostic'} |
|
385
|
0 |
0 |
if $$options{'name'} |
|
389
|
0 |
0 |
if defined $diagnostic_in |
|
390
|
0 |
0 |
if defined $name_in |
|
391
|
0 |
0 |
unless defined $diagnostic |
|
394
|
0 |
0 |
if ($$self{'Skip_Tests'}) |
|
402
|
0 |
0 |
if (ref $_) |
|
412
|
0 |
0 |
if ($subroutine) |
|
413
|
0 |
0 |
unless substr($diagnostic, -1, 1) eq "\n" |
|
436
|
0 |
0 |
unless $tech_p |
|
437
|
0 |
0 |
UNIVERSAL::isa($_[0], 'Test::Tech') && ref $_[0] ? : |
|
438
|
0 |
0 |
ref $self ? : |
|
442
|
0 |
0 |
unless defined $value |
|
444
|
0 |
0 |
unless defined $diagnostic |
|
445
|
0 |
0 |
$value ? : |
|
463
|
0 |
0 |
unless $tech_p |
|
464
|
0 |
0 |
UNIVERSAL::isa($_[0], 'Test::Tech') && ref $_[0] ? : |
|
465
|
0 |
0 |
ref $self ? : |
|
484
|
0 |
0 |
if (defined $$key_p{$key}) |
|
489
|
0 |
0 |
if (ref $$key_p{$key} eq 'HASH') { } |
|
493
|
0 |
0 |
if (@keys) |
|
508
|
0 |
0 |
if (ref $current_value eq 'SCALAR') |
|
511
|
0 |
0 |
if (defined $value and $key ne 'ntest') |
|
512
|
0 |
0 |
if (ref $value eq 'SCALAR') { } |
|
539
|
0 |
1 |
if ref $class |
|
550
|
0 |
5 |
defined $, ? : |
|
551
|
0 |
5 |
if defined $\ |
|
558
|
0 |
5 |
if $test_name |
|
563
|
0 |
5 |
if $skip_diag |
|
593
|
0 |
5 |
if ($buf =~ /^\s*(not ok|ok)\s*(\d+)/) |
|
596
|
0 |
5 |
if ($test_num) |
|
597
|
0 |
0 |
if ($$tech{'num_tests'} < $test_num) |
|
600
|
0 |
0 |
if ($$tech{'last_test'} + 1 != $test_num) |
|
605
|
1 |
4 |
if ($buf =~ /^\d+\.\.(\d+)/) { } |
|
|
0 |
4 |
elsif ($buf =~ /^\s*ok\s*(\d+).*?\#\s*skip/i) { } |
|
|
0 |
4 |
elsif ($buf =~ /^\s*not ok\s*(\d+)/i) { } |
|
|
0 |
4 |
elsif ($buf =~ /^\s*ok\s*(\d+)/i) { } |