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