X-Git-Url: http://git.shadowcat.co.uk/gitweb/gitweb.cgi?a=blobdiff_plain;f=t%2Fcount%2Fprefetch.t;h=eb18236d804cdad7655aa7a1a8c2aad251270daa;hb=a5a7bb733a940db710b7408508374833683a2e79;hp=654520b59b4537102eb35212c377fbb8186500c1;hpb=539ffe8768e85b2061aa3bb3616da4f848a582f3;p=dbsrgits%2FDBIx-Class.git diff --git a/t/count/prefetch.t b/t/count/prefetch.t index 654520b..eb18236 100644 --- a/t/count/prefetch.t +++ b/t/count/prefetch.t @@ -4,8 +4,7 @@ use warnings; use lib qw(t/lib); use Test::More; -use DBICTest; -use DBIC::SqlMakerTest; +use DBICTest ':DiffSQL'; my $schema = DBICTest->init_schema(); @@ -31,9 +30,9 @@ my $schema = DBICTest->init_schema(); JOIN artist artist ON artist.artistid = cds.artist WHERE tracks.position = ? OR tracks.position = ? GROUP BY cds.cdid - ) count_subq + ) cds )', - [ map { [ 'tracks.position' => $_ ] } (1, 2) ], + [ map { [ { sqlt_datatype => 'int', dbic_colname => 'tracks.position' } => $_ ] } (1, 2) ], ); } @@ -55,16 +54,19 @@ my $schema = DBICTest->init_schema(); SELECT genre.genreid FROM ( SELECT me.artistid, me.name, me.rank, me.charfield - FROM artist me GROUP BY me.artistid, me.name, me.rank, me.charfield + FROM artist me + GROUP BY me.artistid, me.name, me.rank, me.charfield ) me JOIN cd cds ON cds.artist = me.artistid JOIN genre genre ON genre.genreid = cds.genreid - LEFT JOIN cd cds_2 ON cds_2.genreid = genre.genreid - WHERE ( genre.name = ? ) GROUP BY genre.genreid + WHERE ( genre.name = ? ) + GROUP BY genre.genreid ) - count_subq + genre )', - [ [ 'genre.name' => 'emo' ] ], + [ [ { sqlt_datatype => 'varchar', sqlt_size => 100, dbic_colname => 'genre.name' } + => 'emo' ] + ], ); } @@ -90,7 +92,7 @@ my $schema = DBICTest->init_schema(); LEFT JOIN lyrics lyrics ON lyrics.track_id = tracks.trackid WHERE lyrics.lyric_id IS NULL AND (position = ? OR position = ?) )', - [ map { [ position => $_ ] } (1, 2) ], + [ map { [ { sqlt_datatype => 'int', dbic_colname => 'position' } => $_ ] } (1, 2) ], ); }