From: Florian Ragwitz <rafl@debian.org>
Date: Fri, 1 May 2009 10:33:09 +0000 (+0200)
Subject: Apparently this is a feature. nevermind :-/
X-Git-Tag: 0.77~6
X-Git-Url: http://git.shadowcat.co.uk/gitweb/gitweb.cgi?a=commitdiff_plain;h=7cde2634ebabd88b662e1ac1fd0cd711782d3ad8;p=gitmo%2FMoose.git

Apparently this is a feature. nevermind :-/
---

diff --git a/t/600_todo_tests/009_role_meta_method.t b/t/600_todo_tests/009_role_meta_method.t
deleted file mode 100644
index fd6b6a5..0000000
--- a/t/600_todo_tests/009_role_meta_method.t
+++ /dev/null
@@ -1,17 +0,0 @@
-use strict;
-use warnings;
-use Test::More tests => 3;
-
-{
-    package Foo;
-    use Moose::Role;
-}
-
-my $meta = Class::MOP::class_of('Foo');
-my $method = $meta->get_method('meta');
-ok($method, 'meta method exists');
-is($method->associated_metaclass->name, 'Foo', 'meta method belongs to the right class');
-TODO: {
-    local $TODO = "get_method_list doesn't include the meta method for roles yet";
-    ok((+grep { $_ eq 'meta' } $meta->get_method_list), 'get_method_list returns meta');
-}