X-Git-Url: http://git.shadowcat.co.uk/gitweb/gitweb.cgi?a=blobdiff_plain;f=t%2F02-mx-m-s.t;h=0f1d0718861f600300230a9b31b9a7b6e14a16b9;hb=bb4a98dc91f85fd0f14f85fdcb7c620aecbd33de;hp=2dbadc7a11e2b914f797d927628d64502be500b1;hpb=27f1eb75d714bc2a7c1302a6cccbacbe0e64b108;p=gitmo%2FMooseX-AlwaysCoerce.git

diff --git a/t/02-mx-m-s.t b/t/02-mx-m-s.t
index 2dbadc7..0f1d071 100644
--- a/t/02-mx-m-s.t
+++ b/t/02-mx-m-s.t
@@ -1,4 +1,3 @@
-#!/usr/bin/env perl
 use strict;
 use warnings;
 
@@ -26,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' );
 
@@ -39,3 +37,5 @@ TODO: {
     }, undef, 'method called with coerced and uncoerced parameters' )
         or todo_skip 'is() test never ran', 1;
 }
+
+done_testing;