X-Git-Url: http://git.shadowcat.co.uk/gitweb/gitweb.cgi?a=blobdiff_plain;f=t%2Fcdbi%2F23-cascade.t;h=fdee3f79ac77f6ad5cd9d76d6079e4981e11ce83;hb=a5ef13717f29f8662a498a5f1a910b03af2d89da;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..fdee3f7 100644 --- a/t/cdbi/23-cascade.t +++ b/t/cdbi/23-cascade.t @@ -2,16 +2,6 @@ use strict; 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 +47,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 +66,5 @@ for my $args ({ no_cascade_delete => 1 }, { cascade => "None" }) { # ok eval { $dir->delete }; # is $@, '', "Can delete once films are gone"; #} + +done_testing;