X-Git-Url: http://git.shadowcat.co.uk/gitweb/gitweb.cgi?a=blobdiff_plain;f=t%2Fsearch%2Fsubquery.t;h=15ac08ed05cb0fd3425f08300186205a2cd389a6;hb=a614f1d20e6e020bb7b58bc77f1c8efb9cf43a2b;hp=72eaeec2a1787ee17f68e2576d4157ca592170ef;hpb=69989ea9caa5b8231451a2d715f2d40f60b338f1;p=dbsrgits%2FDBIx-Class.git diff --git a/t/search/subquery.t b/t/search/subquery.t index 72eaeec..15ac08e 100644 --- a/t/search/subquery.t +++ b/t/search/subquery.t @@ -3,11 +3,8 @@ use strict; use warnings; -use Data::Dumper; - use Test::More; - use lib qw(t/lib); use DBICTest; use DBIC::SqlMakerTest; @@ -19,11 +16,22 @@ my $cdrs = $schema->resultset('CD'); my @tests = ( { rs => $cdrs, + search => \[ "title = ? AND year LIKE ?", 'buahaha', '20%' ], + attrs => { rows => 5 }, + sqlbind => \[ + "( SELECT me.cdid, me.artist, me.title, me.year, me.genreid, me.single_track FROM cd me WHERE (title = ? AND year LIKE ?) LIMIT 5)", + 'buahaha', + '20%', + ], + }, + + { + rs => $cdrs, search => { artist_id => { 'in' => $art_rs->search({}, { rows => 1 })->get_column( 'id' )->as_query }, }, sqlbind => \[ - "( SELECT me.cdid,me.artist,me.title,me.year,me.genreid,me.single_track FROM cd me WHERE artist_id IN ( SELECT id FROM artist me LIMIT 1 ) )", + "( SELECT me.cdid, me.artist, me.title, me.year, me.genreid, me.single_track FROM cd me WHERE artist_id IN ( SELECT id FROM artist me LIMIT 1 ) )", ], }, @@ -60,7 +68,10 @@ my @tests = ( ], }, sqlbind => \[ - "( SELECT cd2.cdid, cd2.artist, cd2.title, cd2.year, cd2.genreid, cd2.single_track FROM (SELECT me.cdid,me.artist,me.title,me.year,me.genreid,me.single_track FROM cd me WHERE id > ?) cd2 )", + "( SELECT cd2.cdid, cd2.artist, cd2.title, cd2.year, cd2.genreid, cd2.single_track FROM ( + SELECT me.cdid, me.artist, me.title, me.year, me.genreid, me.single_track FROM cd me WHERE id > ? + ) cd2 + )", [ 'id', 20 ] ], }, @@ -68,9 +79,13 @@ my @tests = ( { rs => $art_rs, attrs => { - from => [ { 'me' => 'artist' }, - [ { 'cds' => $cdrs->search({},{ 'select' => [\'me.artist as cds_artist' ]})->as_query }, - { 'me.artistid' => 'cds_artist' } ] ] + from => [ + { 'me' => 'artist' }, + [ + { 'cds' => $cdrs->search({}, { 'select' => [\'me.artist as cds_artist' ]})->as_query }, + { 'me.artistid' => 'cds_artist' } + ] + ] }, sqlbind => \[ "( SELECT me.artistid, me.name, me.rank, me.charfield FROM artist me JOIN (SELECT me.artist as cds_artist FROM cd me) cds ON me.artistid = cds_artist )" @@ -95,9 +110,9 @@ my @tests = ( sqlbind => \[ "( SELECT cd2.cdid, cd2.artist, cd2.title, cd2.year, cd2.genreid, cd2.single_track FROM - (SELECT cd3.cdid,cd3.artist,cd3.title,cd3.year,cd3.genreid,cd3.single_track + (SELECT cd3.cdid, cd3.artist, cd3.title, cd3.year, cd3.genreid, cd3.single_track FROM - (SELECT me.cdid,me.artist,me.title,me.year,me.genreid,me.single_track + (SELECT me.cdid, me.artist, me.title, me.year, me.genreid, me.single_track FROM cd me WHERE id < ?) cd3 WHERE id > ?) cd2 )", @@ -130,7 +145,10 @@ my @tests = ( ], }, sqlbind => \[ - "(SELECT cd2.cdid, cd2.artist, cd2.title, cd2.year, cd2.genreid, cd2.single_track FROM (SELECT me.cdid,me.artist,me.title,me.year,me.genreid,me.single_track FROM cd me WHERE title = ?) cd2)", + "(SELECT cd2.cdid, cd2.artist, cd2.title, cd2.year, cd2.genreid, cd2.single_track FROM ( + SELECT me.cdid, me.artist, me.title, me.year, me.genreid, me.single_track FROM cd me WHERE title = ? + ) cd2 + )", [ 'title', 'Thriller' ]