Improve error reporting when we encounter broken exception objects

[dbsrgits/DBIx-Class.git] / t / cdbi / 23-cascade.t

diff --git a/t/cdbi/23-cascade.t b/t/cdbi/23-cascade.t
index a681882..eb9c3f5 100644 (file)
--- 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;