From: Karen Etheridge <ether@cpan.org>
Date: Sun, 25 Mar 2012 16:04:34 +0000 (-0700)
Subject: more tightening up of TODO test cases, for later investigation
X-Git-Tag: 0.13~4
X-Git-Url: http://git.shadowcat.co.uk/gitweb/gitweb.cgi?a=commitdiff_plain;h=19b920aea9aaa72a5976cb126518f298ff8b4cf6;p=gitmo%2FMooseX-UndefTolerant.git

more tightening up of TODO test cases, for later investigation
---

diff --git a/t/defaults.t b/t/defaults.t
index cca5ed8..2a04ede 100644
--- a/t/defaults.t
+++ b/t/defaults.t
@@ -86,12 +86,14 @@ sub do_tests_with_class
     }
 
     TODO: {
-        local $TODO;
-
         my $e = exception {
             my $obj = $class->new(attr1 => undef, attr3 => undef);
             {
                 local $TODO = 'not sure why this fails still... needs attr trait rewrite' if $obj->meta->is_immutable;
+                # FIXME: the object is successfully constructed, and the value
+                # for attr1 is properly removed, but the default is not then
+                # used instead...
+                # note "### constructed object: ", $obj->dump(2);
                 ok($obj->has_attr1, 'UT attr1 has a value when assigned undef in constructor');
                 ok($obj->has_attr3, 'attr3 retains its undef value when assigned undef in constructor');
 
@@ -101,7 +103,7 @@ sub do_tests_with_class
             is($obj->attr2, 2, 'attr2\'s value is its default');
             is($obj->attr3, undef, 'attr3\'s value is not its default (explicitly set)');
         };
-        $TODO = 'some immutable cases are not handled yet; see CAVEATS'
+        local $TODO = 'some immutable cases are not handled yet; see CAVEATS'
             if $class->meta->is_immutable and $class eq 'Foo';
 
         is($e, undef, 'these tests do not die');