X-Git-Url: http://git.shadowcat.co.uk/gitweb/gitweb.cgi?a=blobdiff_plain;f=t%2Fcdbi%2F23-cascade.t;h=eb9c3f502d0c64bb9982989178142822f77c6f4f;hb=1eb87dd767c4bdb815085acb2a8e63e12b32f990;hp=a6818826ac9ebb1c75cd21b894d613bf1bc891f4;hpb=50891152d0b24649bfd67bdba97feec86b11c064;p=dbsrgits%2FDBIx-Class.git

diff --git a/t/cdbi/23-cascade.t b/t/cdbi/23-cascade.t
index a681882..eb9c3f5 100644
--- a/t/cdbi/23-cascade.t
+++ b/t/cdbi/23-cascade.t
@@ -1,17 +1,8 @@
 use strict;
+use warnings;
 use Test::More;
 use Data::Dumper;
 
-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 => 12);
-}
-
 INIT {
     use lib 't/cdbi/testlib';
     use Film;
@@ -57,7 +48,7 @@ for my $args ({ no_cascade_delete => 1 }, { cascade => "None" }) {
 
 #{ # Fail on cascade
 #    local $TODO = 'cascade => "Fail" unimplemented';
-#    
+#
 #    Director->has_many(nasties => Film => { cascade => 'Fail' });
 #
 #    my $dir = Director->insert({ name => "Nasty Noddy" });
@@ -76,3 +67,5 @@ for my $args ({ no_cascade_delete => 1 }, { cascade => "None" }) {
 #    ok eval { $dir->delete };
 #    is $@, '', "Can delete once films are gone";
 #}
+
+done_testing;