From: Tomas Doran (t0m) <t0m@state51.co.uk>
Date: Mon, 20 Apr 2009 22:15:11 +0000 (+0100)
Subject: Mark tests as TODO
X-Git-Tag: 0.75_01~14
X-Git-Url: http://git.shadowcat.co.uk/gitweb/gitweb.cgi?a=commitdiff_plain;h=ce9489efb4b2b2ce125df59b12599cebcf149e3c;p=gitmo%2FMoose.git

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