X-Git-Url: http://git.shadowcat.co.uk/gitweb/gitweb.cgi?p=gitmo%2FMouse.git;a=blobdiff_plain;f=t%2F030_roles%2F003_apply_role.t;h=2910669afe884376fb2dad12ee09b4647a2bad95;hp=b4d2b3889b8cc32fe9bff2d9179d7efe0e29541f;hb=6475f69defb20a02b6559bddf870a0821f28ac20;hpb=6d5a627396f91b2dce25a7b6e5c5dbe6b67f2d95

diff --git a/t/030_roles/003_apply_role.t b/t/030_roles/003_apply_role.t
index b4d2b38..2910669 100755
--- a/t/030_roles/003_apply_role.t
+++ b/t/030_roles/003_apply_role.t
@@ -3,7 +3,7 @@
 use strict;
 use warnings;
 
-use Test::More tests => 86;
+use Test::More;
 use Test::Exception;
 
 {
@@ -92,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),
@@ -184,3 +183,5 @@ foreach my $foo ( $foo, $foobar ) {
 
     is( $foo->bar, $foo2, '... got the right value for bar now' );
 }
+
+done_testing;