From: Dave Rolsky <autarch@urth.org>
Date: Mon, 28 Jul 2008 13:52:53 +0000 (+0000)
Subject: Actually make the todo tests TODO
X-Git-Tag: 0_55~35
X-Git-Url: http://git.shadowcat.co.uk/gitweb/gitweb.cgi?a=commitdiff_plain;h=75adcd1aa6765e1c8879eb14f9cca5824bf7bba6;p=gitmo%2FMoose.git

Actually make the todo tests TODO
---

diff --git a/t/600_todo_tests/003_immutable_n_around.t b/t/600_todo_tests/003_immutable_n_around.t
index e5599b8..c7b66f9 100644
--- a/t/600_todo_tests/003_immutable_n_around.t
+++ b/t/600_todo_tests/003_immutable_n_around.t
@@ -39,10 +39,13 @@ use Test::More 'no_plan';
 my @classes = qw(Foo Bar Gorch Zoink);
 
 tests: {
+ TODO: {
     is( Foo->new->foo, undef, "base class (" . (Foo->meta->is_immutable ? "immutable" : "mutable") . ")" );
     is( Bar->new->foo, 42, "around new called on Bar->new (" . (Bar->meta->is_immutable ? "immutable" : "mutable") . ")"  );
+    local $TODO = 'these tests fail once Gorch is immutable' if Gorch->meta->is_immutable;
     is( Gorch->new->foo, 42, "around new called on Gorch->new (" . (Gorch->meta->is_immutable ? "immutable" : "mutable") . ")"  );
     is( Zoink->new->foo, 42, "around new called Zoink->new (" . (Zoink->meta->is_immutable ? "immutable" : "mutable") . ")"  );
+    }
 
     if ( @classes ) {
         ( shift @classes )->meta->make_immutable;