From: Peter Rabbitson <ribasushi@cpan.org>
Date: Fri, 11 Sep 2009 21:13:45 +0000 (+0000)
Subject: Reverting http://dev.catalyst.perl.org/svnweb/bast/revision?rev=4278 - it seems to... 
X-Git-Url: http://git.shadowcat.co.uk/gitweb/gitweb.cgi?a=commitdiff_plain;h=157270d0ffc57e57f311170323d88f30cb64f9f1;p=dbsrgits%2FDBIx-Class-Historic.git

Reverting dev.catalyst.perl.org/svnweb/bast/revision?rev=4278 - it seems to pass fine now
---

diff --git a/t/cdbi/13-constraint.t b/t/cdbi/13-constraint.t
index 7cdecb5..b5b8f32 100644
--- a/t/cdbi/13-constraint.t
+++ b/t/cdbi/13-constraint.t
@@ -95,13 +95,11 @@ ok $fred, "Got fred";
     }
     eval { Film->constrain_column(codirector => Untaint => 'date') };
     is $@, '', 'Can constrain with untaint';
+
     my $freeaa =
         eval { Film->create({ title => "The Freaa", codirector => 'today' }) };
-    TODO: {
-        local $TODO = "no idea what this is supposed to do";
-        is $@, '', "Can create codirector";
-        is $freeaa && $freeaa->codirector, '2001-03-03', "Set the codirector";
-    }
+    is $@, '', "Can create codirector";
+    is $freeaa && $freeaa->codirector, '2001-03-03', "Set the codirector";
 }
 
 __DATA__