From: Dave Rolsky <autarch@urth.org>
Date: Mon, 28 Jul 2008 13:48:53 +0000 (+0000)
Subject: Fixed the test count, and made the failing tests TODO tests
X-Git-Tag: 0_55~36
X-Git-Url: http://git.shadowcat.co.uk/gitweb/gitweb.cgi?a=commitdiff_plain;h=6d97bf02865c6e7414fbab45f447e981756b8588;p=gitmo%2FMoose.git

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