X-Git-Url: http://git.shadowcat.co.uk/gitweb/gitweb.cgi?a=blobdiff_plain;f=t%2F030_roles%2F003_apply_role.t;h=2910669afe884376fb2dad12ee09b4647a2bad95;hb=475ddfa7a25848f2e73be6f0fc156a57315bcc0d;hp=3aaee4fd90c97173e7c4a3ed26e449491a6a9fb8;hpb=49a56bbafc81e4d50e4a95a65f987a448dfe5ecc;p=gitmo%2FMouse.git

diff --git a/t/030_roles/003_apply_role.t b/t/030_roles/003_apply_role.t
old mode 100755
new mode 100644
index 3aaee4f..2910669
--- a/t/030_roles/003_apply_role.t
+++ b/t/030_roles/003_apply_role.t
@@ -2,18 +2,8 @@
 
 use strict;
 use warnings;
-use Test::More;
-BEGIN {
-    plan skip_all => 
-            "This test requires Class::Method::Modifiers or Class::Method::Modifiers::Fast" 
-        unless eval { 
-            require Class::Method::Modifiers::Fast;
-        } or   eval {
-            require Class::Method::Modifiers;
-        };
-}
 
-plan tests => 86;
+use Test::More;
 use Test::Exception;
 
 {
@@ -27,7 +17,6 @@ use Test::Exception;
     sub foo {'FooRole::foo'}
 
     override 'boo' => sub { 'FooRole::boo -> ' . super() };
-#    sub boo { 'FooRole::boo -> ' . shift->SUPER::boo() }
 
     around 'blau' => sub {
         my $c = shift;
@@ -103,19 +92,15 @@ ok( !$foobar_class_meta->does_role('OtherRole'),
     '... the FooBarClass->meta !does_role OtherRole' );
 
 foreach my $method_name (qw(bar baz foo boo blau goo)) {
-#    ok( $foo_class_meta->has_method($method_name), ## Mouse: no ->has_method
-    ok( FooClass->can($method_name),
+    ok( $foo_class_meta->has_method($method_name),
         '... FooClass has the method ' . $method_name );
-#    ok( $foobar_class_meta->has_method($method_name), ## Mouse: no ->has_method
-    ok( FooClass->can($method_name),
+    ok( $foobar_class_meta->has_method($method_name),
         '... FooBarClass has the method ' . $method_name );
 }
 
-#ok( !$foo_class_meta->has_method('woot'), ## Mouse: no ->has_method
-ok( !FooClass->can('woot'),
+ok( !$foo_class_meta->has_method('woot'),
     '... FooClass lacks the method woot' );
-#ok( $foobar_class_meta->has_method('woot'), ## Mouse: no ->has_method
-ok( FooBarClass->can('woot'),
+ok( $foobar_class_meta->has_method('woot'),
     '... FooBarClass has the method woot' );
 
 foreach my $attr_name (qw(bar baz)) {
@@ -198,3 +183,5 @@ foreach my $foo ( $foo, $foobar ) {
 
     is( $foo->bar, $foo2, '... got the right value for bar now' );
 }
+
+done_testing;