X-Git-Url: http://git.shadowcat.co.uk/gitweb/gitweb.cgi?a=blobdiff_plain;f=t%2Fcdbi%2F02-Film.t;fp=t%2Fcdbi%2F02-Film.t;h=5b44328eeed7bb89a44fc897343631ec05d970d2;hb=e7b58e9d1f3c5e6469905b49b615bae993e08103;hp=0e1b22e21bfe327a2038712bdf6d06fc208c8f59;hpb=b9ecae395ab4301302e08c544dc3f5c16ac370b9;p=dbsrgits%2FDBIx-Class.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";