1use strict; 2use warnings; 3 4use Test::More; 5use Test::Exception; 6use lib qw(t/lib); 7use DBICTest; 8 9use POSIX qw(ceil); 10 11my $schema = DBICTest->init_schema(); 12 13plan tests => 1; 14 15{ 16 my $artist = $schema->resultset ('Artist')->search ({}, { rows => 1})->single; # braindead sqlite 17 my $cd = $schema->resultset ('CD')->create ({ 18 artist => $artist, 19 title => 'Get in order', 20 year => 2009, 21 tracks => [ 22 { title => 'T1' }, 23 { title => 'T2' }, 24 { title => 'T3' }, 25 ], 26 }); 27 28 lives_ok (sub { $cd->delete}, "Cascade delete on ordered has_many doesn't bomb"); 29} 30 311; 32