Some comments
[dbsrgits/DBIx-Class.git] / t / cdbi / DeepAbstractSearch / 01_search.t
1 use strict;
2 use Test::More;
3
4 BEGIN {
5     eval "use DBIx::Class::CDBICompat;";
6     if ($@) {
7         plan (skip_all => "Class::Trigger and DBIx::ContextualFetch required: $@");
8         next;
9     }
10
11     plan skip_all => 'needs DBD::SQLite for testing'
12         unless eval { require DBD::SQLite };
13     
14     plan skip_all => 'needs Class::DBI::Plugin::DeepAbstractSearch'
15         unless eval { require Class::DBI::Plugin::DeepAbstractSearch };
16     
17     plan tests => 19;
18 }
19
20 my $DB  = "t/var/cdbi_testdb";
21 unlink $DB if -e $DB;
22
23 my @DSN = ("dbi:SQLite:dbname=$DB", '', '', { AutoCommit => 0 });
24
25 package Music::DBI;
26 use base qw(DBIx::Class::CDBICompat);
27 use Class::DBI::Plugin::DeepAbstractSearch;
28 __PACKAGE__->connection(@DSN);
29
30 my $sql = <<'SQL_END';
31
32 ---------------------------------------
33 -- Artists
34 ---------------------------------------
35 CREATE TABLE artists (
36     id INTEGER NOT NULL PRIMARY KEY,
37     name VARCHAR(32)
38 );
39
40 INSERT INTO artists VALUES (1, "Willie Nelson");
41 INSERT INTO artists VALUES (2, "Patsy Cline");
42
43 ---------------------------------------
44 -- Labels
45 ---------------------------------------
46 CREATE TABLE labels (
47     id INTEGER NOT NULL PRIMARY KEY,
48     name VARCHAR(32)
49 );
50
51 INSERT INTO labels VALUES (1, "Columbia");
52 INSERT INTO labels VALUES (2, "Sony");
53 INSERT INTO labels VALUES (3, "Supraphon");
54
55 ---------------------------------------
56 -- CDs
57 ---------------------------------------
58 CREATE TABLE cds (
59     id INTEGER NOT NULL PRIMARY KEY,
60     label INTEGER,
61     artist INTEGER,
62     title VARCHAR(32),
63     year INTEGER
64 );
65 INSERT INTO cds VALUES (1, 1, 1, "Songs", 2005);
66 INSERT INTO cds VALUES (2, 2, 1, "Read Headed Stanger", 2000);
67 INSERT INTO cds VALUES (3, 1, 1, "Wanted! The Outlaws", 2004);
68 INSERT INTO cds VALUES (4, 2, 1, "The Very Best of Willie Nelson", 1999);
69
70 INSERT INTO cds VALUES (5, 1, 2, "12 Greates Hits", 1999);
71 INSERT INTO cds VALUES (6, 2, 2, "Sweet Dreams", 1995);
72 INSERT INTO cds VALUES (7, 3, 2, "The Best of Patsy Cline", 1991);
73
74 ---------------------------------------
75 -- Tracks
76 ---------------------------------------
77 CREATE TABLE tracks (
78     id INTEGER NOT NULL PRIMARY KEY,
79     cd INTEGER,
80     position INTEGER,
81     title VARCHAR(32)
82 );
83 INSERT INTO tracks VALUES (1, 1, 1, "Songs: Track 1");
84 INSERT INTO tracks VALUES (2, 1, 2, "Songs: Track 2");
85 INSERT INTO tracks VALUES (3, 1, 3, "Songs: Track 3");
86 INSERT INTO tracks VALUES (4, 1, 4, "Songs: Track 4");
87
88 INSERT INTO tracks VALUES (5, 2, 1, "Read Headed Stanger: Track 1");
89 INSERT INTO tracks VALUES (6, 2, 2, "Read Headed Stanger: Track 2");
90 INSERT INTO tracks VALUES (7, 2, 3, "Read Headed Stanger: Track 3");
91 INSERT INTO tracks VALUES (8, 2, 4, "Read Headed Stanger: Track 4");
92
93 INSERT INTO tracks VALUES (9, 3, 1, "Wanted! The Outlaws: Track 1");
94 INSERT INTO tracks VALUES (10, 3, 2, "Wanted! The Outlaws: Track 2");
95
96 INSERT INTO tracks VALUES (11, 4, 1, "The Very Best of Willie Nelson: Track 1");
97 INSERT INTO tracks VALUES (12, 4, 2, "The Very Best of Willie Nelson: Track 2");
98 INSERT INTO tracks VALUES (13, 4, 3, "The Very Best of Willie Nelson: Track 3");
99 INSERT INTO tracks VALUES (14, 4, 4, "The Very Best of Willie Nelson: Track 4");
100 INSERT INTO tracks VALUES (15, 4, 5, "The Very Best of Willie Nelson: Track 5");
101 INSERT INTO tracks VALUES (16, 4, 6, "The Very Best of Willie Nelson: Track 6");
102
103 INSERT INTO tracks VALUES (17, 5, 1, "12 Greates Hits: Track 1");
104 INSERT INTO tracks VALUES (18, 5, 2, "12 Greates Hits: Track 2");
105 INSERT INTO tracks VALUES (19, 5, 3, "12 Greates Hits: Track 3");
106 INSERT INTO tracks VALUES (20, 5, 4, "12 Greates Hits: Track 4");
107
108 INSERT INTO tracks VALUES (21, 6, 1, "Sweet Dreams: Track 1");
109 INSERT INTO tracks VALUES (22, 6, 2, "Sweet Dreams: Track 2");
110 INSERT INTO tracks VALUES (23, 6, 3, "Sweet Dreams: Track 3");
111 INSERT INTO tracks VALUES (24, 6, 4, "Sweet Dreams: Track 4");
112
113 INSERT INTO tracks VALUES (25, 7, 1, "The Best of Patsy Cline: Track 1");
114 INSERT INTO tracks VALUES (26, 7, 2, "The Best of Patsy Cline: Track 2");
115
116 SQL_END
117
118 foreach my $statement (split /;/, $sql) {
119     $statement =~ s/^\s*//gs;
120     $statement =~ s/\s*$//gs;
121     next unless $statement;
122     Music::DBI->db_Main->do($statement) or die "$@ $!";
123 }
124
125 Music::DBI->dbi_commit;
126
127 package Music::Artist;
128 use base 'Music::DBI';
129 Music::Artist->table('artists');
130 Music::Artist->columns(All => qw/id name/);
131
132
133 package Music::Label;
134 use base 'Music::DBI';
135 Music::Label->table('labels');
136 Music::Label->columns(All => qw/id name/);
137
138 package Music::CD;
139 use base 'Music::DBI';
140 Music::CD->table('cds');
141 Music::CD->columns(All => qw/id label artist title year/);
142
143
144 package Music::Track;
145 use base 'Music::DBI';
146 Music::Track->table('tracks');
147 Music::Track->columns(All => qw/id cd position title/);
148
149 Music::Artist->has_many(cds => 'Music::CD');
150 Music::Label->has_many(cds => 'Music::CD');
151 Music::CD->has_many(tracks => 'Music::Track');
152 Music::CD->has_a(artist => 'Music::Artist');
153 Music::CD->has_a(label => 'Music::Label');
154 Music::Track->has_a(cd => 'Music::CD');
155
156 package main;
157
158 {
159     my $where = { };
160     my $attr;
161     my @artists = Music::Artist->deep_search_where($where, $attr);
162     is_deeply [ sort @artists ], [ 1, 2 ],      "all without order";
163 }
164
165 {
166     my $where = { };
167     my $attr = { order_by => 'name' };
168     my @artists = Music::Artist->deep_search_where($where, $attr);
169     is_deeply \@artists, [ 2, 1 ],      "all with ORDER BY name";
170 }
171
172 {
173     my $where = { };
174     my $attr = { order_by => 'name DESC' };
175     my @artists = Music::Artist->deep_search_where($where, $attr);
176     is_deeply \@artists, [ 1, 2 ],      "all with ORDER BY name DESC";
177 }
178
179 {
180     my $where = { name => { -like => 'Patsy Cline' }, };
181     my $attr;
182     my @artists = Music::Artist->deep_search_where($where, $attr);
183     is_deeply \@artists, [ 2 ],         "simple search";
184 }
185
186 {
187     my $where = { 'artist.name' => 'Patsy Cline' };
188     my $attr = { } ;
189     my @cds = Music::CD->deep_search_where($where, $attr);
190     is_deeply [ sort @cds ], [ 5, 6, 7 ],   "Patsy's CDs";
191 }
192
193 {
194     my $where = { 'artist.name' => 'Patsy Cline' };
195     my $attr = { order_by => "title" } ;
196     my @cds = Music::CD->deep_search_where($where, $attr);
197     is_deeply [ @cds ], [ 5, 6, 7 ],        "Patsy's CDs by title";
198
199     my $count = Music::CD->count_deep_search_where($where);
200     is_deeply $count, 3,        "count Patsy's CDs by title";
201 }
202
203 {
204     my $where = { 'cd.title' => { -like => 'S%' }, };
205     my $attr = { order_by => "cd.title, title" } ;
206     my @cds = Music::Track->deep_search_where($where, $attr);
207     is_deeply [ @cds ], [1, 2, 3, 4, 21, 22, 23, 24 ],      "Tracks from CDs whose name starts with 'S'";
208 }
209
210 {
211     my $where = {
212         'cd.artist.name' => { -like => 'W%' },
213         'cd.year' => { '>' => 2000 },
214         'position' => { '<' => 3 }
215         };
216     my $attr = { order_by => "cd.title DESC, title" } ;
217     my @cds = Music::Track->deep_search_where($where, $attr);
218     is_deeply [ @cds ], [ 9, 10, 1, 2 ],        "First 2 tracks from W's albums after 2000 ";
219
220     my $count = Music::Track->count_deep_search_where($where);
221     is_deeply $count, 4,        "Count First 2 tracks from W's albums after 2000";
222 }
223
224 {
225     my $where = {
226         'cd.artist.name' => { -like => 'W%' },
227         'cd.year' => { '>' => 2000 },
228         'position' => { '<' => 3 }
229         };
230     my $attr = { order_by => [ 'cd.title DESC' , 'title' ] } ;
231     my @cds = Music::Track->deep_search_where($where, $attr);
232     is_deeply [ @cds ], [ 9, 10, 1, 2 ],        "First 2 tracks from W's albums after 2000, array ref order ";
233
234     my $count = Music::Track->count_deep_search_where($where);
235     is_deeply $count, 4,        "Count First 2 tracks from W's albums after 2000, array ref order";
236 }
237
238 {
239     my $where = { 'cd.title' => [ -and => { -like => '%o%' }, { -like => '%W%' } ] };
240     my $attr = { order_by => [ 'cd.id' ] } ;
241
242     my @tracks = Music::Track->deep_search_where($where, $attr);
243     is_deeply [ @tracks ], [ 3, 3, 4, 4, 4, 4, 4, 4 ],      "Tracks from CD titles containing 'o' AND 'W'";
244 }
245
246 {
247     my $where = { 'cd.year' => [ 1995, 1999 ] };
248     my $attr = { order_by => [ 'cd.id' ] } ;
249
250     my @tracks = Music::Track->deep_search_where($where, $attr);
251     is_deeply [ @tracks ], [ 4, 4, 4, 4, 4, 4, 5, 5, 5, 5, 6, 6, 6, 6 ],
252             "Tracks from CDs from 1995, 1999";
253 }
254
255 {
256     my $where = { 'cd.year' => { -in => [ 1995, 1999 ] } };
257     my $attr = { order_by => [ 'cd.id' ] } ;
258
259     my @tracks = Music::Track->deep_search_where($where, $attr);
260     is_deeply [ @tracks ], [ 4, 4, 4, 4, 4, 4, 5, 5, 5, 5, 6, 6, 6, 6 ],
261             "Tracks from CDs in 1995, 1999";
262 }
263
264 {
265     my $where = { -and => [ 'cd.year' => [ 1995, 1999 ], position => { '<=', 2 } ] };
266     my $attr = { order_by => [ 'cd.id' ] } ;
267
268     my @tracks = Music::Track->deep_search_where($where, $attr);
269     is_deeply [ @tracks ], [ 4, 4, 5, 5, 6, 6 ],
270             "First 2 tracks Tracks from CDs from 1995, 1999";
271 }
272
273 {
274     my $where = { -and => [ 'cd.year' => { -in => [ 1995, 1999 ] }, position => { '<=', 2 } ] };
275     my $attr = { order_by => [ 'cd.id' ] } ;
276
277     my @tracks = Music::Track->deep_search_where($where, $attr);
278     is_deeply [ @tracks ], [ 4, 4, 5, 5, 6, 6 ],
279             "First 2 tracks Tracks from CDs in 1995, 1999";
280 }
281
282 {
283     my $where = { 'label.name' => { -in => [ 'Sony', 'Supraphon', 'Bogus' ] } };
284     my $attr = { order_by => [ 'id' ] } ;
285
286     my @cds = Music::CD->deep_search_where($where, $attr);
287     is_deeply [ @cds ], [ 2, 4, 6, 7 ],
288             "CDs from Sony or Supraphon";
289 }
290
291 {
292     my $where = { 'label.name' => [ 'Sony', 'Supraphon', 'Bogus' ] };
293     my $attr = { order_by => [ 'id' ] } ;
294
295     my @cds = Music::CD->deep_search_where($where, $attr);
296     is_deeply [ @cds ], [ 2, 4, 6, 7 ],
297             "CDs from Sony or Supraphon";
298 }
299
300 END { unlink $DB if -e $DB }
301