5 eval "use DBD::SQLite";
6 plan $@ ? (skip_all => 'needs DBD::SQLite for testing') : (tests => 5);
13 { # Cascade Strategies
14 Director->has_many(nasties => Film => { cascade => 'Fail' });
16 my $dir = Director->insert({ name => "Nasty Noddy" });
17 my $kk = $dir->add_to_nasties({ Title => 'Killer Killers' });
18 is $kk->director, $dir, "Director set OK";
19 is $dir->nasties, 1, "We have one nasty";
20 eval { $dir->delete };
21 like $@, qr/1/, "Can't delete while films exist";
22 my $rr = $dir->add_to_nasties({ Title => 'Revenge of the Revengers' });
23 eval { $dir->delete };
24 like $@, qr/2/, "Still can't delete";
25 $dir->nasties->delete_all;
26 eval { $dir->delete };
27 is $@, '', "Can delete once films are gone";