add test of cross-object augmentation

[gitmo/Moose.git] / t / 030_roles / 014_more_alias_and_exclude.t

diff --git a/t/030_roles/014_more_alias_and_exclude.t b/t/030_roles/014_more_alias_and_exclude.t
index 60b3731..62d3098 100644 (file)
--- a/t/030_roles/014_more_alias_and_exclude.t
+++ b/t/030_roles/014_more_alias_and_exclude.t
@@ -3,9 +3,8 @@
 use strict;
 use warnings;
 
-use Test::More tests => 9;
-use Test::Exception;
-
+use Test::More;
+use Test::Fatal;
 
 
 {
@@ -46,12 +45,12 @@ use Test::Exception;
     package My::Class;
     use Moose;
 
-    ::lives_ok {
+    ::is( ::exception {
         with 'Foo'   => { -excludes => [qw/bar baz gorch/], -alias => { gorch => 'foo_gorch' } },
              'Bar'   => { -excludes => [qw/foo baz gorch/] },
              'Baz'   => { -excludes => [qw/foo bar gorch/], -alias => { foo => 'baz_foo', bar => 'baz_bar' } },
              'Gorch' => { -excludes => [qw/foo bar baz/] };
-    } '... everything works out all right';
+    }, undef, '... everything works out all right' );
 }
 
 my $c = My::Class->new;
@@ -66,7 +65,4 @@ is($c->foo_gorch, 'Foo::gorch', '... got the right method');
 is($c->baz_foo, 'Baz::foo', '... got the right method');
 is($c->baz_bar, 'Baz::bar', '... got the right method');
 
-
-
-
-
+done_testing;