Skip to content
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...
1 parent 621e5b2 commit 78aa40d2c82d634371ccfd31163f578437a64942 @pjcj committed
View
23 test_output/cover/inc_sub.5.006001
@@ -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
View
35 test_output/cover/inc_sub.5.008
@@ -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,19 +30,20 @@ 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
@@ -50,8 +51,8 @@ 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
@@ -59,8 +60,8 @@ 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
35 test_output/cover/inc_sub.5.010000
@@ -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,19 +30,20 @@ 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
@@ -50,8 +51,8 @@ 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
@@ -59,8 +60,8 @@ 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
35 test_output/cover/inc_sub.5.013005
@@ -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,18 +29,19 @@ 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
@@ -48,8 +49,8 @@ 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
@@ -57,8 +58,8 @@ 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
35 test_output/cover/inc_sub.5.013008
@@ -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,19 +30,20 @@ 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
@@ -50,8 +51,8 @@ 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
@@ -59,8 +60,8 @@ 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
35 test_output/cover/inc_sub.5.013011
@@ -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,19 +30,20 @@ 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
@@ -50,8 +51,8 @@ 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
@@ -59,8 +60,8 @@ 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
1 tests/inc_sub
@@ -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.
Something went wrong with that request. Please try again.