X-Git-Url: http://git.shadowcat.co.uk/gitweb/gitweb.cgi?a=blobdiff_plain;f=t%2F600_todo_tests%2F007_moose_nonmoose_moose_chain_init_meta.t;h=a91f20e4100c0c27974685ddeaf78819dafe0385;hb=6df96673404764b4eb43436269b74378b3c0ed19;hp=86dfa15f243bc918ee1ea5c5737c55044412de3b;hpb=f2391d17574eff81d911b97be15ea51080500003;p=gitmo%2FMoose.git 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'; +}