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

diff --git a/ext/Attribute-Handlers/t/constants.t b/ext/Attribute-Handlers/t/constants.t
index 746a87e..4e5108e 100644 (file)
--- 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 5d65e31..4357c53 100644 (file)
--- 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 e417de5..885abe0 100644 (file)
--- 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 31b24d1..5c80f82 100644 (file)
--- 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.

diff --git a/t/TEST b/t/TEST
index dc51cc5..3c16180 100755 (executable)
--- a/t/TEST
+++ b/t/TEST
@@ -24,8 +24,7 @@ my %dir_to_switch =
      );
 
 my %temp_no_core =
-    ('../ext/Attribute-Handlers' => 1,
-     '../ext/B-Debug' => 1,
+    ('../ext/B-Debug' => 1,
      '../ext/Compress-Raw-Bzip2' => 1,
      '../ext/Compress-Raw-Zlib' => 1,
      '../ext/Devel-PPPort' => 1,