X-Git-Url: http://git.shadowcat.co.uk/gitweb/gitweb.cgi?a=blobdiff_plain;f=t%2F034-apply_all_roles.t;h=c2979ef88f3829b2c0001396c01d07de40b9984e;hb=66e667af8fad903adf5064bdcf5d09f719429f65;hp=b69e84f06a761ceddab30621ffa05f8fdf569d61;hpb=eab815459cfd4be951f1f44cd656e76169f7a1d6;p=gitmo%2FMouse.git

diff --git a/t/034-apply_all_roles.t b/t/034-apply_all_roles.t
index b69e84f..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 Test::Exception;
 
 {
     package FooRole;
@@ -22,7 +21,8 @@ use Test::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';