From: Florian Ragwitz <rafl@debian.org>
Date: Fri, 1 May 2009 10:28:18 +0000 (+0200)
Subject: Add TODO test for get_method_list returning the meta method for roles.
X-Git-Tag: 0.77~7
X-Git-Url: http://git.shadowcat.co.uk/gitweb/gitweb.cgi?a=commitdiff_plain;h=93dbab928dd3dab47891b75302957643070c1c6b;p=gitmo%2FMoose.git

Add TODO test for get_method_list returning the meta method for roles.
---

diff --git a/t/600_todo_tests/009_role_meta_method.t b/t/600_todo_tests/009_role_meta_method.t
new file mode 100644
index 0000000..fd6b6a5
--- /dev/null
+++ b/t/600_todo_tests/009_role_meta_method.t
@@ -0,0 +1,17 @@
+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');
+}