6 use lib 't/cdbi/testlib';
12 Director->has_many(nasties => 'Film');
14 my $dir = Director->insert({
15 name => "Lewis Teague",
17 my $kk = $dir->add_to_nasties({
20 is $kk->director, $dir, "Director set OK";
21 is $dir->nasties, 1, "We have one nasty";
24 ok !Film->retrieve("Alligator"), "has_many cascade deletes by default";
28 # Two ways of saying not to cascade
29 for my $args ({ no_cascade_delete => 1 }, { cascade => "None" }) {
30 Director->has_many(nasties => 'Film', $args);
32 my $dir = Director->insert({
33 name => "Lewis Teague",
35 my $kk = $dir->add_to_nasties({
38 is $kk->director, $dir, "Director set OK";
39 is $dir->nasties, 1, "We have one nasty";
42 local $Data::Dumper::Terse = 1;
43 ok +Film->retrieve("Alligator"), 'has_many with ' . Dumper ($args);;
49 # local $TODO = 'cascade => "Fail" unimplemented';
51 # Director->has_many(nasties => Film => { cascade => 'Fail' });
53 # my $dir = Director->insert({ name => "Nasty Noddy" });
54 # my $kk = $dir->add_to_nasties({ Title => 'Killer Killers' });
55 # is $kk->director, $dir, "Director set OK";
56 # is $dir->nasties, 1, "We have one nasty";
58 # ok !eval { $dir->delete };
59 # like $@, qr/1/, "Can't delete while films exist";
61 # my $rr = $dir->add_to_nasties({ Title => 'Revenge of the Revengers' });
62 # ok !eval { $dir->delete };
63 # like $@, qr/2/, "Still can't delete";
65 # $dir->nasties->delete_all;
66 # ok eval { $dir->delete };
67 # is $@, '', "Can delete once films are gone";