1 BEGIN { do "./t/lib/ANFANG.pm" or die ( $@ || $! ) }
2 use DBIx::Class::Optional::Dependencies -skip_all_without => 'cdbicompat';
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 local $Data::Dumper::Terse = 1;
46 ok +Film->retrieve("Alligator"), 'has_many with ' . Dumper ($args);;
52 # local $TODO = 'cascade => "Fail" unimplemented';
54 # Director->has_many(nasties => Film => { cascade => 'Fail' });
56 # my $dir = Director->insert({ name => "Nasty Noddy" });
57 # my $kk = $dir->add_to_nasties({ Title => 'Killer Killers' });
58 # is $kk->director, $dir, "Director set OK";
59 # is $dir->nasties, 1, "We have one nasty";
61 # ok !eval { $dir->delete };
62 # like $@, qr/1/, "Can't delete while films exist";
64 # my $rr = $dir->add_to_nasties({ Title => 'Revenge of the Revengers' });
65 # ok !eval { $dir->delete };
66 # like $@, qr/2/, "Still can't delete";
68 # $dir->nasties->delete_all;
69 # ok eval { $dir->delete };
70 # is $@, '', "Can delete once films are gone";