Remove the $ENV{PERL_CORE} boilerplate from Attribute::Handler's tests.

4 files changed, 1 insertions, 28 deletions

diff --git a/ext/Attribute-Handlers/t/constants.t b/ext/Attribute-Handlers/t/constants.t
index 746a87e0ec..4e5108e131 100644
--- a/ext/Attribute-Handlers/t/constants.t
+++ b/ext/Attribute-Handlers/t/constants.t
@@ -1,9 +1,3 @@
-BEGIN {
-    if ($ENV{PERL_CORE}) {
-	chdir 't' if -d 't';
-	@INC = '../lib';
-    }
-}
 use strict;
 use Test::More tests => 1;
 use Attribute::Handlers;
diff --git a/ext/Attribute-Handlers/t/data_convert.t b/ext/Attribute-Handlers/t/data_convert.t
index 5d65e31714..4357c53964 100644
--- a/ext/Attribute-Handlers/t/data_convert.t
+++ b/ext/Attribute-Handlers/t/data_convert.t
@@ -2,13 +2,6 @@
 
 # Test attribute data conversion using examples from the docs
 
-BEGIN {
-    if ($ENV{PERL_CORE}) {
-        chdir 't' if -d 't';
-        @INC = '../lib';
-    }
-}
-
 use Test::More tests => 8;
 
 package LoudDecl;
diff --git a/ext/Attribute-Handlers/t/linerep.t b/ext/Attribute-Handlers/t/linerep.t
index e417de5aaa..885abe0950 100644
--- a/ext/Attribute-Handlers/t/linerep.t
+++ b/ext/Attribute-Handlers/t/linerep.t
@@ -1,12 +1,5 @@
 #!perl
 
-BEGIN {
-    if ($ENV{PERL_CORE}) {
-	chdir 't' if -d 't';
-	@INC = '../lib';
-    }
-}
-
 use Test::More tests => 18;
 use Attribute::Handlers;
 
@@ -20,7 +13,7 @@ sub Args : ATTR(CODE) {
     is( $data->[0],	'bar',		'data' );
     is( $phase,		'CHECK',	'phase' );
     is( $filename,	__FILE__,	'filename' );
-    is( $linenum,	26,		'linenum' );
+    is( $linenum,	19,		'linenum' );
 }
 
 sub foo :Args(bar) {}
diff --git a/ext/Attribute-Handlers/t/multi.t b/ext/Attribute-Handlers/t/multi.t
index 31b24d1442..5c80f82b10 100644
--- a/ext/Attribute-Handlers/t/multi.t
+++ b/ext/Attribute-Handlers/t/multi.t
@@ -1,12 +1,5 @@
 #!perl
 
-BEGIN {
-    if ($ENV{PERL_CORE}) {
-	chdir 't' if -d 't';
-	@INC = '../lib';
-    }
-}
-
 # This test file contains 57 tests.
 # You need to number them manually. Don't forget to update this line for the
 # next kind hacker.