add (author-only) warning tests

[gitmo/MooseX-Types-Common.git] / t / 04-coerce.t

diff --git a/t/04-coerce.t b/t/04-coerce.t
index 8560e6d..d44c6e4 100644 (file)
--- a/t/04-coerce.t
+++ b/t/04-coerce.t
@@ -1,6 +1,8 @@
 use strict;
 use warnings FATAL => 'all';
-use Test::More tests => 5;
+
+use Test::More;
+use if $ENV{AUTHOR_TESTING}, 'Test::Warnings';
 
 use MooseX::Types::Common::String qw(
     LowerCaseSimpleStr
@@ -17,3 +19,5 @@ is(to_UpperCaseStr('foo'), 'FOO', 'uppercase str' );
 is(to_LowerCaseStr('BAR'), 'bar', 'lowercase str' );
 
 is(to_NumericCode('4111-1111-1111-1111'), '4111111111111111', 'numeric code' );
+
+done_testing;