6 use lib 't/cdbi/testlib';
11 Director->has_many(nasties => 'Film');
13 my $dir = Director->insert({
14 name => "Lewis Teague",
16 my $kk = $dir->add_to_nasties({
19 is $kk->director, $dir, "Director set OK";
20 is $dir->nasties, 1, "We have one nasty";
23 ok !Film->retrieve("Alligator"), "has_many cascade deletes by default";
27 # Two ways of saying not to cascade
28 for my $args ({ no_cascade_delete => 1 }, { cascade => "None" }) {
29 Director->has_many(nasties => 'Film', $args);
31 my $dir = Director->insert({
32 name => "Lewis Teague",
34 my $kk = $dir->add_to_nasties({
37 is $kk->director, $dir, "Director set OK";
38 is $dir->nasties, 1, "We have one nasty";
41 local $Data::Dumper::Terse = 1;
42 ok +Film->retrieve("Alligator"), 'has_many with ' . Dumper ($args);;
48 # local $TODO = 'cascade => "Fail" unimplemented';
50 # Director->has_many(nasties => Film => { cascade => 'Fail' });
52 # my $dir = Director->insert({ name => "Nasty Noddy" });
53 # my $kk = $dir->add_to_nasties({ Title => 'Killer Killers' });
54 # is $kk->director, $dir, "Director set OK";
55 # is $dir->nasties, 1, "We have one nasty";
57 # ok !eval { $dir->delete };
58 # like $@, qr/1/, "Can't delete while films exist";
60 # my $rr = $dir->add_to_nasties({ Title => 'Revenge of the Revengers' });
61 # ok !eval { $dir->delete };
62 # like $@, qr/2/, "Still can't delete";
64 # $dir->nasties->delete_all;
65 # ok eval { $dir->delete };
66 # is $@, '', "Can delete once films are gone";