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 (file)
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');
+}