add with qw( Role1 Role2 ) support

[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 b69e84f..b36ea2d 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 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');