X-Git-Url: http://git.shadowcat.co.uk/gitweb/gitweb.cgi?a=blobdiff_plain;f=t%2F14_compatibility-sub-exporter.t;h=04a233dc4c95eb1e5a0ea3b2dc632bfd782eda9b;hb=f5559e1ce7a42af91a0e64915a8cb1e08958ae63;hp=f220be3187bbf5cdd1cefbe29032b93a493949d4;hpb=077ac262426e5f48cfe70fd1711ccd27971fab44;p=gitmo%2FMooseX-Types.git

diff --git a/t/14_compatibility-sub-exporter.t b/t/14_compatibility-sub-exporter.t
index f220be3..04a233d 100644
--- a/t/14_compatibility-sub-exporter.t
+++ b/t/14_compatibility-sub-exporter.t
@@ -2,18 +2,16 @@ BEGIN {
 	use strict;
 	use warnings;
 	use Test::More;
-    use Test::Exception;
     use FindBin;
     use lib "$FindBin::Bin/lib";   
     
-    eval "use Sub::Exporter";
-    plan $@
-        ? ( skip_all => "Tests require Sub::Exporter" )
-        : ( tests => 3 );
+    use Test::Requires { 'Sub::Exporter' => '0' };
 }
 
 use SubExporterCompatibility qw(MyStr something);
 	
 ok MyStr->check('aaa'), "Correctly passed";
 ok !MyStr->check([1]), "Correctly fails";
-ok something(), "Found the something method";
\ No newline at end of file
+ok something(), "Found the something method";
+
+done_testing;