X-Git-Url: http://git.shadowcat.co.uk/gitweb/gitweb.cgi?a=blobdiff_plain;f=t%2F034-apply_all_roles.t;h=c2979ef88f3829b2c0001396c01d07de40b9984e;hb=6cc6c673f9175314c395c60b894322e6f584d963;hp=4b0dd5c4c69bd03d5e5656624010cafde9e4279e;hpb=3118622d182add6c88792d5de3b4af047e8a7c8c;p=gitmo%2FMouse.git

diff --git a/t/034-apply_all_roles.t b/t/034-apply_all_roles.t
index 4b0dd5c..c2979ef 100644
--- a/t/034-apply_all_roles.t
+++ b/t/034-apply_all_roles.t
@@ -2,7 +2,6 @@
 use strict;
 use warnings;
 use Test::More tests => 4;
-use t::Exception;
 
 {
     package FooRole;
@@ -22,7 +21,8 @@ use t::Exception;
     no Mouse;
 }
 
-throws_ok { Mouse::Util::apply_all_roles('Baz', 'BarRole', 'FooRole') } qr{Mouse::Util only supports 'apply_all_roles' on individual roles at a time};
+eval { Mouse::Util::apply_all_roles('Baz', 'BarRole', 'FooRole') };
+ok !$@;
 
 Mouse::Util::apply_all_roles('Baz', 'BarRole');
 Mouse::Util::apply_all_roles('Baz', 'FooRole');
@@ -30,5 +30,5 @@ Mouse::Util::apply_all_roles('Baz', 'FooRole');
 my $baz = Baz->new;
 is $baz->foo, 'ok1';
 is $baz->bar, 'ok2';
-is join(",", sort $baz->meta->get_method_list), 'bar,foo';
+is join(",", sort $baz->meta->get_method_list), 'bar,foo,meta';