| line |
true |
false |
branch |
|
149
|
0 |
6 |
if ref $_[0] |
|
156
|
1 |
5 |
unless $Test->ok($ok, $description) |
|
165
|
0 |
6 |
if ref $_[0] |
|
172
|
2 |
4 |
unless $Test->ok($ok, $description) |
|
199
|
0 |
6 |
if ref $_[0] |
|
202
|
2 |
4 |
unless (my $regextest = _chkregex('stdout_like', $expected)) |
|
210
|
2 |
2 |
unless $Test->ok($ok, $description) |
|
219
|
0 |
6 |
if ref $_[0] |
|
222
|
2 |
4 |
unless (my $regextest = _chkregex('stdout_unlike', $expected)) |
|
230
|
2 |
2 |
unless $Test->ok($ok, $description) |
|
260
|
0 |
6 |
if ref $_[0] |
|
267
|
2 |
4 |
unless $Test->ok($ok, $description) |
|
276
|
0 |
4 |
if ref $_[0] |
|
283
|
2 |
2 |
unless $Test->ok($ok, $description) |
|
311
|
0 |
6 |
if ref $_[0] |
|
314
|
2 |
4 |
unless (my $regextest = _chkregex('stderr_like', $expected)) |
|
322
|
2 |
2 |
unless $Test->ok($ok, $description) |
|
331
|
0 |
6 |
if ref $_[0] |
|
334
|
2 |
4 |
unless (my $regextest = _chkregex('stderr_unlike', $expected)) |
|
342
|
2 |
2 |
unless $Test->ok($ok, $description) |
|
373
|
0 |
14 |
if ref $_[0] |
|
380
|
6 |
8 |
unless $Test->ok($ok, $description) |
|
390
|
0 |
14 |
if ref $_[0] |
|
397
|
6 |
8 |
unless $Test->ok($ok, $description) |
|
427
|
0 |
7 |
if ref $_[0] |
|
430
|
2 |
5 |
unless (my $regextest = _chkregex('combined_like', $expected)) |
|
438
|
2 |
3 |
unless $Test->ok($ok, $description) |
|
448
|
0 |
7 |
if ref $_[0] |
|
451
|
2 |
5 |
unless (my $regextest = _chkregex('combined_unlike', $expected)) |
|
459
|
2 |
3 |
unless $Test->ok($ok, $description) |
|
527
|
0 |
24 |
if ref $_[0] |
|
535
|
14 |
10 |
if (defined $experr and defined $expout) { } |
|
|
2 |
8 |
elsif (defined $expout) { } |
|
|
2 |
6 |
elsif (defined $experr) { } |
|
536
|
4 |
10 |
unless ($stdout eq $expout) |
|
540
|
4 |
10 |
unless ($stderr eq $experr) |
|
541
|
2 |
2 |
unless $ok |
|
555
|
2 |
4 |
unless ($stdout eq '') |
|
559
|
4 |
2 |
unless ($stderr eq '') |
|
560
|
2 |
2 |
unless $ok |
|
566
|
10 |
14 |
unless $Test->ok($ok, $description) |
|
575
|
0 |
24 |
if ref $_[0] |
|
583
|
8 |
16 |
if (defined $experr and defined $expout) { } |
|
|
4 |
12 |
elsif (defined $expout) { } |
|
|
4 |
8 |
elsif (defined $experr) { } |
|
584
|
4 |
4 |
if ($stdout eq $expout) |
|
588
|
4 |
4 |
if ($stderr eq $experr) |
|
589
|
2 |
2 |
unless $ok |
|
603
|
4 |
4 |
if ($stdout eq '') |
|
607
|
4 |
4 |
if ($stderr eq '') |
|
608
|
2 |
2 |
unless $ok |
|
614
|
12 |
12 |
unless $Test->ok($ok, $description) |
|
658
|
0 |
22 |
if ref $_[0] |
|
665
|
4 |
18 |
unless (my $regextest = _chkregex('output_like_STDERR', $experr, 'output_like_STDOUT', $expout)) |
|
676
|
9 |
9 |
if (defined $experr and defined $expout) { } |
|
|
2 |
7 |
elsif (defined $expout) { } |
|
|
1 |
6 |
elsif (defined $experr) { } |
|
677
|
4 |
5 |
unless ($stdout =~ /$expout/) |
|
681
|
4 |
5 |
unless ($stderr =~ /$experr/) |
|
682
|
2 |
2 |
unless $ok |
|
696
|
2 |
4 |
unless ($stdout eq '') |
|
700
|
4 |
2 |
unless ($stderr eq '') |
|
701
|
2 |
2 |
unless $ok |
|
707
|
10 |
8 |
unless $Test->ok($ok, $description) |
|
716
|
0 |
16 |
if ref $_[0] |
|
723
|
4 |
12 |
unless (my $regextest = _chkregex('output_unlike_STDERR', $experr, 'output_unlike_STDOUT', $expout)) |
|
734
|
8 |
4 |
if (defined $experr and defined $expout) { } |
|
|
2 |
2 |
elsif (defined $expout) { } |
|
|
2 |
0 |
elsif (defined $experr) { } |
|
735
|
4 |
4 |
if ($stdout =~ /$expout/) |
|
739
|
4 |
4 |
if ($stderr =~ /$experr/) |
|
740
|
2 |
2 |
unless $ok |
|
754
|
6 |
6 |
unless $Test->ok($ok, $description) |
|
849
|
0 |
19 |
if $] < 5.008 |
|
906
|
19 |
89 |
unless defined $regexs{$test} |
|
909
|
20 |
69 |
unless (defined $usable_regex) |