1use strict; 2use Test::More; 3 4BEGIN { 5 eval "use DBD::SQLite"; 6 plan $@ ? (skip_all => 'needs DBD::SQLite for testing') : (tests => 5); 7} 8 9use lib 't/testlib'; 10use Film; 11use Director; 12 13{ # Cascade Strategies 14 Director->has_many(nasties => Film => { cascade => 'Fail' }); 15 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"; 28} 29