Skip to content

HTTPS clone URL

Subversion checkout URL

You can clone with
or
.
Download ZIP
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...
commit 78aa40d2c82d634371ccfd31163f578437a64942 1 parent 621e5b2
@pjcj authored
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 $!;
Please sign in to comment.
Something went wrong with that request. Please try again.