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