t/cdbi/23-cascade.t

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