t/cdbi/23-cascade.t

   1 use strict;
   2 use Test::More;
   3 use Data::Dumper;
   4
   5 BEGIN {
   6   eval "use DBIx::Class::CDBICompat;";
   7   if ($@) {
   8     plan (skip_all => 'Class::Trigger and DBIx::ContextualFetch required');
   9     next;
  10   }
  11   eval "use DBD::SQLite";
  12   plan $@ ? (skip_all => 'needs DBD::SQLite for testing') : (tests => 12);
  13 }
  14
  15 INIT {
  16     use lib 't/cdbi/testlib';
  17     use Film;
  18     use Director;
  19 }
  20
  21 { # Cascade on delete
  22     Director->has_many(nasties => 'Film');
  23
  24     my $dir = Director->insert({
  25         name => "Lewis Teague",
  26     });
  27     my $kk = $dir->add_to_nasties({
  28         Title => 'Alligator'
  29     });
  30     is $kk->director, $dir, "Director set OK";
  31     is $dir->nasties, 1, "We have one nasty";
  32
  33     ok $dir->delete;
  34     ok !Film->retrieve("Alligator"), "has_many cascade deletes by default";
  35 }
  36
  37
  38 # Two ways of saying not to cascade
  39 for my $args ({ no_cascade_delete => 1 }, { cascade => "None" }) {
  40     Director->has_many(nasties => 'Film', $args);
  41
  42     my $dir = Director->insert({
  43         name => "Lewis Teague",
  44     });
  45     my $kk = $dir->add_to_nasties({
  46         Title => 'Alligator'
  47     });
  48     is $kk->director, $dir, "Director set OK";
  49     is $dir->nasties, 1, "We have one nasty";
  50
  51     ok $dir->delete;
  52     local $Data::Dumper::Terse = 1;
  53     ok +Film->retrieve("Alligator"), 'has_many with ' . Dumper ($args);;
  54     $kk->delete;
  55 }
  56
  57
  58 #{ # Fail on cascade
  59 #    local $TODO = 'cascade => "Fail" unimplemented';
  60 #
  61 #    Director->has_many(nasties => Film => { cascade => 'Fail' });
  62 #
  63 #    my $dir = Director->insert({ name => "Nasty Noddy" });
  64 #    my $kk = $dir->add_to_nasties({ Title => 'Killer Killers' });
  65 #    is $kk->director, $dir, "Director set OK";
  66 #    is $dir->nasties, 1, "We have one nasty";
  67 #
  68 #    ok !eval { $dir->delete };
  69 #    like $@, qr/1/, "Can't delete while films exist";
  70 #
  71 #    my $rr = $dir->add_to_nasties({ Title => 'Revenge of the Revengers' });
  72 #    ok !eval { $dir->delete };
  73 #    like $@, qr/2/, "Still can't delete";
  74 #
  75 #    $dir->nasties->delete_all;
  76 #    ok eval { $dir->delete };
  77 #    is $@, '', "Can delete once films are gone";
  78 #}