1 BEGIN { do "./t/lib/ANFANG.pm" or die ( $@ || $! ) }
10 my $schema = DBICTest->init_schema();
12 my $ars = $schema->resultset('Artist');
13 my $cdrs = $schema->resultset('CD');
14 my $cd2pr_rs = $schema->resultset('CD_to_Producer');
16 # create some custom entries
25 [qw/cdid artist title year/],
26 [qw/70 71 delete0 2005/],
27 [qw/71 72 delete1 2005/],
28 [qw/72 72 delete2 2005/],
29 [qw/73 72 delete3 2006/],
30 [qw/74 72 delete4 2007/],
31 [qw/75 73 delete5 2008/],
34 my $prod = $schema->resultset('Producer')->create ({ name => 'deleter' });
35 my $prod_cd = $cdrs->find (70);
36 my $cd2pr = $cd2pr_rs->create ({
41 my $total_cds = $cdrs->count;
43 # test that delete_related w/o conditions deletes all related records only
44 $ars->search ({name => 'a3' })->search_related ('cds')->delete;
45 is ($cdrs->count, $total_cds -= 1, 'related delete ok');
47 my $a2_cds = $ars->search ({ name => 'a2' })->search_related ('cds');
49 # test that related deletion w/conditions deletes just the matched related records only
50 $a2_cds->search ({ year => 2005 })->delete;
51 is ($cdrs->count, $total_cds -= 2, 'related + condition delete ok');
53 # test that related deletion with limit condition works
54 $a2_cds->search ({}, { rows => 1})->delete;
55 is ($cdrs->count, $total_cds -= 1, 'related + limit delete ok');
58 local $TODO = 'delete_related is based on search_related which is based on search which does not understand object arguments';
59 local $SIG{__WARN__} = sub {}; # trap the non-numeric warning, remove when the TODO is removed
61 my $cd2pr_count = $cd2pr_rs->count;
62 $prod_cd->delete_related('cd_to_producer', { producer => $prod } );
63 is ($cd2pr_rs->count, $cd2pr_count -= 1, 'm2m link deleted succesfully');
65 # see 187ec69a for why this is neccessary
66 $prod->result_source(undef);