X-Git-Url: http://git.shadowcat.co.uk/gitweb/gitweb.cgi?a=blobdiff_plain;f=t%2Fcdbi%2F13-constraint.t;h=51b283aa7a388d6349fd94e91e2af1957371d538;hb=68de943862f06cabd397d2e74d12cd9cdc999779;hp=7cdecb5d3a48ea012882bfc93a44b896a0aedc4a;hpb=50891152d0b24649bfd67bdba97feec86b11c064;p=dbsrgits%2FDBIx-Class.git diff --git a/t/cdbi/13-constraint.t b/t/cdbi/13-constraint.t index 7cdecb5..51b283a 100644 --- a/t/cdbi/13-constraint.t +++ b/t/cdbi/13-constraint.t @@ -5,10 +5,8 @@ BEGIN { eval "use DBIx::Class::CDBICompat;"; if ($@) { plan (skip_all => 'Class::Trigger and DBIx::ContextualFetch required'); - next; } - eval "use DBD::SQLite"; - plan $@ ? (skip_all => 'needs DBD::SQLite for testing') : (tests => 23); + plan tests => 23; } use lib 't/cdbi/testlib'; @@ -95,13 +93,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__