do not let warnings kill an install
Karen Etheridge [Tue, 17 Sep 2013 00:16:16 +0000 (17:16 -0700)]
Changes
t/01-basic.t
t/02-mx-m-s.t
t/03-roles.t
t/04-parameterized-roles.t

diff --git a/Changes b/Changes
index 70873f3..8724b81 100644 (file)
--- a/Changes
+++ b/Changes
@@ -3,6 +3,7 @@ Revision history for {{$dist->name}}
 {{$NEXT}}
     - fixed reference to writable git repository
     - pod coverage tests added
+    - warnings tests bypassed during installation
 
 0.18      2012-10-13 16:57:07 PDT-0700 (Karen Etheridge)
     - added missing prerequisite declaration
index fac9e5e..dab6a3f 100644 (file)
@@ -1,9 +1,9 @@
 use strict;
 use warnings;
 
-use Test::More tests => 16;
+use Test::More;
 use Test::Fatal;
-use Test::NoWarnings 1.04 ':early';
+use if $ENV{AUTHOR_TESTING}, 'Test::Warnings';
 
 {
     package MyClass;
@@ -100,3 +100,5 @@ is(
     undef,
     'set untyped class attribute',
 );
+
+done_testing;
index 6b509c0..0f1d071 100644 (file)
@@ -25,8 +25,7 @@ use Test::More;
 }
 
 use Test::Fatal;
-use Test::NoWarnings 1.04 ':early';
-plan tests => 4;
+use if $ENV{AUTHOR_TESTING}, 'Test::Warnings';
 
 ok( (my $instance = MyClass->new), 'instance' );
 
@@ -38,3 +37,5 @@ TODO: {
     }, undef, 'method called with coerced and uncoerced parameters' )
         or todo_skip 'is() test never ran', 1;
 }
+
+done_testing;
index 5647c86..39f5b87 100644 (file)
@@ -1,9 +1,9 @@
 use strict;
 use warnings;
 
-use Test::More tests => 16;
+use Test::More;
 use Test::Fatal;
-use Test::NoWarnings 1.04 ':early';
+use if $ENV{AUTHOR_TESTING}, 'Test::Warnings';
 
 {
     package MyRole;
@@ -78,3 +78,5 @@ is( exception {
     $instance->untyped_class_attr(10);
     is $instance->untyped_class_attr, 10;
 }, undef, 'set untyped class attribute' );
+
+done_testing;
index 340c16f..12f053a 100644 (file)
@@ -8,7 +8,7 @@ use Test::Requires {
 };
 
 plan tests => 12;
-use Test::NoWarnings 1.04 ':early';
+use if $ENV{AUTHOR_TESTING}, 'Test::Warnings';
 
 eval <<'EOF';
     package Role;