more dt docs reorg
[dbsrgits/DBIx-Class.git] / t / resultset / as_query.t
1 #!/usr/bin/perl
2
3 use strict;
4 use warnings FATAL => 'all';
5
6 use Data::Dumper;
7
8 use Test::More;
9
10 plan ( tests => 5 );
11
12 use lib qw(t/lib);
13 use DBICTest;
14 use DBIC::SqlMakerTest;
15
16 my $schema = DBICTest->init_schema();
17 my $art_rs = $schema->resultset('Artist');
18 my $cdrs = $schema->resultset('CD');
19
20 {
21   is_same_sql_bind(
22     $art_rs->as_query,
23     "(SELECT me.artistid, me.name, me.rank, me.charfield FROM artist me)", [],
24   );
25 }
26
27 $art_rs = $art_rs->search({ name => 'Billy Joel' });
28
29 {
30   is_same_sql_bind(
31     $art_rs->as_query,
32     "(SELECT me.artistid, me.name, me.rank, me.charfield FROM artist me WHERE ( name = ? ))",
33     [ [ name => 'Billy Joel' ] ],
34   );
35 }
36
37 $art_rs = $art_rs->search({ rank => 2 });
38
39 {
40   is_same_sql_bind(
41     $art_rs->as_query,
42     "(SELECT me.artistid, me.name, me.rank, me.charfield FROM artist me WHERE ( ( ( rank = ? ) AND ( name = ? ) ) ) )",
43     [ [ rank => 2 ], [ name => 'Billy Joel' ] ],
44   );
45 }
46
47 my $rscol = $art_rs->get_column( 'charfield' );
48
49 {
50   is_same_sql_bind(
51     $rscol->as_query,
52     "(SELECT me.charfield FROM artist me WHERE ( ( ( rank = ? ) AND ( name = ? ) ) ) )",
53     [ [ rank => 2 ], [ name => 'Billy Joel' ] ],
54   );
55 }
56
57 {
58   my $rs = $schema->resultset("CD")->search(
59     { 'artist.name' => 'Caterwauler McCrae' },
60     { join => [qw/artist/]}
61   );
62   my $subsel_rs = $schema->resultset("CD")->search( { cdid => { IN => $rs->get_column('cdid')->as_query } } );
63   is($subsel_rs->count, $rs->count, 'Subselect on PK got the same row count');
64 }