Commit | Line | Data |
59af6677 |
1 | #!/usr/bin/perl |
2 | |
3 | use strict; |
4 | use warnings FATAL => 'all'; |
5 | |
70eb901c |
6 | use Data::Dumper; |
7 | |
59af6677 |
8 | use Test::More; |
d0a3e4e2 |
9 | |
20ea616f |
10 | plan ( tests => 4 ); |
d0a3e4e2 |
11 | |
59af6677 |
12 | use lib qw(t/lib); |
13 | use DBICTest; |
152d414d |
14 | use DBIC::SqlMakerTest; |
59af6677 |
15 | |
4dc99a01 |
16 | my $schema = DBICTest->init_schema(); |
17 | my $art_rs = $schema->resultset('Artist'); |
18 | my $cdrs = $schema->resultset('CD'); |
59af6677 |
19 | |
20 | { |
21 | my $arr = $art_rs->as_query; |
4dc99a01 |
22 | my ($query, @bind) = @{$$arr}; |
59af6677 |
23 | |
152d414d |
24 | is_same_sql_bind( |
25 | $query, \@bind, |
45594863 |
26 | "(SELECT me.artistid, me.name, me.rank, me.charfield FROM artist me)", [], |
152d414d |
27 | ); |
59af6677 |
28 | } |
29 | |
30 | $art_rs = $art_rs->search({ name => 'Billy Joel' }); |
31 | |
32 | { |
33 | my $arr = $art_rs->as_query; |
4dc99a01 |
34 | my ($query, @bind) = @{$$arr}; |
59af6677 |
35 | |
152d414d |
36 | is_same_sql_bind( |
37 | $query, \@bind, |
45594863 |
38 | "(SELECT me.artistid, me.name, me.rank, me.charfield FROM artist me WHERE ( name = ? ))", |
152d414d |
39 | [ [ name => 'Billy Joel' ] ], |
40 | ); |
59af6677 |
41 | } |
42 | |
43 | $art_rs = $art_rs->search({ rank => 2 }); |
44 | |
45 | { |
03834f77 |
46 | my $arr = $art_rs->as_query; |
4dc99a01 |
47 | my ($query, @bind) = @{$$arr}; |
59af6677 |
48 | |
152d414d |
49 | is_same_sql_bind( |
50 | $query, \@bind, |
45594863 |
51 | "(SELECT me.artistid, me.name, me.rank, me.charfield FROM artist me WHERE ( ( ( rank = ? ) AND ( name = ? ) ) ) )", |
152d414d |
52 | [ [ rank => 2 ], [ name => 'Billy Joel' ] ], |
53 | ); |
59af6677 |
54 | } |
55 | |
658fa250 |
56 | my $rscol = $art_rs->get_column( 'charfield' ); |
57 | |
58 | { |
03834f77 |
59 | my $arr = $rscol->as_query; |
4dc99a01 |
60 | my ($query, @bind) = @{$$arr}; |
658fa250 |
61 | |
152d414d |
62 | is_same_sql_bind( |
63 | $query, \@bind, |
45594863 |
64 | "(SELECT me.charfield FROM artist me WHERE ( ( ( rank = ? ) AND ( name = ? ) ) ) )", |
152d414d |
65 | [ [ rank => 2 ], [ name => 'Billy Joel' ] ], |
66 | ); |
658fa250 |
67 | } |
70eb901c |
68 | |
59af6677 |
69 | __END__ |