1use strict; 2use warnings; 3 4use Test::More; 5use lib qw(t/lib); 6use DBICTest; 7 8my $schema = DBICTest->init_schema(); 9 10plan tests => 11; 11 12# Check that you can leave off the alias 13{ 14 my $artist = $schema->resultset('Artist')->find(1); 15 16 my $existing_cd = $artist->search_related('cds', undef, { prefetch => 'tracks' })->find_or_create({ 17 title => 'Ted', 18 year => 2006, 19 }); 20 ok(! $existing_cd->is_changed, 'find_or_create on prefetched has_many with same column names: row is clean'); 21 is($existing_cd->title, 'Ted', 'find_or_create on prefetched has_many with same column names: name matches existing entry'); 22 23 my $new_cd = $artist->search_related('cds', undef, { prefetch => 'tracks' })->find_or_create({ 24 title => 'Something Else', 25 year => 2006, 26 }); 27 ok(! $new_cd->is_changed, 'find_or_create on prefetched has_many with same column names: row is clean'); 28 is($new_cd->title, 'Something Else', 'find_or_create on prefetched has_many with same column names: title matches'); 29} 30 31# Check that you can specify the alias 32{ 33 my $artist = $schema->resultset('Artist')->find(1); 34 35 my $existing_cd = $artist->search_related('cds', undef, { prefetch => 'tracks' })->find_or_create({ 36 'me.title' => 'Something Else', 37 'me.year' => 2006, 38 }); 39 ok(! $existing_cd->is_changed, 'find_or_create on prefetched has_many with same column names: row is clean'); 40 is($existing_cd->title, 'Something Else', 'find_or_create on prefetched has_many with same column names: can be disambiguated with "me." for existing entry'); 41 42 my $new_cd = $artist->search_related('cds', undef, { prefetch => 'tracks' })->find_or_create({ 43 'me.title' => 'Some New Guy', 44 'me.year' => 2006, 45 }); 46 ok(! $new_cd->is_changed, 'find_or_create on prefetched has_many with same column names: row is clean'); 47 is($new_cd->title, 'Some New Guy', 'find_or_create on prefetched has_many with same column names: can be disambiguated with "me." for new entry'); 48} 49 50# Don't pass column names with related alias to new_result 51{ 52 my $cd_rs = $schema->resultset('CD')->search({ 'artist.name' => 'Caterwauler McCrae' }, { join => 'artist' }); 53 54 my $cd = $cd_rs->find_or_new({ title => 'Huh?', year => 2006 }); 55 is($cd->in_storage, 0, 'new CD not in storage yet'); 56 is($cd->title, 'Huh?', 'new CD title is correct'); 57 is($cd->year, 2006, 'new CD year is correct'); 58} 59