Mark tests as TODO

diff --git a/t/600_todo_tests/006_moose_nonmoose_nonmoose_chain_metatrait_init_order.t b/t/600_todo_tests/006_moose_nonmoose_nonmoose_chain_metatrait_init_order.t
index 2c8bfe5..1e6c166 100644 (file)
--- a/t/600_todo_tests/006_moose_nonmoose_nonmoose_chain_metatrait_init_order.t
+++ b/t/600_todo_tests/006_moose_nonmoose_nonmoose_chain_metatrait_init_order.t
@@ -24,6 +24,8 @@ my $subsubclass_meta = Moose->init_meta( for_class => 'SubSubClassUseBase' );
 ok does_role($subsubclass_meta, 'My::Role'),
     'SubSubClass metaclass does role from grandparent metaclass';
 my $subclass_meta = find_meta('SubClassUseBase');
-ok does_role($subclass_meta, 'My::Role'),
-    'SubClass metaclass does role from parent metaclass';
-
+TODO: {
+    local $TODO = "In-between class' metaclass does not do My::Role";
+    ok does_role($subclass_meta, 'My::Role'),
+        'SubClass metaclass does role from parent metaclass';
+}

diff --git a/t/600_todo_tests/007_moose_nonmoose_moose_chain_init_meta.t b/t/600_todo_tests/007_moose_nonmoose_moose_chain_init_meta.t
index 86dfa15..a91f20e 100644 (file)
--- a/t/600_todo_tests/007_moose_nonmoose_moose_chain_init_meta.t
+++ b/t/600_todo_tests/007_moose_nonmoose_moose_chain_init_meta.t
@@ -17,7 +17,11 @@ use warnings;
 use Test::More tests => 1;
 use Test::Exception;
 
-lives_ok {
-    Moose->init_meta(for_class => 'SomeClass');
-} 'Moose class => use base => Moose Class, then Moose->init_meta on middle class ok';
+TODO: {
+    local $TODO = 'Metaclass incompatibility';
+
+    lives_ok {
+        Moose->init_meta(for_class => 'SomeClass');
+    } 'Moose class => use base => Moose Class, then Moose->init_meta on middle class ok';
+}
 

diff --git a/t/600_todo_tests/008_moose_nonmoose_moose_chain_extends.t b/t/600_todo_tests/008_moose_nonmoose_moose_chain_extends.t
index 5aef147..8f0b62d 100644 (file)
--- a/t/600_todo_tests/008_moose_nonmoose_moose_chain_extends.t
+++ b/t/600_todo_tests/008_moose_nonmoose_moose_chain_extends.t
@@ -17,9 +17,13 @@ use Test::More tests => 1;
 {
     package SubSubClassUseBase;
     use Moose;
+    use Test::More;
     use Test::Exception;
-    lives_ok {
-        extends 'SubClassUseBase';
-    } 'Can extend non-moose class whos parent class is a Moose class with a meta role';
+    TODO: {
+        local $TODO = 'Metaclass incompatibility';
+        lives_ok {
+            extends 'SubClassUseBase';
+        } 'Can extend non-moose class whos parent class is a Moose class with a meta role';
+    }
 }