9 my $schema = DBICTest->init_schema();
11 my $ars = $schema->resultset('Artist');
12 my $cdrs = $schema->resultset('CD');
14 # create some custom entries
15 $ars->create ({ artistid => 9, name => 'dead man walking' });
17 [qw/cdid artist title year/],
18 [qw/70 2 delete0 2005/],
19 [qw/71 3 delete1 2005/],
20 [qw/72 3 delete2 2005/],
21 [qw/73 3 delete3 2006/],
22 [qw/74 3 delete4 2007/],
23 [qw/75 9 delete5 2008/],
26 my $total_cds = $cdrs->count;
28 # test that delete_related w/o conditions deletes all related records only
29 $ars->find (9)->delete_related ('cds');
30 is ($cdrs->count, $total_cds -= 1, 'related delete ok');
32 my $a3_cds = $ars->find(3)->cds;
34 # test that related deletion w/conditions deletes just the matched related records only
35 $a3_cds->search ({ year => 2005 })->delete;
36 is ($cdrs->count, $total_cds -= 2, 'related + condition delete ok');
38 # test that related deletion with limit condition works
39 $a3_cds->search ({}, { rows => 1})->delete;
40 is ($cdrs->count, $total_cds -= 1, 'related + limit delete ok');