'undef =>' isn't what one would want
[dbsrgits/DBIx-Class-Historic.git] / t / 79aliasing.t
1 use strict;
2 use warnings;
3
4 use Test::More;
5 use lib qw(t/lib);
6 use DBICTest;
7
8 my $schema = DBICTest->init_schema();
9
10 plan 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 }