Commit | Line | Data |
0542ec57 |
1 | use strict; |
2 | use warnings; |
3 | use Test::More; |
4 | |
5 | use lib qw(t/lib); |
6 | use DBICTest; |
7 | use DBIC::SqlMakerTest; |
8 | |
9 | my $schema = DBICTest->init_schema(); |
10 | |
0542ec57 |
11 | my $rs = $schema->resultset('CD')->search({ -and => [ |
0e773352 |
12 | 'me.artist' => { '!=', '666' }, |
13 | 'me.artist' => { '!=', \[ '?', [ _ne => 'bar' ] ] }, |
0542ec57 |
14 | ]}); |
15 | |
16 | # bogus sql query to make sure bind composition happens properly |
17 | my $complex_rs = $rs->search({}, { |
18 | '+columns' => { cnt => $rs->count_rs->as_query }, |
19 | '+select' => \[ 'me.artist + ?', [ _add => 1 ] ], # free select |
20 | group_by => ['me.cdid', \[ 'me.artist - ?', [ _sub => 2 ] ] ], |
21 | having => \[ 'me.artist < ?', [ _lt => 3 ] ], |
22 | order_by => \[ 'me.artist * ? ', [ _mu => 4 ] ], |
23 | rows => 1, |
24 | page => 3, |
25 | }); |
26 | |
27 | for (1,2) { |
28 | is_same_sql_bind ( |
29 | $complex_rs->as_query, |
30 | '( |
31 | SELECT me.cdid, me.artist, me.title, me.year, me.genreid, me.single_track, |
32 | (SELECT COUNT( * ) FROM cd me WHERE me.artist != ? AND me.artist != ?), |
33 | me.artist + ? |
34 | FROM cd me |
35 | WHERE me.artist != ? AND me.artist != ? |
36 | GROUP BY me.cdid, me.artist - ? |
37 | HAVING me.artist < ? |
38 | ORDER BY me.artist * ? |
39 | LIMIT 1 OFFSET 2 |
40 | )', |
41 | [ |
0e773352 |
42 | [ { sqlt_datatype => 'integer', dbic_colname => 'me.artist' } |
43 | => 666 ], |
44 | [ { dbic_colname => '_ne' } => 'bar' ], |
45 | [ { dbic_colname => '_add' } => 1 ], |
46 | [ { sqlt_datatype => 'integer', dbic_colname => 'me.artist' } |
47 | => 666 ], |
48 | [ { dbic_colname => '_ne' } => 'bar' ], |
49 | [ { dbic_colname => '_sub' } => 2 ], |
50 | [ { dbic_colname => '_lt' } => 3 ], |
51 | [ { dbic_colname => '_mu' } => 4 ], |
0542ec57 |
52 | ], |
53 | 'Correct crazy sql', |
54 | ); |
55 | } |
56 | |
57 | # see if we get anything back at all |
58 | isa_ok ($complex_rs->next, 'DBIx::Class::Row'); |
59 | |
60 | done_testing; |