Make $role->get_method_list() include meta() (Moose 0.90 feature)
gfx [Tue, 15 Sep 2009 09:25:50 +0000 (18:25 +0900)]
t/030_roles/002_role.t

index 96ead79..448d492 100755 (executable)
@@ -70,7 +70,7 @@ isa_ok($foo_role->get_method('boo'), 'Mouse::Meta::Role::Method');
 
 is_deeply(
     [ sort $foo_role->get_method_list() ],
-    [ 'boo', 'foo' ],
+    [ 'boo', 'foo', 'meta' ],
     '... got the right method list');
 
 ok(FooRole->can('foo'), "locally defined methods are still there");