X-Git-Url: http://git.shadowcat.co.uk/gitweb/gitweb.cgi?a=blobdiff_plain;f=t%2F030_roles%2F043_conflict_many_methods.t;h=f016fb062af7673b8e0c613fe8ae5089e1d1cd60;hb=757d0de5eaf1c172e6c17a7f257c34424f05d629;hp=785d48feee9d9a5eb6d7839609b81a7cc4bea8f1;hpb=a28e50e44945358d15eb19e4688573741a319fe0;p=gitmo%2FMoose.git

diff --git a/t/030_roles/043_conflict_many_methods.t b/t/030_roles/043_conflict_many_methods.t
index 785d48f..f016fb0 100644
--- a/t/030_roles/043_conflict_many_methods.t
+++ b/t/030_roles/043_conflict_many_methods.t
@@ -3,7 +3,7 @@ use strict;
 use warnings;
 
 use Test::More;
-use Test::Exception;
+use Test::Fatal;
 
 {
     package Bomb;
@@ -33,16 +33,16 @@ use Test::Exception;
     package PracticalJoke;
     use Moose;
 
-    ::throws_ok {
+    ::like( ::exception {
         with 'Bomb', 'Spouse';
-    } qr/Due to method name conflicts in roles 'Bomb' and 'Spouse', the methods 'explode' and 'fuse' must be implemented or excluded by 'PracticalJoke'/;
+    }, qr/Due to method name conflicts in roles 'Bomb' and 'Spouse', the methods 'explode' and 'fuse' must be implemented or excluded by 'PracticalJoke'/ );
 
-    ::throws_ok {
+    ::like( ::exception {
         with (
             'Bomb', 'Spouse',
             'Caninish', 'Treeve',
         );
-    } qr/Due to a method name conflict in roles 'Caninish' and 'Treeve', the method 'bark' must be implemented or excluded by 'PracticalJoke'/;
+    }, qr/Due to a method name conflict in roles 'Caninish' and 'Treeve', the method 'bark' must be implemented or excluded by 'PracticalJoke'/ );
 }
 
 done_testing;