X-Git-Url: http://git.shadowcat.co.uk/gitweb/gitweb.cgi?a=blobdiff_plain;f=t%2Fcdbi%2F23-cascade.t;h=fdee3f79ac77f6ad5cd9d76d6079e4981e11ce83;hb=a779441cbba1a366b4df7dd574966dae88e43ecb;hp=dbd55c6a70256efb858a19f80481571a1b66b82f;hpb=68de943862f06cabd397d2e74d12cd9cdc999779;p=dbsrgits%2FDBIx-Class.git diff --git a/t/cdbi/23-cascade.t b/t/cdbi/23-cascade.t index dbd55c6..fdee3f7 100644 --- a/t/cdbi/23-cascade.t +++ b/t/cdbi/23-cascade.t @@ -2,14 +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'); - } - plan tests => 12; -} - INIT { use lib 't/cdbi/testlib'; use Film; @@ -55,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" }); @@ -74,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;