X-Git-Url: http://git.shadowcat.co.uk/gitweb/gitweb.cgi?a=blobdiff_plain;f=t%2F050_metaclasses%2F021_export_with_prototype.t;h=c84f6d0140cbf71c978ca71c5f469c57b6328137;hb=be0ed15704fdad5f2d8517380a6f24687432c1dd;hp=6c8f5e25eb683b7961683c84947dbb690ea0b822;hpb=a28e50e44945358d15eb19e4688573741a319fe0;p=gitmo%2FMoose.git

diff --git a/t/050_metaclasses/021_export_with_prototype.t b/t/050_metaclasses/021_export_with_prototype.t
index 6c8f5e2..c84f6d0 100644
--- a/t/050_metaclasses/021_export_with_prototype.t
+++ b/t/050_metaclasses/021_export_with_prototype.t
@@ -3,20 +3,20 @@ package MyExporter::User;
 use MyExporter;
 
 use Test::More;
-use Test::Exception;
+use Test::Fatal;
 
-lives_and {
+ok ! exception {
     with_prototype {
         my $caller = caller(0);
         is($caller, 'MyExporter', "With_caller prototype code gets called from MyMooseX");
     };
-} "check function with prototype";
+}, "check function with prototype";
 
-lives_and {
+ok ! exception {
     as_is_prototype {
         my $caller = caller(0);
         is($caller, 'MyExporter', "As-is prototype code gets called from MyMooseX");
     };
-} "check function with prototype";
+}, "check function with prototype";
 
 done_testing;