X-Git-Url: http://git.shadowcat.co.uk/gitweb/gitweb.cgi?a=blobdiff_plain;f=t%2Fcdbi%2F11-triggers.t;h=c944248426ec18aceb874188e33bc8dc051094a5;hb=4744c576b5435847d4687727fb768da2958f0831;hp=918403a28ac0abd6034161fe21216c8c2f87a0be;hpb=6a3bf2519832866d037740c5fb22341dad6f8bb3;p=dbsrgits%2FDBIx-Class.git diff --git a/t/cdbi/11-triggers.t b/t/cdbi/11-triggers.t index 918403a..c944248 100644 --- a/t/cdbi/11-triggers.t +++ b/t/cdbi/11-triggers.t @@ -1,16 +1,7 @@ use strict; +use warnings; use Test::More; -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 => 13); -} - use lib 't/cdbi/testlib'; use Film; @@ -58,9 +49,11 @@ is + ( ok $ver->delete, "Delete"; { - Film->add_trigger(before_create => sub { + Film->add_trigger(before_create => sub { my $self = shift; ok !$self->_attribute_exists('title'), "PK doesn't auto-vivify"; }); Film->create({director => "Me"}); } + +done_testing;