Mouse::Util::does_role() respects $thing->does() method

[gitmo/Mouse.git] / t / 030_roles / 003_apply_role.t

diff --git a/t/030_roles/003_apply_role.t b/t/030_roles/003_apply_role.t
old mode 100755 (executable)
new mode 100644 (file)
index 499f4f7..2910669
--- a/t/030_roles/003_apply_role.t
+++ b/t/030_roles/003_apply_role.t
@@ -4,14 +4,6 @@ use strict;
 use warnings;
 
 use Test::More;
-BEGIN{
-    if(eval{ require Class::Method::Modifiers::Fast } || eval{ require Class::Method::Modifier }){
-        plan tests => 86;
-    }
-    else{
-        plan skip_all => 'This test requires Class::Method::Modifiers(::Fast)?';
-    }
-}
 use Test::Exception;
 
 {
@@ -100,7 +92,6 @@ ok( !$foobar_class_meta->does_role('OtherRole'),
     '... the FooBarClass->meta !does_role OtherRole' );
 
 foreach my $method_name (qw(bar baz foo boo blau goo)) {
-    #use Data::Dumper; $Data::Dumper::Maxdepth=1; diag(Dumper $foo_class_meta->{methods});
     ok( $foo_class_meta->has_method($method_name),
         '... FooClass has the method ' . $method_name );
     ok( $foobar_class_meta->has_method($method_name),
@@ -192,3 +183,5 @@ foreach my $foo ( $foo, $foobar ) {
 
     is( $foo->bar, $foo2, '... got the right value for bar now' );
 }
+
+done_testing;