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