1 BEGIN { do "./t/lib/ANFANG.pm" or die ( $@ || $! ) }
2 use DBIx::Class::Optional::Dependencies -skip_all_without => 'cdbicompat';
8 use DBIx::Class::_Util 'dump_value';
10 use lib 't/cdbi/testlib';
15 Director->has_many(nasties => 'Film');
17 my $dir = Director->insert({
18 name => "Lewis Teague",
20 my $kk = $dir->add_to_nasties({
23 is $kk->director, $dir, "Director set OK";
24 is $dir->nasties, 1, "We have one nasty";
27 ok !Film->retrieve("Alligator"), "has_many cascade deletes by default";
31 # Two ways of saying not to cascade
32 for my $args ({ no_cascade_delete => 1 }, { cascade => "None" }) {
33 Director->has_many(nasties => 'Film', $args);
35 my $dir = Director->insert({
36 name => "Lewis Teague",
38 my $kk = $dir->add_to_nasties({
41 is $kk->director, $dir, "Director set OK";
42 is $dir->nasties, 1, "We have one nasty";
45 ok +Film->retrieve("Alligator"), 'has_many with ' . dump_value $args;
51 # local $TODO = 'cascade => "Fail" unimplemented';
53 # Director->has_many(nasties => Film => { cascade => 'Fail' });
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";
60 # ok !eval { $dir->delete };
61 # like $@, qr/1/, "Can't delete while films exist";
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";
67 # $dir->nasties->delete_all;
68 # ok eval { $dir->delete };
69 # is $@, '', "Can delete once films are gone";