Fix parsing DSN when the driver part includes DBI attributes
[dbsrgits/DBIx-Class.git] / t / 76joins.t
1 use strict;
2 use warnings;
3
4 use Test::More;
5 use lib qw(t/lib);
6 use DBICTest ':DiffSQL';
7
8 my $schema = DBICTest->init_schema();
9
10 my $rs = $schema->resultset("CD")->search(
11            { 'year' => 2001, 'artist.name' => 'Caterwauler McCrae' },
12            { from => [
13               { 'me' => 'cd' },
14               [
15                 { artist => 'artist' },
16                 { 'me.artist' => { -ident => 'artist.artistid' } },
17               ],
18            ] }
19          );
20
21 is( $rs + 0, 1, "Single record in resultset");
22
23 is($rs->first->title, 'Forkful of bees', 'Correct record returned');
24
25 $rs = $schema->resultset("CD")->search(
26            { 'year' => 2001, 'artist.name' => 'Caterwauler McCrae' },
27            { join => 'artist' });
28
29 is( $rs + 0, 1, "Single record in resultset");
30
31 is($rs->first->title, 'Forkful of bees', 'Correct record returned');
32
33 $rs = $schema->resultset("CD")->search(
34            { 'artist.name' => 'We Are Goth',
35              'liner_notes.notes' => 'Kill Yourself!' },
36            { join => [ qw/artist liner_notes/ ] });
37
38 is( $rs + 0, 1, "Single record in resultset");
39
40 is($rs->first->title, 'Come Be Depressed With Us', 'Correct record returned');
41
42 # when using join attribute, make sure slice()ing all objects has same count as all()
43 $rs = $schema->resultset("CD")->search(
44     { 'artist' => 1 },
45     { join => [qw/artist/], order_by => 'artist.name' }
46 );
47 is( scalar $rs->all, scalar $rs->slice(0, $rs->count - 1), 'slice() with join has same count as all()' );
48
49 ok(!$rs->slice($rs->count+1000, $rs->count+1002)->count,
50   'Slicing beyond end of rs returns a zero count');
51
52 $rs = $schema->resultset("Artist")->search(
53         { 'liner_notes.notes' => 'Kill Yourself!' },
54         { join => { 'cds' => 'liner_notes' } });
55
56 is( $rs->count, 1, "Single record in resultset");
57
58 is($rs->first->name, 'We Are Goth', 'Correct record returned');
59
60
61 {
62     $schema->populate('Artist', [
63         [ qw/artistid name/ ],
64         [ 4, 'Another Boy Band' ],
65     ]);
66     $schema->populate('CD', [
67         [ qw/cdid artist title year/ ],
68         [ 6, 2, "Greatest Hits", 2001 ],
69         [ 7, 4, "Greatest Hits", 2005 ],
70         [ 8, 4, "BoyBandBlues", 2008 ],
71     ]);
72     $schema->populate('TwoKeys', [
73         [ qw/artist cd/ ],
74         [ 2, 4 ],
75         [ 2, 6 ],
76         [ 4, 7 ],
77         [ 4, 8 ],
78     ]);
79
80     my $cd_count = sub { $schema->resultset("CD")->count };
81     my $tk_count = sub { $schema->resultset("TwoKeys")->count };
82
83     is($cd_count->(), 8, '8 rows in table cd');
84     is($tk_count->(), 7, '7 rows in table twokeys');
85
86     my $artist1_rs = $schema->resultset("CD")->search(
87       { 'artist.name' => 'Caterwauler McCrae' },
88       { join => [qw/artist/]}
89     );
90
91     my $artist2_rs = $schema->resultset("CD")->search(
92       { 'artist.name' => 'Random Boy Band' },
93       { join => [qw/artist/]}
94     );
95
96     is( $artist1_rs->count, 3, '3 Caterwauler McCrae CDs' );
97     ok( $artist1_rs->delete, 'Successfully deleted 3 CDs' );
98     is( $artist1_rs->count, 0, '0 Caterwauler McCrae CDs' );
99     is( $artist2_rs->count, 2, '3 Random Boy Band CDs' );
100     ok( $artist2_rs->update( { 'artist' => 1 } ) );
101     is( $artist2_rs->count, 0, '0 Random Boy Band CDs' );
102     is( $artist1_rs->count, 2, '2 Caterwauler McCrae CDs' );
103
104     # test update on multi-column-pk
105     my $tk1_rs = $schema->resultset("TwoKeys")->search(
106       {
107         'artist.name' => { like => '%Boy Band' },
108         'cd.title'    => 'Greatest Hits',
109       },
110       { join => [qw/artist cd/] }
111     );
112
113     my $tk2_rs = $schema->resultset("TwoKeys")->search(
114       { 'artist.name' => 'Caterwauler McCrae' },
115       { join => [qw/artist/]}
116     );
117
118     is( $tk2_rs->count, 2, 'TwoKeys count == 2' );
119     is( $tk1_rs->count, 2, 'TwoKeys count == 2' );
120     ok( $tk1_rs->update( { artist => 1 } ) );
121     is( $tk1_rs->count, 0, 'TwoKeys count == 0' );
122     is( $tk2_rs->count, 4, '2 Caterwauler McCrae CDs' );
123     ok( $tk2_rs->delete, 'Successfully deleted 4 CDs' );
124     is($cd_count->(), 5, '5 rows in table cd');
125     is($tk_count->(), 3, '3 rows in table twokeys');
126 }
127
128 done_testing;