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

diff --git a/t/14_compatibility-sub-exporter.t b/t/14_compatibility-sub-exporter.t
index 1a250f1..04a233d 100644
--- a/t/14_compatibility-sub-exporter.t
+++ b/t/14_compatibility-sub-exporter.t
@@ -5,10 +5,7 @@ BEGIN {
     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);
@@ -16,3 +13,5 @@ use SubExporterCompatibility qw(MyStr something);
 ok MyStr->check('aaa'), "Correctly passed";
 ok !MyStr->check([1]), "Correctly fails";
 ok something(), "Found the something method";
+
+done_testing;