5 eval "use DBIx::Class::CDBICompat;";
7 plan (skip_all => 'Class::Trigger and DBIx::ContextualFetch required');
10 eval "use DBD::SQLite";
11 plan $@ ? (skip_all => 'needs DBD::SQLite for testing') : (tests => 12);
21 Director->has_many(nasties => 'Film');
23 my $dir = Director->insert({
24 name => "Lewis Teague",
26 my $kk = $dir->add_to_nasties({
29 is $kk->director, $dir, "Director set OK";
30 is $dir->nasties, 1, "We have one nasty";
33 ok !Film->retrieve("Alligator"), "has_many cascade deletes by default";
37 # Two ways of saying not to cascade
38 for my $args ({ no_cascade_delete => 1 }, { cascade => "None" }) {
39 Director->has_many(nasties => 'Film', $args);
41 my $dir = Director->insert({
42 name => "Lewis Teague",
44 my $kk = $dir->add_to_nasties({
47 is $kk->director, $dir, "Director set OK";
48 is $dir->nasties, 1, "We have one nasty";
51 ok +Film->retrieve("Alligator"), "has_many with @{[ keys %$args ]} => @{[ values %$args ]}";
57 # local $TODO = 'cascade => "Fail" unimplemented';
59 # Director->has_many(nasties => Film => { cascade => 'Fail' });
61 # my $dir = Director->insert({ name => "Nasty Noddy" });
62 # my $kk = $dir->add_to_nasties({ Title => 'Killer Killers' });
63 # is $kk->director, $dir, "Director set OK";
64 # is $dir->nasties, 1, "We have one nasty";
66 # ok !eval { $dir->delete };
67 # like $@, qr/1/, "Can't delete while films exist";
69 # my $rr = $dir->add_to_nasties({ Title => 'Revenge of the Revengers' });
70 # ok !eval { $dir->delete };
71 # like $@, qr/2/, "Still can't delete";
73 # $dir->nasties->delete_all;
74 # ok eval { $dir->delete };
75 # is $@, '', "Can delete once films are gone";