9 my $schema = DBICTest->init_schema();
11 my $ars = $schema->resultset('Artist');
12 my $cdrs = $schema->resultset('CD');
14 # create some custom entries
22 [qw/cdid artist title year/],
23 [qw/70 71 delete0 2005/],
24 [qw/71 72 delete1 2005/],
25 [qw/72 72 delete2 2005/],
26 [qw/73 72 delete3 2006/],
27 [qw/74 72 delete4 2007/],
28 [qw/75 73 delete5 2008/],
31 my $total_cds = $cdrs->count;
33 # test that delete_related w/o conditions deletes all related records only
34 $ars->search ({name => 'a3' })->search_related ('cds')->delete;
35 is ($cdrs->count, $total_cds -= 1, 'related delete ok');
37 my $a2_cds = $ars->search ({ name => 'a2' })->search_related ('cds');
39 # test that related deletion w/conditions deletes just the matched related records only
40 $a2_cds->search ({ year => 2005 })->delete;
41 is ($cdrs->count, $total_cds -= 2, 'related + condition delete ok');
43 # test that related deletion with limit condition works
44 $a2_cds->search ({}, { rows => 1})->delete;
45 is ($cdrs->count, $total_cds -= 1, 'related + limit delete ok');