Permalink
Browse files

Update inc_sub golden results.

There is something fishy going on with this test.  The subroutine is called for
each module which is loaded and the test seems to be rather susceptable to
something somewhere which is loading Tie::Hash::NamedCapture, which is what is
used to implement %- and %+.
  • Loading branch information...
pjcj committed Apr 17, 2011
1 parent 621e5b2 commit 78aa40d2c82d634371ccfd31163f578437a64942
@@ -28,16 +28,17 @@ line err stmt bran cond sub code
8 (
9 sub
10 {
-11 return unless $_[1] eq "IncSub.pm";
-12 my $fh;
-13 open $fh, "tests/IncSub.pm" or die $!;
-14 $fh
-15 }
-16 )
-17 }
-18
-19 use IncSub;
-20
-21 1 IncSub::check
+11 print map("[$_]", @_), "\n";
+12 return unless $_[1] eq "IncSub.pm";
+13 my $fh;
+14 open $fh, "tests/IncSub.pm" or die $!;
+15 $fh
+16 }
+17 )
+18 }
+19
+20 use IncSub;
+21
+22 1 IncSub::check
@@ -4,8 +4,8 @@ Reading database from ...
------------------------------------------ ------ ------ ------ ------ ------
File stmt bran cond sub total
------------------------------------------ ------ ------ ------ ------ ------
-tests/inc_sub 100.0 50.0 n/a 100.0 89.5
-Total 100.0 50.0 n/a 100.0 89.5
+tests/inc_sub 100.0 50.0 n/a 100.0 90.0
+Total 100.0 50.0 n/a 100.0 90.0
------------------------------------------ ------ ------ ------ ------ ------
@@ -30,37 +30,38 @@ line err stmt bran cond sub code
8 (
9 sub
10 {
-11 *** 1 50 return unless $_[1] eq "IncSub.pm";
-12 1 my $fh;
-13 *** 1 50 open $fh, "tests/IncSub.pm" or die $!;
-14 1 $fh
-15 }
-16 )
-17 1 1 }
-18
-19 1 1 use IncSub;
+11 1 print map("[$_]", @_), "\n";
+12 *** 1 50 return unless $_[1] eq "IncSub.pm";
+13 1 my $fh;
+14 *** 1 50 open $fh, "tests/IncSub.pm" or die $!;
+15 1 $fh
+16 }
+17 )
+18 1 1 }
+19
+20 1 1 use IncSub;
1
1
-20
-21 1 IncSub::check
+21
+22 1 IncSub::check
Branches
--------
line err % true false branch
----- --- ------ ------ ------ ------
-11 *** 50 0 1 unless $_[1] eq 'IncSub.pm'
-13 *** 50 0 1 unless open $fh, 'tests/IncSub.pm'
+12 *** 50 0 1 unless $_[1] eq 'IncSub.pm'
+14 *** 50 0 1 unless open $fh, 'tests/IncSub.pm'
Covered Subroutines
-------------------
Subroutine Count Location
---------- ----- ----------------
-BEGIN 1 tests/inc_sub:17
-BEGIN 1 tests/inc_sub:19
+BEGIN 1 tests/inc_sub:18
+BEGIN 1 tests/inc_sub:20
BEGIN 1 tests/inc_sub:3
@@ -4,8 +4,8 @@ Reading database from ...
------------------------------------------ ------ ------ ------ ------ ------
File stmt bran cond sub total
------------------------------------------ ------ ------ ------ ------ ------
-tests/inc_sub 100.0 75.0 n/a 100.0 94.7
-Total 100.0 75.0 n/a 100.0 94.7
+tests/inc_sub 100.0 75.0 n/a 100.0 95.0
+Total 100.0 75.0 n/a 100.0 95.0
------------------------------------------ ------ ------ ------ ------ ------
@@ -30,37 +30,38 @@ line err stmt bran cond sub code
8 (
9 sub
10 {
-11 3 100 return unless $_[1] eq "IncSub.pm";
-12 1 my $fh;
-13 *** 1 50 open $fh, "tests/IncSub.pm" or die $!;
-14 1 $fh
-15 }
-16 )
-17 1 1 }
-18
-19 1 1 use IncSub;
+11 2 print map("[$_]", @_), "\n";
+12 2 100 return unless $_[1] eq "IncSub.pm";
+13 1 my $fh;
+14 *** 1 50 open $fh, "tests/IncSub.pm" or die $!;
+15 1 $fh
+16 }
+17 )
+18 1 1 }
+19
+20 1 1 use IncSub;
1
1
-20
-21 1 IncSub::check
+21
+22 1 IncSub::check
Branches
--------
line err % true false branch
----- --- ------ ------ ------ ------
-11 100 2 1 unless $_[1] eq 'IncSub.pm'
-13 *** 50 0 1 unless open $fh, 'tests/IncSub.pm'
+12 100 1 1 unless $_[1] eq 'IncSub.pm'
+14 *** 50 0 1 unless open $fh, 'tests/IncSub.pm'
Covered Subroutines
-------------------
Subroutine Count Location
---------- ----- ----------------
-BEGIN 1 tests/inc_sub:17
-BEGIN 1 tests/inc_sub:19
+BEGIN 1 tests/inc_sub:18
+BEGIN 1 tests/inc_sub:20
BEGIN 1 tests/inc_sub:3
@@ -4,8 +4,8 @@ Reading database from ...
------------------------------------------ ------ ------ ------ ------ ------
File stmt bran cond sub total
------------------------------------------ ------ ------ ------ ------ ------
-tests/inc_sub 100.0 75.0 n/a 100.0 94.1
-Total 100.0 75.0 n/a 100.0 94.1
+tests/inc_sub 100.0 75.0 n/a 100.0 94.4
+Total 100.0 75.0 n/a 100.0 94.4
------------------------------------------ ------ ------ ------ ------ ------
@@ -29,36 +29,37 @@ line err stmt bran cond sub code
8 (
9 sub
10 {
-11 3 100 return unless $_[1] eq "IncSub.pm";
-12 1 my $fh;
-13 *** 1 50 open $fh, "tests/IncSub.pm" or die $!;
-14 1 $fh
-15 }
-16 )
-17 1 1 }
-18
-19 1 1 use IncSub;
+11 2 print map("[$_]", @_), "\n";
+12 2 100 return unless $_[1] eq "IncSub.pm";
+13 1 my $fh;
+14 *** 1 50 open $fh, "tests/IncSub.pm" or die $!;
+15 1 $fh
+16 }
+17 )
+18 1 1 }
+19
+20 1 1 use IncSub;
1
-20
-21 1 IncSub::check
+21
+22 1 IncSub::check
Branches
--------
line err % true false branch
----- --- ------ ------ ------ ------
-11 100 2 1 unless $_[1] eq 'IncSub.pm'
-13 *** 50 0 1 unless open $fh, 'tests/IncSub.pm'
+12 100 1 1 unless $_[1] eq 'IncSub.pm'
+14 *** 50 0 1 unless open $fh, 'tests/IncSub.pm'
Covered Subroutines
-------------------
Subroutine Count Location
---------- ----- ----------------
-BEGIN 1 tests/inc_sub:17
-BEGIN 1 tests/inc_sub:19
+BEGIN 1 tests/inc_sub:18
+BEGIN 1 tests/inc_sub:20
BEGIN 1 tests/inc_sub:3
@@ -4,8 +4,8 @@ Reading database from ...
------------------------------------------ ------ ------ ------ ------ ------
File stmt bran cond sub total
------------------------------------------ ------ ------ ------ ------ ------
-tests/inc_sub 100.0 75.0 n/a 100.0 94.7
-Total 100.0 75.0 n/a 100.0 94.7
+tests/inc_sub 100.0 75.0 n/a 100.0 95.0
+Total 100.0 75.0 n/a 100.0 95.0
------------------------------------------ ------ ------ ------ ------ ------
@@ -30,37 +30,38 @@ line err stmt bran cond sub code
8 (
9 sub
10 {
-11 3 100 return unless $_[1] eq "IncSub.pm";
-12 1 my $fh;
-13 *** 1 50 open $fh, "tests/IncSub.pm" or die $!;
-14 1 $fh
-15 }
-16 )
-17 1 1 }
-18
-19 1 1 use IncSub;
+11 2 print map("[$_]", @_), "\n";
+12 2 100 return unless $_[1] eq "IncSub.pm";
+13 1 my $fh;
+14 *** 1 50 open $fh, "tests/IncSub.pm" or die $!;
+15 1 $fh
+16 }
+17 )
+18 1 1 }
+19
+20 1 1 use IncSub;
1
1
-20
-21 1 IncSub::check
+21
+22 1 IncSub::check
Branches
--------
line err % true false branch
----- --- ------ ------ ------ ------
-11 100 2 1 unless $_[1] eq 'IncSub.pm'
-13 *** 50 0 1 unless open $fh, 'tests/IncSub.pm'
+12 100 1 1 unless $_[1] eq 'IncSub.pm'
+14 *** 50 0 1 unless open $fh, 'tests/IncSub.pm'
Covered Subroutines
-------------------
Subroutine Count Location
---------- ----- ----------------
-BEGIN 1 tests/inc_sub:17
-BEGIN 1 tests/inc_sub:19
+BEGIN 1 tests/inc_sub:18
+BEGIN 1 tests/inc_sub:20
BEGIN 1 tests/inc_sub:3
@@ -4,8 +4,8 @@ Reading database from ...
------------------------------------------ ------ ------ ------ ------ ------
File stmt bran cond sub total
------------------------------------------ ------ ------ ------ ------ ------
-tests/inc_sub 100.0 75.0 n/a 100.0 94.7
-Total 100.0 75.0 n/a 100.0 94.7
+tests/inc_sub 100.0 75.0 n/a 100.0 95.0
+Total 100.0 75.0 n/a 100.0 95.0
------------------------------------------ ------ ------ ------ ------ ------
@@ -30,37 +30,38 @@ line err stmt bran cond sub code
8 (
9 sub
10 {
-11 2 100 return unless $_[1] eq "IncSub.pm";
-12 1 my $fh;
-13 *** 1 50 open $fh, "tests/IncSub.pm" or die $!;
-14 1 $fh
-15 }
-16 )
-17 1 1 }
-18
-19 1 1 use IncSub;
+11 2 print map("[$_]", @_), "\n";
+12 2 100 return unless $_[1] eq "IncSub.pm";
+13 1 my $fh;
+14 *** 1 50 open $fh, "tests/IncSub.pm" or die $!;
+15 1 $fh
+16 }
+17 )
+18 1 1 }
+19
+20 1 1 use IncSub;
1
1
-20
-21 1 IncSub::check
+21
+22 1 IncSub::check
Branches
--------
line err % true false branch
----- --- ------ ------ ------ ------
-11 100 1 1 unless $_[1] eq 'IncSub.pm'
-13 *** 50 0 1 unless open $fh, 'tests/IncSub.pm'
+12 100 1 1 unless $_[1] eq 'IncSub.pm'
+14 *** 50 0 1 unless open $fh, 'tests/IncSub.pm'
Covered Subroutines
-------------------
Subroutine Count Location
---------- ----- ----------------
-BEGIN 1 tests/inc_sub:17
-BEGIN 1 tests/inc_sub:19
+BEGIN 1 tests/inc_sub:18
+BEGIN 1 tests/inc_sub:20
BEGIN 1 tests/inc_sub:3
View
@@ -8,6 +8,7 @@ BEGIN
(
sub
{
+ print map("[$_]", @_), "\n";
return unless $_[1] eq "IncSub.pm";
my $fh;
open $fh, "tests/IncSub.pm" or die $!;

0 comments on commit 78aa40d

Please sign in to comment.