X-Git-Url: http://git.shadowcat.co.uk/gitweb/gitweb.cgi?a=blobdiff_plain;f=xt%2Fwarnings.t;fp=t%2Fwarnings.t;h=2e937ebe33b026956b9ee3d4adca0fa14b2f28c6;hb=cc645e6199e971648826645d44c6e4c5ae7db72f;hp=903837eb0eccc26f863791c544ddc61fb35022a5;hpb=0effd05f2e344651214c390ed5e078f46eba0dc6;p=p5sagit%2FClass-Accessor-Grouped.git

diff --git a/t/warnings.t b/xt/warnings.t
similarity index 75%
rename from t/warnings.t
rename to xt/warnings.t
index 903837e..2e937eb 100644
--- a/t/warnings.t
+++ b/xt/warnings.t
@@ -1,18 +1,18 @@
 use strict;
 use warnings;
+use Test::More;
 
 BEGIN {
-  use lib 't/lib';
-  use Test::More;
-  use File::Find;
-  use File::Basename;
+  plan skip_all => 'Need untaint in newer File::Find' if $] <= 5.006;
+}
 
-  plan skip_all => 'set TEST_AUTHOR to enable this test' unless $ENV{TEST_AUTHOR};
+BEGIN {
+  eval 'use Test::Strict 0.05; 1'
+    or plan skip_all => 'Test::Strict 0.05 not installed';
+}
 
-  eval 'use Test::Strict 0.05';
-  plan skip_all => 'Test::Strict 0.05 not installed' if $@;
-  plan skip_all => 'Need untaint in newer File::Find' if $] <= 5.006;
-};
+use File::Find;
+use File::Basename;
 
 ## I hope this can go away if Test::Strict or File::Find::Rule
 ## finally run under -T. Until then, I'm on my own here. ;-)
@@ -49,4 +49,4 @@ if (scalar @files) {
 
 foreach (@files) {
    warnings_ok($_);
-};
+}