1 BEGIN { do "./t/lib/ANFANG.pm" or die ( $@ || $! ) }
10 my $schema = DBICTest->init_schema();
11 my $artist_rs = $schema->resultset ('Artist');
13 my $init_count = $artist_rs->count;
14 ok ($init_count, 'Some artists is database');
16 foreach my $delete_arg (
17 [ { 'me.name' => 'foo' }, { 'me.name' => 'bar' } ],
18 [ 'me.name' => 'foo', 'me.name' => 'bar' ],
20 $artist_rs->populate ([
29 is ($artist_rs->count, $init_count + 2, '2 Artists created');
33 { 'me.artistid' => { '!=', undef } },
38 is ($artist_rs->count, $init_count, 'Correct amount of artists deleted');