Fixed the test count, and made the failing tests TODO tests

diff --git a/t/600_todo_tests/004_inlined_constructor_modified_new.t b/t/600_todo_tests/004_inlined_constructor_modified_new.t
index 4b25daf..6679437 100644 (file)
--- a/t/600_todo_tests/004_inlined_constructor_modified_new.t
+++ b/t/600_todo_tests/004_inlined_constructor_modified_new.t
@@ -3,7 +3,7 @@
 use strict;
 use warnings;
 
-use Test::More tests => 7;
+use Test::More tests => 6;
 
 my ($around_new);
 {
@@ -28,11 +28,21 @@ Foo->meta->make_immutable(debug => 0);
 my $inlined_new = Foo->meta->find_method_by_name('new');
 isa_ok($inlined_new, 'Class::MOP::Method::Wrapped');
 $inlined_new = $inlined_new->get_original_method;
-isa_ok($inlined_new, 'Moose::Meta::Method::Constructor');
+
+TODO:
+{
+    local $TODO = 'but it isa Moose::Meta::Method instead';
+    isa_ok($inlined_new, 'Moose::Meta::Method::Constructor');
+}
 
 Foo->new(foo => 100);
 ok($around_new, 'around new called');
 
 $around_new = 0;
 Bar->new(foo => 100);
-ok($around_new, 'around new called');
+
+TODO:
+{
+    local $TODO = 'but it is not called';
+    ok($around_new, 'around new called');
+}