From: Nicholas Clark <nick@ccl4.org>
Date: Sun, 30 Aug 2009 14:59:17 +0000 (+0100)
Subject: Remove the $ENV{PERL_CORE} boilerplate from Attribute::Handler's tests.
X-Git-Url: http://git.shadowcat.co.uk/gitweb/gitweb.cgi?a=commitdiff_plain;h=64e539b637067d67babd091ef7ce730f1f61d718;p=p5sagit%2Fp5-mst-13.2.git

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
--- 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
--- 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
--- 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
--- 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
--- 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,