Commit | Line | Data |
59af6677 |
1 | #!/usr/bin/perl |
2 | |
3 | use strict; |
4 | use warnings FATAL => 'all'; |
5 | |
6 | use Test::More; |
7 | use lib qw(t/lib); |
8 | use DBICTest; |
9 | |
10 | plan tests => 6; |
11 | |
12 | my $schema = DBICTest->init_schema(); |
13 | my $art_rs = $schema->resultset('Artist'); |
14 | |
15 | { |
16 | my $arr = $art_rs->as_query; |
17 | my ($query, @bind) = @$arr; |
18 | |
19 | is( $query, "SELECT me.artistid, me.name, me.rank, me.charfield FROM artist me" ); |
20 | is_deeply( \@bind, [] ); |
21 | } |
22 | |
23 | $art_rs = $art_rs->search({ name => 'Billy Joel' }); |
24 | |
25 | { |
26 | my $arr = $art_rs->as_query; |
27 | my ($query, @bind) = @$arr; |
28 | |
29 | is( $query, "SELECT me.artistid, me.name, me.rank, me.charfield FROM artist me WHERE ( name = ? )" ); |
30 | is_deeply( \@bind, [ [ name => 'Billy Joel' ] ] ); |
31 | } |
32 | |
33 | $art_rs = $art_rs->search({ rank => 2 }); |
34 | |
35 | { |
36 | my $arr = $art_rs->as_query; |
37 | my ($query, @bind) = @$arr; |
38 | |
39 | is( $query, "SELECT me.artistid, me.name, me.rank, me.charfield FROM artist me WHERE ( ( ( rank = ? ) AND ( name = ? ) ) )" ); |
40 | is_deeply( \@bind, [ [ rank => 2 ], [ name => 'Billy Joel' ] ] ); |
41 | } |
42 | |
43 | __END__ |