my $schema = DBICTest->init_schema();
-# Test various new() invocations - this is all about backcompat, making
+# Test various new() invocations - this is all about backcompat, making
# sure that insert() still works as expected by legacy code.
#
# What we essentially do is multi-instantiate objects, making sure nothing
{
my $new_artist = $schema->resultset("Artist")->new_result({ 'name' => 'Depeche Mode' });
my $new_related_cd = $new_artist->new_related('cds', { 'title' => 'Leave in Silence', 'year' => 1982});
- eval {
+ lives_ok {
$new_artist->insert;
$new_related_cd->insert;
- };
- is ($@, '', 'Staged insertion successful');
+ } 'Staged insertion successful';
ok($new_artist->in_storage, 'artist inserted');
ok($new_related_cd->in_storage, 'new_related_cd inserted');
}
{
- my $new_artist = $schema->resultset("Artist")->new_result({ 'name' => 'Depeche Mode' });
+ my $new_artist = $schema->resultset("Artist")->new_result({ 'name' => 'Mode Depeche' });
my $new_related_cd = $new_artist->new_related('cds', { 'title' => 'Leave Slightly Noisily', 'year' => 1982});
- eval {
+ lives_ok {
$new_related_cd->insert;
- };
- is ($@, '', 'CD insertion survives by finding artist');
+ } 'CD insertion survives by finding artist';
ok($new_artist->in_storage, 'artist inserted');
ok($new_related_cd->in_storage, 'new_related_cd inserted');
}
my $new_artist = $schema->resultset("Artist")->new ({ 'name' => 'Depeche Mode 2: Insertion Boogaloo' });
$new_cd->artist ($new_artist);
- eval {
+ lives_ok {
$new_cd->insert;
- };
- is ($@, '', 'CD insertion survives by inserting artist');
+ } 'CD insertion survives by inserting artist';
ok($new_cd->in_storage, 'new_related_cd inserted');
ok($new_artist->in_storage, 'artist inserted');
is ($retrieved_cd->artist->name, 'Depeche Mode 2: Insertion Boogaloo', 'Correct artist attached to cd');
}
+{
+ my $new_cd = $schema->resultset('CD')->new ({ 'title' => 'Leave screaming Off Key in the nude', 'year' => 1982});
+ my $new_related_artist = $new_cd->new_related( artist => { 'name' => 'Depeche Mode 3: Insertion Boogaloo' });
+ lives_ok {
+ $new_related_artist->insert;
+ $new_cd->insert;
+ } 'CD insertion survives after inserting artist';
+ ok($new_cd->in_storage, 'cd inserted');
+ ok($new_related_artist->in_storage, 'artist inserted');
+
+ my $retrieved_cd = $schema->resultset('CD')->find ({ 'title' => 'Leave screaming Off Key in the nude'});
+ ok ($retrieved_cd, 'CD found in db');
+ is ($retrieved_cd->artist->name, 'Depeche Mode 3: Insertion Boogaloo', 'Correct artist attached to cd');
+}
+
# test both sides of a 1:(1|0)
{
for my $reldir ('might_have', 'belongs_to') {
- my $artist = $schema->resultset('Artist')->next;
+ my $artist = $schema->resultset('Artist')->find(1);
my $new_track = $schema->resultset('Track')->new ({
title => "$reldir: First track of latest cd",
[
{
artist => 1,
- cdid => 9,
+ cdid => 10,
genreid => undef,
single_track => undef,
title => "$reldir: Latest cd",
tracks => [
{
- cd => 9,
+ cd => 10,
last_updated_at => undef,
last_updated_on => undef,
position => 1,
},
{
artist => 1,
- cdid => 10,
+ cdid => 11,
genreid => undef,
single_track => 19,
title => "$reldir: Awesome first single",