Skip to content
Browse files

Merge branch 'tmp_threads_bug' into master

  • Loading branch information...
2 parents 1f33333 + 8b26a6f commit e26e5abd931fae2f0cc4d22dc68da25b3f10ef2b @pjcj committed Apr 12, 2010
View
5 MANIFEST
@@ -121,7 +121,6 @@ test_output/cover/cond_or.5.006001
test_output/cover/cond_or.5.006002
test_output/cover/cond_or.5.008
test_output/cover/cond_or.5.008001
-test_output/cover/cond_or.5.009005
test_output/cover/cond_or.5.010000
test_output/cover/cond_xor.5.006001
test_output/cover/cond_xor.5.008
@@ -152,7 +151,7 @@ test_output/cover/if.5.006001
test_output/cover/if.5.008
test_output/cover/inc_sub.5.006001
test_output/cover/inc_sub.5.008
-test_output/cover/inc_sub.5.009005
+test_output/cover/inc_sub.5.010000
test_output/cover/md5.5.006001
test_output/cover/module1.5.006001
test_output/cover/module1.5.008
@@ -185,7 +184,7 @@ test_output/cover/sort.5.008
test_output/cover/special_blocks.5.006001
test_output/cover/special_blocks.5.008
test_output/cover/special_blocks.5.008001
-test_output/cover/special_blocks.5.009005
+test_output/cover/special_blocks.5.010000
test_output/cover/statement.5.006001
test_output/cover/subs_only.5.006001
test_output/cover/t0.5.006001
View
3 lib/Devel/Cover.pm
@@ -304,9 +304,7 @@ sub import
unless (-d $DB)
{
- # Nasty hack to keep 5.6.1 happy.
mkdir $DB, 0700 or croak "Can't mkdir $DB: $!\n";
- chmod 0700, $DB or croak "Can't chmod $DB: $!\n";
}
$DB = $1 if Cwd::abs_path($DB) =~ /(.*)/;
Devel::Cover::DB->delete($DB) unless $Merge;
@@ -687,7 +685,6 @@ sub report
unless (-d $DB)
{
mkdir $DB, 0700 or croak "Can't mkdir $DB: $!\n";
- chmod 0700, $DB or croak "Can't chmod $DB: $!\n";
}
$DB .= "/$run";
View
4 makeh
@@ -21,8 +21,8 @@ my $Command =
{
$t = index $_, "$criterion code" if !defined $t || $t < 0;
substr $_, $t, 7, ""
- if /^line err stmt/ .. /^--------/ and length > $t;
- print
+ if /^line err stmt/ .. /^--------/ and $t > -1 and length > $t;
+ print;
}
},
};
View
221 test_output/cover/cond_or.5.006001
@@ -27,104 +27,107 @@ line err stmt bran cond sub code
7 # The latest version of this software should be available from my homepage:
8 # http://www.pjcj.net
9
-10 use strict;
-11 use warnings;
+10 # __COVER__ skip_test $] < 5.008 || $^O eq "cygwin"
+11 # __COVER__ skip_reason Busted on 5.6 and cygwin
12
-13 1 my @x;
-14
-15 1 my $y = 1;
-16 1 my $z = 0;
-17 1 $::foo = 17;
-18
-19 *** 1 50 if ($] >= 5.009)
-20 {
-21 *** 0 $ENV{PATH} = "/bin";
-22 *** 0 system "pwd";
-23 use lib "tests";
-24 *** 0 my $file = "cond_or.pl";
-25 *** 0 0 unless (my $return = do $file)
-26 {
-27 *** 0 0 die "couldn't parse $file: $@" if $@;
-28 *** 0 0 die "couldn't do $file: $!" unless defined $return;
-29 *** 0 0 die "couldn't run $file" unless $return;
-30 }
-31 }
-32
-33 1 for (0 .. 10)
+13 use strict;
+14 use warnings;
+15
+16 1 my @x;
+17
+18 1 my $y = 1;
+19 1 my $z = 0;
+20 1 $::foo = 17;
+21
+22 *** 1 50 if ($] >= 5.009)
+23 {
+24 *** 0 $ENV{PATH} = "/bin";
+25 *** 0 system "pwd";
+26 use lib "tests";
+27 *** 0 my $file = "cond_or.pl";
+28 *** 0 0 unless (my $return = do $file)
+29 {
+30 *** 0 0 die "couldn't parse $file: $@" if $@;
+31 *** 0 0 die "couldn't do $file: $!" unless defined $return;
+32 *** 0 0 die "couldn't run $file" unless $return;
+33 }
+34 }
+35
+36 1 for (0 .. 10)
11
-34 {
-35 *** 11 50 $y ||
-36 $x[1]++;
-37
-38 *** 11 50 33 $y ||
-39 $x[0]++ ||
-40 $x[1]++;
-41
-42 *** 11 50 $x[2]++
-43 unless $z;
+37 {
+38 *** 11 50 $y ||
+39 $x[1]++;
+40
+41 *** 11 50 33 $y ||
+42 $x[0]++ ||
+43 $x[1]++;
44
-45 11 for (0 .. 2)
+45 *** 11 50 $x[2]++
+46 unless $z;
+47
+48 11 for (0 .. 2)
33
-46 {
-47 33 $x[3]++;
-48 }
-49
-50 *** 11 50 if ($z)
-51 {
-52 *** 0 $x[4]++;
-53 }
-54 else
-55 {
-56 11 $x[5]++;
-57 }
-58
-59 *** 11 33 my $p = $y || $z;
-60 *** 11 33 my $q = $z || $y;
-61 11 100 my $r = $_ || "qqq";
-62 11 100 my $s = $_ || [];
-63 11 my $t = $y | $z;
-64 *** 11 50 my $u = $y || 0;
-65 *** 11 50 my $v = $y || undef;
-66 *** 11 50 my $w = $z || 0;
-67
-68 *** 11 50 $p ||= $y;
-69 *** 11 50 $p ||= $z;
-70 11 100 $x[ 6] ||= $y;
-71 *** 11 50 $x[ 7] ||= $z;
-72 11 100 $x[ 8] ||= 1;
-73 11 100 $x[ 9] ||= {};
-74 11 100 $x[10] ||= \"foo";
-75 11 100 $x[11] ||= \$y;
-76 11 100 $x[12] ||= \*STDIO;
-77 *** 11 100 0 $x[13] ||= sub { 1 };
+49 {
+50 33 $x[3]++;
+51 }
+52
+53 *** 11 50 if ($z)
+54 {
+55 *** 0 $x[4]++;
+56 }
+57 else
+58 {
+59 11 $x[5]++;
+60 }
+61
+62 *** 11 33 my $p = $y || $z;
+63 *** 11 33 my $q = $z || $y;
+64 11 100 my $r = $_ || "qqq";
+65 11 100 my $s = $_ || [];
+66 11 my $t = $y | $z;
+67 *** 11 50 my $u = $y || 0;
+68 *** 11 50 my $v = $y || undef;
+69 *** 11 50 my $w = $z || 0;
+70
+71 *** 11 50 $p ||= $y;
+72 *** 11 50 $p ||= $z;
+73 11 100 $x[ 6] ||= $y;
+74 *** 11 50 $x[ 7] ||= $z;
+75 11 100 $x[ 8] ||= 1;
+76 11 100 $x[ 9] ||= {};
+77 11 100 $x[10] ||= \"foo";
+78 11 100 $x[11] ||= \$y;
+79 11 100 $x[12] ||= \*STDIO;
+80 *** 11 100 0 $x[13] ||= sub { 1 };
*** 0
-78 11 100 $x[14] ||= *::foo{SCALAR};
-79 *** 11 50 $x[15] ||= *STDIO{IO};
-80 11 100 $x[16] ||= bless {}, "XXX";
-81 11 100 $x[17] ||= <<"EOD";
-82 blah
-83 EOD
-84 *** 11 50 cond_dor(\@x) if exists &cond_dor;
-85 }
-86
-87 # print join(", ", @x), "\n";
+81 11 100 $x[14] ||= *::foo{SCALAR};
+82 *** 11 50 $x[15] ||= *STDIO{IO};
+83 11 100 $x[16] ||= bless {}, "XXX";
+84 11 100 $x[17] ||= <<"EOD";
+85 blah
+86 EOD
+87 *** 11 50 cond_dor(\@x) if exists &cond_dor;
+88 }
+89
+90 # print join(", ", @x), "\n";
Branches
--------
line err % true false branch
----- --- ------ ------ ------ ------
-19 *** 50 0 1 if ($] >= 5.009)
-25 *** 0 0 0 unless (my $return = do $file)
-27 *** 0 0 0 if $@
-28 *** 0 0 0 unless defined $return
-29 *** 0 0 0 unless $return
-35 *** 50 0 11 unless $y
-38 *** 50 0 11 unless $y or $x[0]++
-42 *** 50 11 0 unless $z
-50 *** 50 0 11 if ($z) { }
-84 *** 50 0 11 if exists ->{Deparse error: Can't locate object method "name" via package "B::NULL" (perhaps you forgot to load "B::NULL"?) at /usr/local/pkg/perl-5.6.1/lib/5.6.1/i686-linux/B/Deparse.pm line 409.
+22 *** 50 0 1 if ($] >= 5.009)
+28 *** 0 0 0 unless (my $return = do $file)
+30 *** 0 0 0 if $@
+31 *** 0 0 0 unless defined $return
+32 *** 0 0 0 unless $return
+38 *** 50 0 11 unless $y
+41 *** 50 0 11 unless $y or $x[0]++
+45 *** 50 11 0 unless $z
+53 *** 50 0 11 if ($z) { }
+87 *** 50 0 11 if exists ->{Deparse error: Can't locate object method "name" via package "B::NULL" (perhaps you forgot to load "B::NULL"?) at /usr/local/pkg/perl/default/perl-5.6.1/lib/5.6.1/i686-linux/B/Deparse.pm line 409.
}
@@ -135,43 +138,43 @@ or 2 conditions
line err % l !l expr
----- --- ------ ------ ------ ----
-61 100 10 1 $_ || 'qqq'
-62 100 10 1 $_ || []
-64 *** 50 11 0 $y || 0
-65 *** 50 11 0 $y || undef
-66 *** 50 0 11 $z || 0
-68 *** 50 11 0 $p ||= $y
-69 *** 50 11 0 $p ||= $z
-70 100 10 1 $x[6] ||= $y
-71 *** 50 0 11 $x[7] ||= $z
-72 100 10 1 $x[8] ||= 1
-73 100 10 1 $x[9] ||= {}
-74 100 10 1 $x[10] ||= \('foo')
-75 100 10 1 $x[11] ||= \$y
-76 100 10 1 $x[12] ||= \*STDIO
-77 100 10 1 $x[13] ||= sub {
+64 100 10 1 $_ || 'qqq'
+65 100 10 1 $_ || []
+67 *** 50 11 0 $y || 0
+68 *** 50 11 0 $y || undef
+69 *** 50 0 11 $z || 0
+71 *** 50 11 0 $p ||= $y
+72 *** 50 11 0 $p ||= $z
+73 100 10 1 $x[6] ||= $y
+74 *** 50 0 11 $x[7] ||= $z
+75 100 10 1 $x[8] ||= 1
+76 100 10 1 $x[9] ||= {}
+77 100 10 1 $x[10] ||= \('foo')
+78 100 10 1 $x[11] ||= \$y
+79 100 10 1 $x[12] ||= \*STDIO
+80 100 10 1 $x[13] ||= sub {
1;
}
-78 100 10 1 $x[14] ||= *foo{'SCALAR'}
-79 *** 50 0 11 $x[15] ||= *STDIO{'IO'}
-80 100 10 1 $x[16] ||= bless({}, 'XXX')
-81 100 10 1 $x[17] ||= "blah\n"
+81 100 10 1 $x[14] ||= *foo{'SCALAR'}
+82 *** 50 0 11 $x[15] ||= *STDIO{'IO'}
+83 100 10 1 $x[16] ||= bless({}, 'XXX')
+84 100 10 1 $x[17] ||= "blah\n"
or 3 conditions
line err % l !l&&r !l&&!r expr
----- --- ------ ------ ------ ------ ----
-38 *** 33 11 0 0 $y or $x[0]++
-59 *** 33 11 0 0 $y || $z
-60 *** 33 0 11 0 $z || $y
+41 *** 33 11 0 0 $y or $x[0]++
+62 *** 33 11 0 0 $y || $z
+63 *** 33 0 11 0 $z || $y
Uncovered Subroutines
---------------------
Subroutine Count Location
---------- ----- ----------------
-__ANON__ 0 tests/cond_or:77
+__ANON__ 0 tests/cond_or:80
View
221 test_output/cover/cond_or.5.006002
@@ -27,104 +27,107 @@ line err stmt bran cond sub code
7 # The latest version of this software should be available from my homepage:
8 # http://www.pjcj.net
9
-10 use strict;
-11 use warnings;
+10 # __COVER__ skip_test $] < 5.008 || $^O eq "cygwin"
+11 # __COVER__ skip_reason Busted on 5.6 and cygwin
12
-13 1 my @x;
-14
-15 1 my $y = 1;
-16 1 my $z = 0;
-17 1 $::foo = 17;
-18
-19 *** 1 50 if ($] >= 5.009)
-20 {
-21 *** 0 $ENV{PATH} = "/bin";
-22 *** 0 system "pwd";
-23 use lib "tests";
-24 *** 0 my $file = "cond_or.pl";
-25 *** 0 0 unless (my $return = do $file)
-26 {
-27 *** 0 0 die "couldn't parse $file: $@" if $@;
-28 *** 0 0 die "couldn't do $file: $!" unless defined $return;
-29 *** 0 0 die "couldn't run $file" unless $return;
-30 }
-31 }
-32
-33 1 for (0 .. 10)
+13 use strict;
+14 use warnings;
+15
+16 1 my @x;
+17
+18 1 my $y = 1;
+19 1 my $z = 0;
+20 1 $::foo = 17;
+21
+22 *** 1 50 if ($] >= 5.009)
+23 {
+24 *** 0 $ENV{PATH} = "/bin";
+25 *** 0 system "pwd";
+26 use lib "tests";
+27 *** 0 my $file = "cond_or.pl";
+28 *** 0 0 unless (my $return = do $file)
+29 {
+30 *** 0 0 die "couldn't parse $file: $@" if $@;
+31 *** 0 0 die "couldn't do $file: $!" unless defined $return;
+32 *** 0 0 die "couldn't run $file" unless $return;
+33 }
+34 }
+35
+36 1 for (0 .. 10)
11
-34 {
-35 *** 11 50 $y ||
-36 $x[1]++;
-37
-38 *** 11 50 33 $y ||
-39 $x[0]++ ||
-40 $x[1]++;
-41
-42 *** 11 50 $x[2]++
-43 unless $z;
+37 {
+38 *** 11 50 $y ||
+39 $x[1]++;
+40
+41 *** 11 50 33 $y ||
+42 $x[0]++ ||
+43 $x[1]++;
44
-45 11 for (0 .. 2)
+45 *** 11 50 $x[2]++
+46 unless $z;
+47
+48 11 for (0 .. 2)
33
-46 {
-47 33 $x[3]++;
-48 }
-49
-50 *** 11 50 if ($z)
-51 {
-52 *** 0 $x[4]++;
-53 }
-54 else
-55 {
-56 11 $x[5]++;
-57 }
-58
-59 *** 11 33 my $p = $y || $z;
-60 *** 11 33 my $q = $z || $y;
-61 11 100 my $r = $_ || "qqq";
-62 11 100 my $s = $_ || [];
-63 11 my $t = $y | $z;
-64 *** 11 50 my $u = $y || 0;
-65 *** 11 50 my $v = $y || undef;
-66 *** 11 50 my $w = $z || 0;
-67
-68 *** 11 50 $p ||= $y;
-69 *** 11 50 $p ||= $z;
-70 11 100 $x[ 6] ||= $y;
-71 *** 11 50 $x[ 7] ||= $z;
-72 11 100 $x[ 8] ||= 1;
-73 11 100 $x[ 9] ||= {};
-74 11 100 $x[10] ||= \"foo";
-75 11 100 $x[11] ||= \$y;
-76 11 100 $x[12] ||= \*STDIO;
-77 *** 11 100 0 $x[13] ||= sub { 1 };
+49 {
+50 33 $x[3]++;
+51 }
+52
+53 *** 11 50 if ($z)
+54 {
+55 *** 0 $x[4]++;
+56 }
+57 else
+58 {
+59 11 $x[5]++;
+60 }
+61
+62 *** 11 33 my $p = $y || $z;
+63 *** 11 33 my $q = $z || $y;
+64 11 100 my $r = $_ || "qqq";
+65 11 100 my $s = $_ || [];
+66 11 my $t = $y | $z;
+67 *** 11 50 my $u = $y || 0;
+68 *** 11 50 my $v = $y || undef;
+69 *** 11 50 my $w = $z || 0;
+70
+71 *** 11 50 $p ||= $y;
+72 *** 11 50 $p ||= $z;
+73 11 100 $x[ 6] ||= $y;
+74 *** 11 50 $x[ 7] ||= $z;
+75 11 100 $x[ 8] ||= 1;
+76 11 100 $x[ 9] ||= {};
+77 11 100 $x[10] ||= \"foo";
+78 11 100 $x[11] ||= \$y;
+79 11 100 $x[12] ||= \*STDIO;
+80 *** 11 100 0 $x[13] ||= sub { 1 };
*** 0
-78 11 100 $x[14] ||= *::foo{SCALAR};
-79 *** 11 50 $x[15] ||= *STDIO{IO};
-80 11 100 $x[16] ||= bless {}, "XXX";
-81 11 100 $x[17] ||= <<"EOD";
-82 blah
-83 EOD
-84 *** 11 50 cond_dor(\@x) if exists &cond_dor;
-85 }
-86
-87 # print join(", ", @x), "\n";
+81 11 100 $x[14] ||= *::foo{SCALAR};
+82 *** 11 50 $x[15] ||= *STDIO{IO};
+83 11 100 $x[16] ||= bless {}, "XXX";
+84 11 100 $x[17] ||= <<"EOD";
+85 blah
+86 EOD
+87 *** 11 50 cond_dor(\@x) if exists &cond_dor;
+88 }
+89
+90 # print join(", ", @x), "\n";
Branches
--------
line err % true false branch
----- --- ------ ------ ------ ------
-19 *** 50 0 1 if ($] >= 5.009)
-25 *** 0 0 0 unless (my $return = do $file)
-27 *** 0 0 0 if $@
-28 *** 0 0 0 unless defined $return
-29 *** 0 0 0 unless $return
-35 *** 50 0 11 unless $y
-38 *** 50 0 11 unless $y or $x[0]++
-42 *** 50 11 0 unless $z
-50 *** 50 0 11 if ($z) { }
-84 *** 50 0 11 if exists ->{Deparse error: Can't locate object method "name" via package "B::NULL" (perhaps you forgot to load "B::NULL"?) at /usr/local/pkg/perl-5.6.2/lib/5.6.2/i686-linux/B/Deparse.pm line 409.
+22 *** 50 0 1 if ($] >= 5.009)
+28 *** 0 0 0 unless (my $return = do $file)
+30 *** 0 0 0 if $@
+31 *** 0 0 0 unless defined $return
+32 *** 0 0 0 unless $return
+38 *** 50 0 11 unless $y
+41 *** 50 0 11 unless $y or $x[0]++
+45 *** 50 11 0 unless $z
+53 *** 50 0 11 if ($z) { }
+87 *** 50 0 11 if exists ->{Deparse error: Can't locate object method "name" via package "B::NULL" (perhaps you forgot to load "B::NULL"?) at /usr/local/pkg/perl/default/perl-5.6.2/lib/5.6.2/i686-linux/B/Deparse.pm line 409.
}
@@ -135,43 +138,43 @@ or 2 conditions
line err % l !l expr
----- --- ------ ------ ------ ----
-61 100 10 1 $_ || 'qqq'
-62 100 10 1 $_ || []
-64 *** 50 11 0 $y || 0
-65 *** 50 11 0 $y || undef
-66 *** 50 0 11 $z || 0
-68 *** 50 11 0 $p ||= $y
-69 *** 50 11 0 $p ||= $z
-70 100 10 1 $x[6] ||= $y
-71 *** 50 0 11 $x[7] ||= $z
-72 100 10 1 $x[8] ||= 1
-73 100 10 1 $x[9] ||= {}
-74 100 10 1 $x[10] ||= \('foo')
-75 100 10 1 $x[11] ||= \$y
-76 100 10 1 $x[12] ||= \*STDIO
-77 100 10 1 $x[13] ||= sub {
+64 100 10 1 $_ || 'qqq'
+65 100 10 1 $_ || []
+67 *** 50 11 0 $y || 0
+68 *** 50 11 0 $y || undef
+69 *** 50 0 11 $z || 0
+71 *** 50 11 0 $p ||= $y
+72 *** 50 11 0 $p ||= $z
+73 100 10 1 $x[6] ||= $y
+74 *** 50 0 11 $x[7] ||= $z
+75 100 10 1 $x[8] ||= 1
+76 100 10 1 $x[9] ||= {}
+77 100 10 1 $x[10] ||= \('foo')
+78 100 10 1 $x[11] ||= \$y
+79 100 10 1 $x[12] ||= \*STDIO
+80 100 10 1 $x[13] ||= sub {
1;
}
-78 100 10 1 $x[14] ||= *foo{'SCALAR'}
-79 *** 50 0 11 $x[15] ||= *STDIO{'IO'}
-80 100 10 1 $x[16] ||= bless({}, 'XXX')
-81 100 10 1 $x[17] ||= "blah\n"
+81 100 10 1 $x[14] ||= *foo{'SCALAR'}
+82 *** 50 0 11 $x[15] ||= *STDIO{'IO'}
+83 100 10 1 $x[16] ||= bless({}, 'XXX')
+84 100 10 1 $x[17] ||= "blah\n"
or 3 conditions
line err % l !l&&r !l&&!r expr
----- --- ------ ------ ------ ------ ----
-38 *** 33 11 0 0 $y or $x[0]++
-59 *** 33 11 0 0 $y || $z
-60 *** 33 0 11 0 $z || $y
+41 *** 33 11 0 0 $y or $x[0]++
+62 *** 33 11 0 0 $y || $z
+63 *** 33 0 11 0 $z || $y
Uncovered Subroutines
---------------------
Subroutine Count Location
---------- ----- ----------------
-__ANON__ 0 tests/cond_or:77
+__ANON__ 0 tests/cond_or:80
View
229 test_output/cover/cond_or.5.008
@@ -27,110 +27,113 @@ line err stmt bran cond sub code
7 # The latest version of this software should be available from my homepage:
8 # http://www.pjcj.net
9
-10 1 1 use strict;
+10 # __COVER__ skip_test $] < 5.008 || $^O eq "cygwin"
+11 # __COVER__ skip_reason Busted on 5.6 and cygwin
+12
+13 1 1 use strict;
1
1
-11 1 1 use warnings;
+14 1 1 use warnings;
1
1
-12
-13 1 my @x;
-14
-15 1 my $y = 1;
-16 1 my $z = 0;
-17 1 $::foo = 17;
-18
-19 *** 1 50 if ($] >= 5.009)
-20 {
-21 *** 0 $ENV{PATH} = "/bin";
-22 *** 0 system "pwd";
-23 1 1 use lib "tests";
+15
+16 1 my @x;
+17
+18 1 my $y = 1;
+19 1 my $z = 0;
+20 1 $::foo = 17;
+21
+22 *** 1 50 if ($] >= 5.009)
+23 {
+24 *** 0 $ENV{PATH} = "/bin";
+25 *** 0 system "pwd";
+26 1 1 use lib "tests";
1
1
-24 *** 0 my $file = "cond_or.pl";
-25 *** 0 0 unless (my $return = do $file)
-26 {
-27 *** 0 0 die "couldn't parse $file: $@" if $@;
-28 *** 0 0 die "couldn't do $file: $!" unless defined $return;
-29 *** 0 0 die "couldn't run $file" unless $return;
-30 }
-31 }
-32
-33 1 for (0 .. 10)
+27 *** 0 my $file = "cond_or.pl";
+28 *** 0 0 unless (my $return = do $file)
+29 {
+30 *** 0 0 die "couldn't parse $file: $@" if $@;
+31 *** 0 0 die "couldn't do $file: $!" unless defined $return;
+32 *** 0 0 die "couldn't run $file" unless $return;
+33 }
+34 }
+35
+36 1 for (0 .. 10)
11
-34 {
-35 *** 11 50 $y ||
-36 $x[1]++;
-37
-38 *** 11 50 33 $y ||
-39 $x[0]++ ||
-40 $x[1]++;
-41
-42 *** 11 50 $x[2]++
-43 unless $z;
+37 {
+38 *** 11 50 $y ||
+39 $x[1]++;
+40
+41 *** 11 50 33 $y ||
+42 $x[0]++ ||
+43 $x[1]++;
44
-45 11 for (0 .. 2)
+45 *** 11 50 $x[2]++
+46 unless $z;
+47
+48 11 for (0 .. 2)
33
-46 {
-47 33 $x[3]++;
-48 }
-49
-50 *** 11 50 if ($z)
-51 {
-52 *** 0 $x[4]++;
-53 }
-54 else
-55 {
-56 11 $x[5]++;
-57 }
-58
-59 *** 11 33 my $p = $y || $z;
-60 *** 11 33 my $q = $z || $y;
-61 11 100 my $r = $_ || "qqq";
-62 11 100 my $s = $_ || [];
-63 11 my $t = $y | $z;
-64 *** 11 50 my $u = $y || 0;
-65 *** 11 50 my $v = $y || undef;
-66 *** 11 50 my $w = $z || 0;
-67
-68 *** 11 50 $p ||= $y;
-69 *** 11 50 $p ||= $z;
-70 11 100 $x[ 6] ||= $y;
-71 *** 11 50 $x[ 7] ||= $z;
-72 11 100 $x[ 8] ||= 1;
-73 11 100 $x[ 9] ||= {};
-74 11 100 $x[10] ||= \"foo";
-75 11 100 $x[11] ||= \$y;
-76 11 100 $x[12] ||= \*STDIO;
-77 *** 11 100 0 $x[13] ||= sub { 1 };
+49 {
+50 33 $x[3]++;
+51 }
+52
+53 *** 11 50 if ($z)
+54 {
+55 *** 0 $x[4]++;
+56 }
+57 else
+58 {
+59 11 $x[5]++;
+60 }
+61
+62 *** 11 33 my $p = $y || $z;
+63 *** 11 33 my $q = $z || $y;
+64 11 100 my $r = $_ || "qqq";
+65 11 100 my $s = $_ || [];
+66 11 my $t = $y | $z;
+67 *** 11 50 my $u = $y || 0;
+68 *** 11 50 my $v = $y || undef;
+69 *** 11 50 my $w = $z || 0;
+70
+71 *** 11 50 $p ||= $y;
+72 *** 11 50 $p ||= $z;
+73 11 100 $x[ 6] ||= $y;
+74 *** 11 50 $x[ 7] ||= $z;
+75 11 100 $x[ 8] ||= 1;
+76 11 100 $x[ 9] ||= {};
+77 11 100 $x[10] ||= \"foo";
+78 11 100 $x[11] ||= \$y;
+79 11 100 $x[12] ||= \*STDIO;
+80 *** 11 100 0 $x[13] ||= sub { 1 };
*** 0
-78 11 100 $x[14] ||= *::foo{SCALAR};
-79 *** 11 50 $x[15] ||= *STDIO{IO};
-80 11 100 $x[16] ||= bless {}, "XXX";
-81 11 100 $x[17] ||= <<"EOD";
-82 blah
-83 EOD
-84 *** 11 50 cond_dor(\@x) if exists &cond_dor;
-85 }
-86
-87 # print join(", ", @x), "\n";
+81 11 100 $x[14] ||= *::foo{SCALAR};
+82 *** 11 50 $x[15] ||= *STDIO{IO};
+83 11 100 $x[16] ||= bless {}, "XXX";
+84 11 100 $x[17] ||= <<"EOD";
+85 blah
+86 EOD
+87 *** 11 50 cond_dor(\@x) if exists &cond_dor;
+88 }
+89
+90 # print join(", ", @x), "\n";
Branches
--------
line err % true false branch
----- --- ------ ------ ------ ------
-19 *** 50 0 1 if ($] >= 5.009)
-25 *** 0 0 0 unless (my $return = do $file)
-27 *** 0 0 0 if $@
-28 *** 0 0 0 unless defined $return
-29 *** 0 0 0 unless $return
-35 *** 50 0 11 unless $y
-38 *** 50 0 11 unless $y or $x[0]++
-42 *** 50 11 0 unless $z
-50 *** 50 0 11 if ($z) { }
-84 *** 50 0 11 if exists &cond_dor
+22 *** 50 0 1 if ($] >= 5.009)
+28 *** 0 0 0 unless (my $return = do $file)
+30 *** 0 0 0 if $@
+31 *** 0 0 0 unless defined $return
+32 *** 0 0 0 unless $return
+38 *** 50 0 11 unless $y
+41 *** 50 0 11 unless $y or $x[0]++
+45 *** 50 11 0 unless $z
+53 *** 50 0 11 if ($z) { }
+87 *** 50 0 11 if exists &cond_dor
Conditions
@@ -140,52 +143,52 @@ or 2 conditions
line err % l !l expr
----- --- ------ ------ ------ ----
-61 100 10 1 $_ || 'qqq'
-62 100 10 1 $_ || []
-64 *** 50 11 0 $y || 0
-65 *** 50 11 0 $y || undef
-66 *** 50 0 11 $z || 0
-68 *** 50 11 0 $p ||= $y
-69 *** 50 11 0 $p ||= $z
-70 100 10 1 $x[6] ||= $y
-71 *** 50 0 11 $x[7] ||= $z
-72 100 10 1 $x[8] ||= 1
-73 100 10 1 $x[9] ||= {}
-74 100 10 1 $x[10] ||= \('foo')
-75 100 10 1 $x[11] ||= \$y
-76 100 10 1 $x[12] ||= \*STDIO
-77 100 10 1 $x[13] ||= sub {
+64 100 10 1 $_ || 'qqq'
+65 100 10 1 $_ || []
+67 *** 50 11 0 $y || 0
+68 *** 50 11 0 $y || undef
+69 *** 50 0 11 $z || 0
+71 *** 50 11 0 $p ||= $y
+72 *** 50 11 0 $p ||= $z
+73 100 10 1 $x[6] ||= $y
+74 *** 50 0 11 $x[7] ||= $z
+75 100 10 1 $x[8] ||= 1
+76 100 10 1 $x[9] ||= {}
+77 100 10 1 $x[10] ||= \('foo')
+78 100 10 1 $x[11] ||= \$y
+79 100 10 1 $x[12] ||= \*STDIO
+80 100 10 1 $x[13] ||= sub {
1;
}
-78 100 10 1 $x[14] ||= *foo{'SCALAR'}
-79 *** 50 0 11 $x[15] ||= *STDIO{'IO'}
-80 100 10 1 $x[16] ||= bless({}, 'XXX')
-81 100 10 1 $x[17] ||= "blah\n"
+81 100 10 1 $x[14] ||= *foo{'SCALAR'}
+82 *** 50 0 11 $x[15] ||= *STDIO{'IO'}
+83 100 10 1 $x[16] ||= bless({}, 'XXX')
+84 100 10 1 $x[17] ||= "blah\n"
or 3 conditions
line err % l !l&&r !l&&!r expr
----- --- ------ ------ ------ ------ ----
-38 *** 33 11 0 0 $y or $x[0]++
-59 *** 33 11 0 0 $y || $z
-60 *** 33 0 11 0 $z || $y
+41 *** 33 11 0 0 $y or $x[0]++
+62 *** 33 11 0 0 $y || $z
+63 *** 33 0 11 0 $z || $y
Covered Subroutines
-------------------
Subroutine Count Location
---------- ----- ----------------
-BEGIN 1 tests/cond_or:10
-BEGIN 1 tests/cond_or:11
-BEGIN 1 tests/cond_or:23
+BEGIN 1 tests/cond_or:13
+BEGIN 1 tests/cond_or:14
+BEGIN 1 tests/cond_or:26
Uncovered Subroutines
---------------------
Subroutine Count Location
---------- ----- ----------------
-__ANON__ 0 tests/cond_or:77
+__ANON__ 0 tests/cond_or:80
View
229 test_output/cover/cond_or.5.008001
@@ -27,108 +27,111 @@ line err stmt bran cond sub code
7 # The latest version of this software should be available from my homepage:
8 # http://www.pjcj.net
9
-10 1 1 use strict;
+10 # __COVER__ skip_test $] < 5.008 || $^O eq "cygwin"
+11 # __COVER__ skip_reason Busted on 5.6 and cygwin
+12
+13 1 1 use strict;
1
1
-11 1 1 use warnings;
+14 1 1 use warnings;
1
1
-12
-13 1 my @x;
-14
-15 1 my $y = 1;
-16 1 my $z = 0;
-17 1 $::foo = 17;
-18
-19 *** 1 50 if ($] >= 5.009)
-20 {
-21 *** 0 $ENV{PATH} = "/bin";
-22 *** 0 system "pwd";
-23 1 1 use lib "tests";
+15
+16 1 my @x;
+17
+18 1 my $y = 1;
+19 1 my $z = 0;
+20 1 $::foo = 17;
+21
+22 *** 1 50 if ($] >= 5.009)
+23 {
+24 *** 0 $ENV{PATH} = "/bin";
+25 *** 0 system "pwd";
+26 1 1 use lib "tests";
1
1
-24 *** 0 my $file = "cond_or.pl";
-25 *** 0 0 unless (my $return = do $file)
-26 {
-27 *** 0 0 die "couldn't parse $file: $@" if $@;
-28 *** 0 0 die "couldn't do $file: $!" unless defined $return;
-29 *** 0 0 die "couldn't run $file" unless $return;
-30 }
-31 }
-32
-33 1 for (0 .. 10)
-34 {
-35 *** 11 50 $y ||
-36 $x[1]++;
-37
-38 *** 11 50 33 $y ||
-39 $x[0]++ ||
-40 $x[1]++;
-41
-42 *** 11 50 $x[2]++
-43 unless $z;
+27 *** 0 my $file = "cond_or.pl";
+28 *** 0 0 unless (my $return = do $file)
+29 {
+30 *** 0 0 die "couldn't parse $file: $@" if $@;
+31 *** 0 0 die "couldn't do $file: $!" unless defined $return;
+32 *** 0 0 die "couldn't run $file" unless $return;
+33 }
+34 }
+35
+36 1 for (0 .. 10)
+37 {
+38 *** 11 50 $y ||
+39 $x[1]++;
+40
+41 *** 11 50 33 $y ||
+42 $x[0]++ ||
+43 $x[1]++;
44
-45 11 for (0 .. 2)
-46 {
-47 33 $x[3]++;
-48 }
-49
-50 *** 11 50 if ($z)
-51 {
-52 *** 0 $x[4]++;
-53 }
-54 else
-55 {
-56 11 $x[5]++;
-57 }
-58
-59 *** 11 33 my $p = $y || $z;
-60 *** 11 33 my $q = $z || $y;
-61 11 100 my $r = $_ || "qqq";
-62 11 100 my $s = $_ || [];
-63 11 my $t = $y | $z;
-64 *** 11 50 my $u = $y || 0;
-65 *** 11 50 my $v = $y || undef;
-66 *** 11 50 my $w = $z || 0;
-67
-68 *** 11 50 $p ||= $y;
-69 *** 11 50 $p ||= $z;
-70 11 100 $x[ 6] ||= $y;
-71 *** 11 50 $x[ 7] ||= $z;
-72 11 100 $x[ 8] ||= 1;
-73 11 100 $x[ 9] ||= {};
-74 11 100 $x[10] ||= \"foo";
-75 11 100 $x[11] ||= \$y;
-76 11 100 $x[12] ||= \*STDIO;
-77 *** 11 100 0 $x[13] ||= sub { 1 };
+45 *** 11 50 $x[2]++
+46 unless $z;
+47
+48 11 for (0 .. 2)
+49 {
+50 33 $x[3]++;
+51 }
+52
+53 *** 11 50 if ($z)
+54 {
+55 *** 0 $x[4]++;
+56 }
+57 else
+58 {
+59 11 $x[5]++;
+60 }
+61
+62 *** 11 33 my $p = $y || $z;
+63 *** 11 33 my $q = $z || $y;
+64 11 100 my $r = $_ || "qqq";
+65 11 100 my $s = $_ || [];
+66 11 my $t = $y | $z;
+67 *** 11 50 my $u = $y || 0;
+68 *** 11 50 my $v = $y || undef;
+69 *** 11 50 my $w = $z || 0;
+70
+71 *** 11 50 $p ||= $y;
+72 *** 11 50 $p ||= $z;
+73 11 100 $x[ 6] ||= $y;
+74 *** 11 50 $x[ 7] ||= $z;
+75 11 100 $x[ 8] ||= 1;
+76 11 100 $x[ 9] ||= {};
+77 11 100 $x[10] ||= \"foo";
+78 11 100 $x[11] ||= \$y;
+79 11 100 $x[12] ||= \*STDIO;
+80 *** 11 100 0 $x[13] ||= sub { 1 };
*** 0
-78 11 100 $x[14] ||= *::foo{SCALAR};
-79 *** 11 50 $x[15] ||= *STDIO{IO};
-80 11 100 $x[16] ||= bless {}, "XXX";
-81 11 100 $x[17] ||= <<"EOD";
-82 blah
-83 EOD
-84 *** 11 50 cond_dor(\@x) if exists &cond_dor;
-85 }
-86
-87 # print join(", ", @x), "\n";
+81 11 100 $x[14] ||= *::foo{SCALAR};
+82 *** 11 50 $x[15] ||= *STDIO{IO};
+83 11 100 $x[16] ||= bless {}, "XXX";
+84 11 100 $x[17] ||= <<"EOD";
+85 blah
+86 EOD
+87 *** 11 50 cond_dor(\@x) if exists &cond_dor;
+88 }
+89
+90 # print join(", ", @x), "\n";
Branches
--------
line err % true false branch
----- --- ------ ------ ------ ------
-19 *** 50 0 1 if ($] >= 5.009)
-25 *** 0 0 0 unless (my $return = do $file)
-27 *** 0 0 0 if $@
-28 *** 0 0 0 unless defined $return
-29 *** 0 0 0 unless $return
-35 *** 50 0 11 unless $y
-38 *** 50 0 11 unless $y or $x[0]++
-42 *** 50 11 0 unless $z
-50 *** 50 0 11 if ($z) { }
-84 *** 50 0 11 if exists &cond_dor
+22 *** 50 0 1 if ($] >= 5.009)
+28 *** 0 0 0 unless (my $return = do $file)
+30 *** 0 0 0 if $@
+31 *** 0 0 0 unless defined $return
+32 *** 0 0 0 unless $return
+38 *** 50 0 11 unless $y
+41 *** 50 0 11 unless $y or $x[0]++
+45 *** 50 11 0 unless $z
+53 *** 50 0 11 if ($z) { }
+87 *** 50 0 11 if exists &cond_dor
Conditions
@@ -138,52 +141,52 @@ or 2 conditions
line err % l !l expr
----- --- ------ ------ ------ ----
-61 100 10 1 $_ || 'qqq'
-62 100 10 1 $_ || []
-64 *** 50 11 0 $y || 0
-65 *** 50 11 0 $y || undef
-66 *** 50 0 11 $z || 0
-68 *** 50 11 0 $p ||= $y
-69 *** 50 11 0 $p ||= $z
-70 100 10 1 $x[6] ||= $y
-71 *** 50 0 11 $x[7] ||= $z
-72 100 10 1 $x[8] ||= 1
-73 100 10 1 $x[9] ||= {}
-74 100 10 1 $x[10] ||= \'foo'
-75 100 10 1 $x[11] ||= \$y
-76 100 10 1 $x[12] ||= \*STDIO
-77 100 10 1 $x[13] ||= sub {
+64 100 10 1 $_ || 'qqq'
+65 100 10 1 $_ || []
+67 *** 50 11 0 $y || 0
+68 *** 50 11 0 $y || undef
+69 *** 50 0 11 $z || 0
+71 *** 50 11 0 $p ||= $y
+72 *** 50 11 0 $p ||= $z
+73 100 10 1 $x[6] ||= $y
+74 *** 50 0 11 $x[7] ||= $z
+75 100 10 1 $x[8] ||= 1
+76 100 10 1 $x[9] ||= {}
+77 100 10 1 $x[10] ||= \'foo'
+78 100 10 1 $x[11] ||= \$y
+79 100 10 1 $x[12] ||= \*STDIO
+80 100 10 1 $x[13] ||= sub {
1;
}
-78 100 10 1 $x[14] ||= *foo{'SCALAR'}
-79 *** 50 0 11 $x[15] ||= *STDIO{'IO'}
-80 100 10 1 $x[16] ||= bless({}, 'XXX')
-81 100 10 1 $x[17] ||= "blah\n"
+81 100 10 1 $x[14] ||= *foo{'SCALAR'}
+82 *** 50 0 11 $x[15] ||= *STDIO{'IO'}
+83 100 10 1 $x[16] ||= bless({}, 'XXX')
+84 100 10 1 $x[17] ||= "blah\n"
or 3 conditions
line err % l !l&&r !l&&!r expr
----- --- ------ ------ ------ ------ ----
-38 *** 33 11 0 0 $y or $x[0]++
-59 *** 33 11 0 0 $y || $z
-60 *** 33 0 11 0 $z || $y
+41 *** 33 11 0 0 $y or $x[0]++
+62 *** 33 11 0 0 $y || $z
+63 *** 33 0 11 0 $z || $y
Covered Subroutines
-------------------
Subroutine Count Location
---------- ----- ----------------
-BEGIN 1 tests/cond_or:10
-BEGIN 1 tests/cond_or:11
-BEGIN 1 tests/cond_or:23
+BEGIN 1 tests/cond_or:13
+BEGIN 1 tests/cond_or:14
+BEGIN 1 tests/cond_or:26
Uncovered Subroutines
---------------------
Subroutine Count Location
---------- ----- ----------------
-__ANON__ 0 tests/cond_or:77
+__ANON__ 0 tests/cond_or:80
View
170 test_output/cover/cond_or.5.009005
@@ -1,170 +0,0 @@
-Reading database from ...
-
-
------------------------------------------- ------ ------ ------ ------ ------
-File stmt bran cond sub total
------------------------------------------- ------ ------ ------ ------ ------
-tests/cond_or 95.5 50.0 72.3 66.7 79.8
-Total 95.5 50.0 72.3 66.7 79.8
------------------------------------------- ------ ------ ------ ------ ------
-
-
-Run: ...
-Perl version: ...
-OS: ...
-Start: ...
-Finish: ...
-
-tests/cond_or
-
-line err stmt bran cond sub code
-1 #!/usr/bin/perl
-2
-3 # Copyright 2002-2010, Paul Johnson (pjcj@cpan.org)
-4
-5 # This software is free. It is licensed under the same terms as Perl itself.
-6
-7 # The latest version of this software should be available from my homepage:
-8 # http://www.pjcj.net
-9
-10 1 1 use strict;
- 1
- 1
-11 1 1 use warnings;
- 1
- 1
-12
-13 1 my @x;
-14
-15 1 my $y = 1;
-16 1 my $z = 0;
-17 1 $::foo = 17;
-18
-19 1 for (0 .. 10)
-20 {
-21 *** 11 50 $y ||
-22 $x[1]++;
-23
-24 *** 11 50 33 $y ||
-25 $x[0]++ ||
-26 $x[1]++;
-27
-28 *** 11 50 $x[2]++
-29 unless $z;
-30
-31 11 for (0 .. 2)
-32 {
-33 33 $x[3]++;
-34 }
-35
-36 *** 11 50 if ($z)
-37 {
-38 *** 0 $x[4]++;
-39 }
-40 else
-41 {
-42 11 $x[5]++;
-43 }
-44
-45 *** 11 33 my $p = $y || $z;
-46 *** 11 33 my $q = $z || $y;
-47 11 100 my $r = $_ || "qqq";
-48 11 100 my $s = $_ || [];
-49 11 my $t = $y | $z;
-50 *** 11 50 my $u = $y || 0;
-51 *** 11 50 my $v = $y || undef;
-52 *** 11 50 my $w = $z || 0;
-53
-54 *** 11 50 $p ||= $y;
-55 *** 11 50 $p ||= $z;
-56 11 100 $x[ 6] ||= $y;
-57 *** 11 50 $x[ 7] ||= $z;
-58 11 100 $x[ 8] ||= 1;
-59 11 100 $x[ 9] ||= {};
-60 11 100 $x[10] ||= \"foo";
-61 11 100 $x[11] ||= \$y;
-62 11 100 $x[12] ||= \*STDIO;
-63 *** 11 100 0 $x[13] ||= sub { 1 };
- *** 0
-64 11 100 $x[14] ||= *::foo{SCALAR};
-65 *** 11 50 $x[15] ||= *STDIO{IO};
-66 11 100 $x[16] ||= bless {}, "XXX";
-67 11 100 $x[17] ||= <<"EOD";
-68 blah
-69 EOD
-70 *** 11 50 if ($] >= 5.009)
-71 {
-72 11 eval '$x[18] //= 0';
-73 }
-74 }
-75
-76 # print join(", ", @x), "\n";
-
-
-Branches
---------
-
-line err % true false branch
------ --- ------ ------ ------ ------
-21 *** 50 0 11 unless $y
-24 *** 50 0 11 unless $y or $x[0]++
-28 *** 50 11 0 unless $z
-36 *** 50 0 11 if ($z) { }
-70 *** 50 11 0 if ($] >= 5.009)
-
-
-Conditions
-----------
-
-or 2 conditions
-
-line err % l !l expr
------ --- ------ ------ ------ ----
-47 100 10 1 $_ || 'qqq'
-48 100 10 1 $_ || []
-50 *** 50 11 0 $y || 0
-51 *** 50 11 0 $y || undef
-52 *** 50 0 11 $z || 0
-54 *** 50 11 0 $p ||= $y
-55 *** 50 11 0 $p ||= $z
-56 100 10 1 $x[6] ||= $y
-57 *** 50 0 11 $x[7] ||= $z
-58 100 10 1 $x[8] ||= 1
-59 100 10 1 $x[9] ||= {}
-60 100 10 1 $x[10] ||= \'foo'
-61 100 10 1 $x[11] ||= \$y
-62 100 10 1 $x[12] ||= \*STDIO
-63 100 10 1 $x[13] ||= sub {
- 1;
-}
-
-64 100 10 1 $x[14] ||= *foo{'SCALAR'}
-65 *** 50 0 11 $x[15] ||= *STDIO{'IO'}
-66 100 10 1 $x[16] ||= bless({}, 'XXX')
-67 100 10 1 $x[17] ||= "blah\n"
-
-or 3 conditions
-
-line err % l !l&&r !l&&!r expr
------ --- ------ ------ ------ ------ ----
-24 *** 33 11 0 0 $y or $x[0]++
-45 *** 33 11 0 0 $y || $z
-46 *** 33 0 11 0 $z || $y
-
-
-Covered Subroutines
--------------------
-
-Subroutine Count Location
----------- ----- ----------------
-BEGIN 1 tests/cond_or:10
-BEGIN 1 tests/cond_or:11
-
-Uncovered Subroutines
----------------------
-
-Subroutine Count Location
----------- ----- ----------------
-__ANON__ 0 tests/cond_or:63
-
-
View
229 test_output/cover/cond_or.5.010000
@@ -28,108 +28,111 @@ line err stmt bran cond sub code
7 # The latest version of this software should be available from my homepage:
8 # http://www.pjcj.net
9
-10 1 1 use strict;
+10 # __COVER__ skip_test $] < 5.008 || $^O eq "cygwin"
+11 # __COVER__ skip_reason Busted on 5.6 and cygwin
+12
+13 1 1 use strict;
1
1
-11 1 1 use warnings;
+14 1 1 use warnings;
1
1
-12
-13 1 my @x;
-14
-15 1 my $y = 1;
-16 1 my $z = 0;
-17 1 $::foo = 17;
-18
-19 *** 1 50 if ($] >= 5.009)
-20 {
-21 1 $ENV{PATH} = "/bin";
-22 1 system "pwd";
-23 1 1 use lib "tests";
+15
+16 1 my @x;
+17
+18 1 my $y = 1;
+19 1 my $z = 0;
+20 1 $::foo = 17;
+21
+22 *** 1 50 if ($] >= 5.009)
+23 {
+24 1 $ENV{PATH} = "/bin";
+25 1 system "pwd";
+26 1 1 use lib "tests";
1
1
-24 1 my $file = "cond_or.pl";
-25 *** 1 50 unless (my $return = do $file)
-26 {
-27 *** 0 0 die "couldn't parse $file: $@" if $@;
-28 *** 0 0 die "couldn't do $file: $!" unless defined $return;
-29 *** 0 0 die "couldn't run $file" unless $return;
-30 }
-31 }
-32
-33 1 for (0 .. 10)
-34 {
-35 *** 11 50 $y ||
-36 $x[1]++;
-37
-38 *** 11 50 33 $y ||
-39 $x[0]++ ||
-40 $x[1]++;
-41
-42 *** 11 50 $x[2]++
-43 unless $z;
+27 1 my $file = "cond_or.pl";
+28 *** 1 50 unless (my $return = do $file)
+29 {
+30 *** 0 0 die "couldn't parse $file: $@" if $@;
+31 *** 0 0 die "couldn't do $file: $!" unless defined $return;
+32 *** 0 0 die "couldn't run $file" unless $return;
+33 }
+34 }
+35
+36 1 for (0 .. 10)
+37 {
+38 *** 11 50 $y ||
+39 $x[1]++;
+40
+41 *** 11 50 33 $y ||
+42 $x[0]++ ||
+43 $x[1]++;
44
-45 11 for (0 .. 2)
-46 {
-47 33 $x[3]++;
-48 }
-49
-50 *** 11 50 if ($z)
-51 {
-52 *** 0 $x[4]++;
-53 }
-54 else
-55 {
-56 11 $x[5]++;
-57 }
-58
-59 *** 11 33 my $p = $y || $z;
-60 *** 11 33 my $q = $z || $y;
-61 11 100 my $r = $_ || "qqq";
-62 11 100 my $s = $_ || [];
-63 11 my $t = $y | $z;
-64 *** 11 50 my $u = $y || 0;
-65 *** 11 50 my $v = $y || undef;
-66 *** 11 50 my $w = $z || 0;
-67
-68 *** 11 50 $p ||= $y;
-69 *** 11 50 $p ||= $z;
-70 11 100 $x[ 6] ||= $y;
-71 *** 11 50 $x[ 7] ||= $z;
-72 11 100 $x[ 8] ||= 1;
-73 11 100 $x[ 9] ||= {};
-74 11 100 $x[10] ||= \"foo";
-75 11 100 $x[11] ||= \$y;
-76 11 100 $x[12] ||= \*STDIO;
-77 *** 11 100 0 $x[13] ||= sub { 1 };
+45 *** 11 50 $x[2]++
+46 unless $z;
+47
+48 11 for (0 .. 2)
+49 {
+50 33 $x[3]++;
+51 }
+52
+53 *** 11 50 if ($z)
+54 {
+55 *** 0 $x[4]++;
+56 }
+57 else
+58 {
+59 11 $x[5]++;
+60 }
+61
+62 *** 11 33 my $p = $y || $z;
+63 *** 11 33 my $q = $z || $y;
+64 11 100 my $r = $_ || "qqq";
+65 11 100 my $s = $_ || [];
+66 11 my $t = $y | $z;
+67 *** 11 50 my $u = $y || 0;
+68 *** 11 50 my $v = $y || undef;
+69 *** 11 50 my $w = $z || 0;
+70
+71 *** 11 50 $p ||= $y;
+72 *** 11 50 $p ||= $z;
+73 11 100 $x[ 6] ||= $y;
+74 *** 11 50 $x[ 7] ||= $z;
+75 11 100 $x[ 8] ||= 1;
+76 11 100 $x[ 9] ||= {};
+77 11 100 $x[10] ||= \"foo";
+78 11 100 $x[11] ||= \$y;
+79 11 100 $x[12] ||= \*STDIO;
+80 *** 11 100 0 $x[13] ||= sub { 1 };
*** 0
-78 11 100 $x[14] ||= *::foo{SCALAR};
-79 *** 11 50 $x[15] ||= *STDIO{IO};
-80 11 100 $x[16] ||= bless {}, "XXX";
-81 11 100 $x[17] ||= <<"EOD";
-82 blah
-83 EOD
-84 *** 11 50 cond_dor(\@x) if exists &cond_dor;
-85 }
-86
-87 # print join(", ", @x), "\n";
+81 11 100 $x[14] ||= *::foo{SCALAR};
+82 *** 11 50 $x[15] ||= *STDIO{IO};
+83 11 100 $x[16] ||= bless {}, "XXX";
+84 11 100 $x[17] ||= <<"EOD";
+85 blah
+86 EOD
+87 *** 11 50 cond_dor(\@x) if exists &cond_dor;
+88 }
+89
+90 # print join(", ", @x), "\n";
Branches
--------
line err % true false branch
----- --- ------ ------ ------ ------
-19 *** 50 1 0 if ($] >= 5.009)
-25 *** 50 0 1 unless (my $return = do $file)
-27 *** 0 0 0 if $@
-28 *** 0 0 0 unless defined $return
-29 *** 0 0 0 unless $return
-35 *** 50 0 11 unless $y
-38 *** 50 0 11 unless $y or $x[0]++
-42 *** 50 11 0 unless $z
-50 *** 50 0 11 if ($z) { }
-84 *** 50 11 0 if exists &cond_dor
+22 *** 50 1 0 if ($] >= 5.009)
+28 *** 50 0 1 unless (my $return = do $file)
+30 *** 0 0 0 if $@
+31 *** 0 0 0 unless defined $return
+32 *** 0 0 0 unless $return
+38 *** 50 0 11 unless $y
+41 *** 50 0 11 unless $y or $x[0]++
+45 *** 50 11 0 unless $z
+53 *** 50 0 11 if ($z) { }
+87 *** 50 11 0 if exists &cond_dor
Conditions
@@ -139,53 +142,53 @@ or 2 conditions
line err % l !l expr
----- --- ------ ------ ------ ----
-61 100 10 1 $_ || 'qqq'
-62 100 10 1 $_ || []
-64 *** 50 11 0 $y || 0
-65 *** 50 11 0 $y || undef
-66 *** 50 0 11 $z || 0
-68 *** 50 11 0 $p ||= $y
-69 *** 50 11 0 $p ||= $z
-70 100 10 1 $x[6] ||= $y
-71 *** 50 0 11 $x[7] ||= $z
-72 100 10 1 $x[8] ||= 1
-73 100 10 1 $x[9] ||= {}
-74 100 10 1 $x[10] ||= \'foo'
-75 100 10 1 $x[11] ||= \$y
-76 100 10 1 $x[12] ||= \*STDIO
-77 100 10 1 $x[13] ||= sub {
+64 100 10 1 $_ || 'qqq'
+65 100 10 1 $_ || []
+67 *** 50 11 0 $y || 0
+68 *** 50 11 0 $y || undef
+69 *** 50 0 11 $z || 0
+71 *** 50 11 0 $p ||= $y
+72 *** 50 11 0 $p ||= $z
+73 100 10 1 $x[6] ||= $y
+74 *** 50 0 11 $x[7] ||= $z
+75 100 10 1 $x[8] ||= 1
+76 100 10 1 $x[9] ||= {}
+77 100 10 1 $x[10] ||= \'foo'
+78 100 10 1 $x[11] ||= \$y
+79 100 10 1 $x[12] ||= \*STDIO
+80 100 10 1 $x[13] ||= sub {
1;
}
-78 100 10 1 $x[14] ||= *foo{'SCALAR'}
-79 *** 50 0 11 $x[15] ||= *STDIO{'IO'}
-80 100 10 1 $x[16] ||= bless({}, 'XXX')
-81 100 10 1 $x[17] ||= "blah\n"
+81 100 10 1 $x[14] ||= *foo{'SCALAR'}
+82 *** 50 0 11 $x[15] ||= *STDIO{'IO'}
+83 100 10 1 $x[16] ||= bless({}, 'XXX')
+84 100 10 1 $x[17] ||= "blah\n"
or 3 conditions
line err % l !l&&r !l&&!r expr
----- --- ------ ------ ------ ------ ----
-38 *** 33 11 0 0 $y or $x[0]++
-59 *** 33 11 0 0 $y || $z
-60 *** 33 0 11 0 $z || $y
+41 *** 33 11 0 0 $y or $x[0]++
+62 *** 33 11 0 0 $y || $z
+63 *** 33 0 11 0 $z || $y
Covered Subroutines
-------------------
Subroutine Count Location
---------- ----- ----------------
-BEGIN 1 tests/cond_or:10
-BEGIN 1 tests/cond_or:11
-BEGIN 1 tests/cond_or:23
+BEGIN 1 tests/cond_or:13
+BEGIN 1 tests/cond_or:14
+BEGIN 1 tests/cond_or:26
Uncovered Subroutines
---------------------
Subroutine Count Location
---------- ----- ----------------
-__ANON__ 0 tests/cond_or:77
+__ANON__ 0 tests/cond_or:80
tests/cond_or.pl
View
91 test_output/cover/eval1.5.006001
@@ -27,69 +27,72 @@ line err stmt bran cond sub code
7 # The latest version of this software should be available from my homepage:
8 # http://www.pjcj.net
9
-10 use strict;
-11 use warnings;
+10 # __COVER__ skip_test $] == 5.010
+11 # __COVER__ skip_reason One test fails only under make test on 5.10.0 unhreaded
12
-13 use lib -d "t" ? "t" : "..";
-14
-15 1 my $x;
-16
-17 1 3 eval <<'EOS';
+13 use strict;
+14 use warnings;
+15
+16 use lib -d "t" ? "t" : "..";
+17
+18 1 my $x;
+19
+20 1 3 eval <<'EOS';
3
3
-18 sub e
-19 {
-20 $x++;
-21 $x
-22 }
-23 EOS
-24
-25 1 2 eval <<'EOS';
+21 sub e
+22 {
+23 $x++;
+24 $x
+25 }
+26 EOS
+27
+28 1 2 eval <<'EOS';
*** 2 0
2 3
*** 0
3
-26 sub f
-27 {
-28 $x++;
-29 $x
-30 }
-31
-32 sub g
-33 {
-34 $x++;
-35 }
-36
-37 sub h
-38 {
-39 $x++;
-40 }
-41 EOS
-42
-43 1 e();
-44 1 e();
-45 1 e();
-46 1 f();
-47 1 f();
-48 1 h();
-49 1 h();
-50 1 h();
+29 sub f
+30 {
+31 $x++;
+32 $x
+33 }
+34
+35 sub g
+36 {
+37 $x++;
+38 }
+39
+40 sub h
+41 {
+42 $x++;
+43 }
+44 EOS
+45
+46 1 e();
+47 1 e();
+48 1 e();
+49 1 f();
+50 1 f();
+51 1 h();
+52 1 h();
+53 1 h();
Covered Subroutines
-------------------
Subroutine Count Location
---------- ----- --------------
-e 3 tests/eval1:17
-f 2 tests/eval1:25
-h 3 tests/eval1:25
+e 3 tests/eval1:20
+f 2 tests/eval1:28
+h 3 tests/eval1:28
Uncovered Subroutines
---------------------
Subroutine Count Location
---------- ----- --------------
-g 0 tests/eval1:25
+g 0 tests/eval1:28
View
99 test_output/cover/eval1.5.008
@@ -27,86 +27,89 @@ line err stmt bran cond sub code
7 # The latest version of this software should be available from my homepage:
8 # http://www.pjcj.net
9
-10 1 1 use strict;
+10 # __COVER__ skip_test $] == 5.010
+11 # __COVER__ skip_reason One test fails only under make test on 5.10.0 unhreaded
+12
+13 1 1 use strict;
1
1
-11 1 1 use warnings;
+14 1 1 use warnings;
1
1
-12
-13 *** 1 50 1 use lib -d "t" ? "t" : "..";
+15
+16 *** 1 50 1 use lib -d "t" ? "t" : "..";
1
1
-14
-15 1 my $x;
-16
-17 1 3 eval <<'EOS';
+17
+18 1 my $x;
+19
+20 1 3 eval <<'EOS';
3
3
-18 sub e
-19 {
-20 $x++;
-21 $x
-22 }
-23 EOS
-24
-25 1 2 eval <<'EOS';
+21 sub e
+22 {
+23 $x++;
+24 $x
+25 }
+26 EOS
+27
+28 1 2 eval <<'EOS';
*** 2 0
2 3
*** 0
3
-26 sub f
-27 {
-28 $x++;
-29 $x
-30 }
-31
-32 sub g
-33 {
-34 $x++;
-35 }
-36
-37 sub h
-38 {
-39 $x++;
-40 }
-41 EOS
-42
-43 1 e();
-44 1 e();
-45 1 e();
-46 1 f();
-47 1 f();
-48 1 h();
-49 1 h();
-50 1 h();
+29 sub f
+30 {
+31 $x++;
+32 $x
+33 }
+34
+35 sub g
+36 {
+37 $x++;
+38 }
+39
+40 sub h
+41 {
+42 $x++;
+43 }
+44 EOS
+45
+46 1 e();
+47 1 e();
+48 1 e();
+49 1 f();
+50 1 f();
+51 1 h();
+52 1 h();
+53 1 h();
Branches
--------
line err % true false branch
----- --- ------ ------ ------ ------
-13 *** 50 1 0 -d 't' ? :
+16 *** 50 1 0 -d 't' ? :
Covered Subroutines
-------------------
Subroutine Count Location
---------- ----- --------------
-BEGIN 1 tests/eval1:10
-BEGIN 1 tests/eval1:11
BEGIN 1 tests/eval1:13
-e 3 tests/eval1:17
-f 2 tests/eval1:25
-h 3 tests/eval1:25
+BEGIN 1 tests/eval1:14
+BEGIN 1 tests/eval1:16
+e 3 tests/eval1:20
+f 2 tests/eval1:28
+h 3 tests/eval1:28
Uncovered Subroutines
---------------------
Subroutine Count Location
---------- ----- --------------
-g 0 tests/eval1:25
+g 0 tests/eval1:28
View
0 test_output/cover/inc_sub.5.009005 → test_output/cover/inc_sub.5.010000
File renamed without changes.
View
1 test_output/cover/module_relative.5.006001
@@ -1,3 +1,4 @@
+Devel::Cover: Can't find digest for ../../Module_import.pm
Reading database from ...
View
0 test_output/cover/special_blocks.5.009005 → test_output/cover/special_blocks.5.010000
File renamed without changes.
View
3 tests/cond_or
@@ -7,6 +7,9 @@
# The latest version of this software should be available from my homepage:
# http://www.pjcj.net
+# __COVER__ skip_test $] < 5.008 || $^O eq "cygwin"
+# __COVER__ skip_reason Busted on 5.6 and cygwin
+
use strict;
use warnings;
View
3 tests/eval1
@@ -7,6 +7,9 @@
# The latest version of this software should be available from my homepage:
# http://www.pjcj.net
+# __COVER__ skip_test $] == 5.010
+# __COVER__ skip_reason One test fails only under make test on 5.10.0 unhreaded
+
use strict;
use warnings;

0 comments on commit e26e5ab

Please sign in to comment.
Something went wrong with that request. Please try again.