From: Rafael Garcia-Suarez <rgarciasuarez@gmail.com>
Date: Mon, 25 May 2009 10:39:27 +0000 (+0200)
Subject: Skip tests that use attributes.pm under miniperl
X-Git-Url: http://git.shadowcat.co.uk/gitweb/gitweb.cgi?a=commitdiff_plain;h=98d0ccc7b44dcb24100a1c202a144a52a6991fe6;p=p5sagit%2Fp5-mst-13.2.git

Skip tests that use attributes.pm under miniperl
---

diff --git a/t/op/attrhand.t b/t/op/attrhand.t
index 8b11ac4..8c89f7f 100644
--- a/t/op/attrhand.t
+++ b/t/op/attrhand.t
@@ -1,6 +1,10 @@
 #!/usr/bin/perl -w
 
 BEGIN {
+    if ($ENV{PERL_CORE_MINITEST}) {
+	print "1..0 # skip: miniperl can't load attributes\n";
+	exit 0;
+    }
     chdir 't' if -d 't';
     @INC = '../lib';
     require './test.pl';
diff --git a/t/op/attrs.t b/t/op/attrs.t
index 5e75e50..92b5b9e 100644
--- a/t/op/attrs.t
+++ b/t/op/attrs.t
@@ -2,14 +2,18 @@
 
 # Regression tests for attributes.pm and the C< : attrs> syntax.
 
-use warnings;
-
 BEGIN {
+    if ($ENV{PERL_CORE_MINITEST}) {
+	print "1..0 # skip: miniperl can't load attributes\n";
+	exit 0;
+    }
     chdir 't' if -d 't';
     @INC = '../lib';
     require './test.pl';
 }
 
+use warnings;
+
 plan 84;
 
 $SIG{__WARN__} = sub { die @_ };