improvement the compatibility with Moose.

[gitmo/Mouse.git] / t / 034-apply_all_roles.t

diff --git a/t/034-apply_all_roles.t b/t/034-apply_all_roles.t
index 557cd5d..c2979ef 100644 (file)
--- 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 Mouse::Util ':test';
 
 {
     package FooRole;
@@ -22,7 +21,8 @@ use Mouse::Util ':test';
     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';