Commit | Line | Data |
e4bb6727 |
1 | use strict; |
2 | use warnings; |
3 | |
4 | use Test::More; |
5 | use Test::Exception; |
6 | |
7 | use lib qw(t/lib); |
a5a7bb73 |
8 | use DBICTest ':DiffSQL'; |
e4bb6727 |
9 | |
10 | my $schema = DBICTest->init_schema(); |
11 | |
12 | my $new_rs = $schema->resultset('Artist')->search({ |
13 | 'artwork_to_artist.artist_id' => 1 |
14 | }, { |
15 | join => 'artwork_to_artist' |
16 | }); |
17 | lives_ok { $new_rs->count } 'regular search works'; |
18 | lives_ok { $new_rs->search({ 'artwork_to_artist.artwork_cd_id' => 1})->count } |
19 | '... and chaining off that using join works'; |
20 | lives_ok { $new_rs->search({ 'artwork_to_artist.artwork_cd_id' => 1})->as_subselect_rs->count } |
21 | '... and chaining off the virtual view works'; |
22 | dies_ok { $new_rs->as_subselect_rs->search({'artwork_to_artist.artwork_cd_id'=> 1})->count } |
23 | q{... but chaining off of a virtual view using join doesn't work}; |
ec781604 |
24 | |
25 | my $book_rs = $schema->resultset ('BooksInLibrary')->search ({}, { join => 'owner' }); |
26 | |
27 | is_same_sql_bind ( |
28 | $book_rs->as_subselect_rs->as_query, |
8273e845 |
29 | '(SELECT me.id, me.source, me.owner, me.title, me.price |
ec781604 |
30 | FROM ( |
31 | SELECT me.id, me.source, me.owner, me.title, me.price |
32 | FROM books me |
33 | JOIN owners owner ON owner.id = me.owner |
34 | WHERE ( source = ? ) |
35 | ) me |
36 | )', |
0e773352 |
37 | [ [ { sqlt_datatype => 'varchar', sqlt_size => 100, dbic_colname => 'source' } |
38 | => 'Library' ] ], |
ec781604 |
39 | 'Resultset-class attributes do not seep outside of the subselect', |
40 | ); |
41 | |
ff46b7b3 |
42 | is_same_sql_bind( |
43 | $schema->resultset('CD')->search ({}, { |
44 | rows => 2, |
45 | join => [ 'genre', { artist => 'cds' } ], |
46 | distinct => 1, |
47 | columns => { |
48 | title => 'me.title', |
49 | artist__name => 'artist.name', |
50 | genre__name => 'genre.name', |
51 | cds_for_artist => \ '(SELECT COUNT(*) FROM cds WHERE cd.artist = artist.id)', |
52 | }, |
53 | order_by => { -desc => 'me.year' }, |
54 | })->count_rs->as_query, |
55 | '( |
56 | SELECT COUNT( * ) |
57 | FROM ( |
58 | SELECT artist.name AS artist__name, (SELECT COUNT(*) FROM cds WHERE cd.artist = artist.id), genre.name AS genre__name, me.title, me.year |
59 | FROM cd me |
60 | LEFT JOIN genre genre |
61 | ON genre.genreid = me.genreid |
62 | JOIN artist artist ON artist.artistid = me.artist |
63 | GROUP BY artist.name, (SELECT COUNT(*) FROM cds WHERE cd.artist = artist.id), genre.name, me.title, me.year |
64 | LIMIT ? |
65 | ) me |
66 | )', |
67 | [ [{ sqlt_datatype => 'integer' } => 2 ] ], |
68 | ); |
69 | |
e4bb6727 |
70 | done_testing; |