Condition Coverage

File:lib/Parrot/Test.pm
Coverage:60.0%

line%coveragecondition
31650
Adec
00
11
open OLDOUT, '>&STDOUT' or die q[Can't save stdout]
31950
Adec
00
11
open OLDERR, '>&STDERR' or die q[Can't save stderr]
32350
Adec
00
11
open STDOUT, '>', $out or die "Can't redirect stdout to $out"
32650
Adec
00
11
open STDERR, ">$err" or die "Can't redirect stderr to $err"
35650
Adec
00
11
close STDOUT or die q[Can't close stdout]
35750
Adec
00
11
close STDERR or die q[Can't close stderr]
35950
Adec
00
11
open STDOUT, '>&', \*OLDOUT or die q[Can't restore stdout]
36050
Adec
00
11
open STDERR, '>&', \*OLDERR or die q[Can't restore stderr]
368100
ABdec
0X0
100
111
defined $ext and defined $test_no
4390
Adec
00
11
$$self{'builder'}->exported_to || ''
55950
Adec
00
11
$ENV{'TEST_PROG_ARGS'} || ''
60933
ABdec
000
011
1X1
$args =~ s/--run-pbc// or $args =~ s/-r //
65750
Adec
00
11
$ENV{'TEST_PROG_ARGS'} || ''
66333
ABdec
0X0
100
111
$func =~ /^pbc_output_/ and $args =~ /-r /
67650
Adec
00
11
$builder->exported_to || ''
69467
ABdec
0X0
100
111
not $pass and $exit_code
74850
Adec
00
11
$ENV{'TEST_PROG_ARGS'} || ''
77850
Adec
00
11
$builder->exported_to || ''
78533
ABdec
0X0
100
111
$exit_code and not $pass
1045100
Adec
00
11
delete $$options{'CD'} || ''
1055100
Adec
00
11
$$options{'STDOUT'} || ''
1056100
Adec
00
11
$$options{'STDERR'} || ''
1058100
ABCdec
0XX0
10X0
1100
1111
$out and $err and "$out" eq "$err"