X-Git-Url: http://git.shadowcat.co.uk/gitweb/gitweb.cgi?a=blobdiff_plain;f=t%2Fcdbi%2F02-Film.t;h=5b44328eeed7bb89a44fc897343631ec05d970d2;hb=fa238f1f276239f96b30a77baad4f0b31530a8a4;hp=0e1b22e21bfe327a2038712bdf6d06fc208c8f59;hpb=9381840da8471c9a17a0b641c99fd0b57178b839;p=dbsrgits%2FDBIx-Class-Historic.git diff --git a/t/cdbi/02-Film.t b/t/cdbi/02-Film.t index 0e1b22e..5b44328 100644 --- a/t/cdbi/02-Film.t +++ b/t/cdbi/02-Film.t @@ -8,8 +8,7 @@ BEGIN { plan (skip_all => 'Class::Trigger and DBIx::ContextualFetch required'); next; } - eval "use DBD::SQLite"; - plan $@ ? (skip_all => 'needs DBD::SQLite for testing') : (tests => 98); + plan tests => 98; } INIT { @@ -187,17 +186,14 @@ eval { ok(!Film->retrieve('Ishtar'), 'Ishtar no longer there'); { my $deprecated = 0; - #local $SIG{__WARN__} = sub { $deprecated++ if $_[0] =~ /deprecated/ }; + local $SIG{__WARN__} = sub { $deprecated++ if $_[0] =~ /deprecated/ }; ok( Film->delete(Director => 'Elaine May'), "In fact, delete all films by Elaine May" ); cmp_ok(Film->search(Director => 'Elaine May'), '==', 0, "0 Films by Elaine May"); - SKIP: { - skip "No deprecated warnings from compat layer", 1; - is $deprecated, 1, "Got a deprecated warning"; - } + is $deprecated, 0, "No deprecated warnings from compat layer"; } }; is $@, '', "No problems with deletes";