1 BEGIN { do "./t/lib/ANFANG.pm" or die ( $@ || $! ) }
11 my $schema = DBICTest->init_schema();
14 my $artist = $schema->resultset ('Artist')->search ({}, { rows => 1})->single; # braindead sqlite
15 my $cd = $schema->resultset ('CD')->create ({
17 title => 'Get in order',
26 lives_ok (sub { $cd->delete}, "Cascade delete on ordered has_many doesn't bomb");