[dbsrgits/DBIx-Class.git] / t / cdbi-t / 23-cascade.t

use strict;
use Test::More;

BEGIN {
	eval "use DBD::SQLite";
	plan $@ ? (skip_all => 'needs DBD::SQLite for testing') : (tests => 5);
}

use lib 't/testlib';
use Film;
use Director;

{ # Cascade Strategies
	Director->has_many(nasties => Film => { cascade => 'Fail' });

	my $dir = Director->insert({ name => "Nasty Noddy" });
	my $kk = $dir->add_to_nasties({ Title => 'Killer Killers' });
	is $kk->director, $dir, "Director set OK";
	is $dir->nasties, 1, "We have one nasty";
	eval { $dir->delete };
	like $@, qr/1/, "Can't delete while films exist";
	my $rr = $dir->add_to_nasties({ Title => 'Revenge of the Revengers' });
	eval { $dir->delete };
	like $@, qr/2/, "Still can't delete";
	$dir->nasties->delete_all;
	eval { $dir->delete };
	is $@, '', "Can delete once films are gone";
}
Commit	Line	Data
37702ea5	1	use strict;
	2	use Test::More;
	3
	4	BEGIN {
	5	eval "use DBD::SQLite";
	6	plan $@ ? (skip_all => 'needs DBD::SQLite for testing') : (tests => 5);
	7	}
	8
	9	use lib 't/testlib';
	10	use Film;
	11	use 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	}