X-Git-Url: http://git.shadowcat.co.uk/gitweb/gitweb.cgi?a=blobdiff_plain;f=t%2Fcdbi%2F13-constraint.t;h=b5b8f32c192efb401d539f2e0db69298280fb7f3;hb=157270d0ffc57e57f311170323d88f30cb64f9f1;hp=7cdecb5d3a48ea012882bfc93a44b896a0aedc4a;hpb=5e8cb53cf70528d4e17526dba967cff67e13cde9;p=dbsrgits%2FDBIx-Class.git 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__