X-Git-Url: http://git.shadowcat.co.uk/gitweb/gitweb.cgi?a=blobdiff_plain;f=t%2F030_roles%2F024_role_composition_methods.t;h=0780c6f402d0fe6f574cd59c15e468684b50adc4;hb=b10dde3a27c11623547417c599ccbd4f92e42651;hp=5183245d89826ba4cd216731ab39f99b70cadb96;hpb=d4e538d9bf46d1c14d2ecfd36ac35ed541ae7ee6;p=gitmo%2FMoose.git

diff --git a/t/030_roles/024_role_composition_methods.t b/t/030_roles/024_role_composition_methods.t
index 5183245..0780c6f 100644
--- a/t/030_roles/024_role_composition_methods.t
+++ b/t/030_roles/024_role_composition_methods.t
@@ -4,7 +4,7 @@ use strict;
 use warnings;
 
 use Test::More;
-use Test::Exception;
+use Test::Fatal;
 
 use Moose::Meta::Role::Application::RoleSummation;
 use Moose::Meta::Role::Composite;
@@ -49,9 +49,9 @@ use Moose::Meta::Role::Composite;
 
     is($c->name, 'Role::Foo|Role::Bar', '... got the composite role name');
 
-    lives_ok {
+    is( exception {
         Moose::Meta::Role::Application::RoleSummation->new->apply($c);
-    } '... this succeeds as expected';
+    }, undef, '... this succeeds as expected' );
 
     is_deeply(
         [ sort $c->get_method_list ],
@@ -72,9 +72,9 @@ use Moose::Meta::Role::Composite;
 
     is($c->name, 'Role::Foo|Role::FooConflict', '... got the composite role name');
 
-    lives_ok {
+    is( exception {
         Moose::Meta::Role::Application::RoleSummation->new->apply($c);
-    } '... this succeeds as expected';
+    }, undef, '... this succeeds as expected' );
 
     is_deeply(
         [ sort $c->get_method_list ],
@@ -103,9 +103,9 @@ use Moose::Meta::Role::Composite;
 
     is($c->name, 'Role::Foo|Role::Bar|Role::FooConflict|Role::BarConflict', '... got the composite role name');
 
-    lives_ok {
+    is( exception {
         Moose::Meta::Role::Application::RoleSummation->new->apply($c);
-    } '... this succeeds as expected';
+    }, undef, '... this succeeds as expected' );
 
     is_deeply(
         [ sort $c->get_method_list ],
@@ -132,9 +132,9 @@ use Moose::Meta::Role::Composite;
 
     is($c->name, 'Role::Foo|Role::AnotherFooConflict', '... got the composite role name');
 
-    lives_ok {
+    is( exception {
         Moose::Meta::Role::Application::RoleSummation->new->apply($c);
-    } '... this succeeds as expected';
+    }, undef, '... this succeeds as expected' );
 
     is_deeply(
         [ sort $c->get_method_list ],