| line |
true |
false |
branch |
|
152
|
0 |
6 |
if ref $_[0] |
|
159
|
1 |
5 |
unless $Test->ok($ok, $description) |
|
168
|
0 |
6 |
if ref $_[0] |
|
175
|
2 |
4 |
unless $Test->ok($ok, $description) |
|
202
|
0 |
6 |
if ref $_[0] |
|
205
|
2 |
4 |
unless (my $regextest = _chkregex("stdout_like", $expected)) |
|
213
|
2 |
2 |
unless $Test->ok($ok, $description) |
|
222
|
0 |
6 |
if ref $_[0] |
|
225
|
2 |
4 |
unless (my $regextest = _chkregex("stdout_unlike", $expected)) |
|
233
|
2 |
2 |
unless $Test->ok($ok, $description) |
|
263
|
0 |
6 |
if ref $_[0] |
|
270
|
2 |
4 |
unless $Test->ok($ok, $description) |
|
279
|
0 |
4 |
if ref $_[0] |
|
286
|
2 |
2 |
unless $Test->ok($ok, $description) |
|
314
|
0 |
6 |
if ref $_[0] |
|
317
|
2 |
4 |
unless (my $regextest = _chkregex("stderr_like", $expected)) |
|
325
|
2 |
2 |
unless $Test->ok($ok, $description) |
|
334
|
0 |
6 |
if ref $_[0] |
|
337
|
2 |
4 |
unless (my $regextest = _chkregex("stderr_unlike", $expected)) |
|
345
|
2 |
2 |
unless $Test->ok($ok, $description) |
|
376
|
0 |
14 |
if ref $_[0] |
|
383
|
6 |
8 |
unless $Test->ok($ok, $description) |
|
393
|
0 |
14 |
if ref $_[0] |
|
400
|
6 |
8 |
unless $Test->ok($ok, $description) |
|
430
|
0 |
7 |
if ref $_[0] |
|
433
|
2 |
5 |
unless (my $regextest = _chkregex("combined_like", $expected)) |
|
441
|
2 |
3 |
unless $Test->ok($ok, $description) |
|
451
|
0 |
7 |
if ref $_[0] |
|
454
|
2 |
5 |
unless (my $regextest = _chkregex("combined_unlike", $expected)) |
|
462
|
2 |
3 |
unless $Test->ok($ok, $description) |
|
530
|
0 |
24 |
if ref $_[0] |
|
538
|
14 |
10 |
if (defined $experr and defined $expout) { } |
|
|
2 |
8 |
elsif (defined $expout) { } |
|
|
2 |
6 |
elsif (defined $experr) { } |
|
539
|
4 |
10 |
unless ($stdout eq $expout) |
|
543
|
4 |
10 |
unless ($stderr eq $experr) |
|
544
|
2 |
2 |
unless $ok |
|
558
|
2 |
4 |
unless ($stdout eq "") |
|
562
|
4 |
2 |
unless ($stderr eq "") |
|
563
|
2 |
2 |
unless $ok |
|
569
|
10 |
14 |
unless $Test->ok($ok, $description) |
|
578
|
0 |
24 |
if ref $_[0] |
|
586
|
8 |
16 |
if (defined $experr and defined $expout) { } |
|
|
4 |
12 |
elsif (defined $expout) { } |
|
|
4 |
8 |
elsif (defined $experr) { } |
|
587
|
4 |
4 |
if ($stdout eq $expout) |
|
591
|
4 |
4 |
if ($stderr eq $experr) |
|
592
|
2 |
2 |
unless $ok |
|
606
|
4 |
4 |
if ($stdout eq "") |
|
610
|
4 |
4 |
if ($stderr eq "") |
|
611
|
2 |
2 |
unless $ok |
|
617
|
12 |
12 |
unless $Test->ok($ok, $description) |
|
661
|
0 |
22 |
if ref $_[0] |
|
668
|
4 |
18 |
unless (my $regextest = _chkregex("output_like_STDERR", $experr, "output_like_STDOUT", $expout)) |
|
679
|
9 |
9 |
if (defined $experr and defined $expout) { } |
|
|
2 |
7 |
elsif (defined $expout) { } |
|
|
1 |
6 |
elsif (defined $experr) { } |
|
680
|
4 |
5 |
unless ($stdout =~ /$expout/) |
|
684
|
4 |
5 |
unless ($stderr =~ /$experr/) |
|
685
|
2 |
2 |
unless $ok |
|
699
|
2 |
4 |
unless ($stdout eq "") |
|
703
|
4 |
2 |
unless ($stderr eq "") |
|
704
|
2 |
2 |
unless $ok |
|
710
|
10 |
8 |
unless $Test->ok($ok, $description) |
|
719
|
0 |
16 |
if ref $_[0] |
|
726
|
4 |
12 |
unless (my $regextest = _chkregex("output_unlike_STDERR", $experr, "output_unlike_STDOUT", $expout)) |
|
737
|
8 |
4 |
if (defined $experr and defined $expout) { } |
|
|
2 |
2 |
elsif (defined $expout) { } |
|
|
2 |
0 |
elsif (defined $experr) { } |
|
738
|
4 |
4 |
if ($stdout =~ /$expout/) |
|
742
|
4 |
4 |
if ($stderr =~ /$experr/) |
|
743
|
2 |
2 |
unless $ok |
|
757
|
6 |
6 |
unless $Test->ok($ok, $description) |
|
822
|
0 |
19 |
if $] < "5.008" |
|
879
|
19 |
88 |
unless defined $regexs{$test} |
|
882
|
20 |
68 |
unless (defined $usable_regex) |