t/sqlmaker/pg.t

   1 use strict;
   2 use warnings;
   3
   4 use Test::More;
   5
   6 use lib 't/lib';
   7 use DBICTest ':DiffSQL';
   8
   9 my $schema = DBICTest->init_schema(
  10   no_deploy => 1,
  11   quote_names => 1,
  12   storage_type => 'DBIx::Class::Storage::DBI::Pg'
  13 );
  14
  15 my $rs = $schema->resultset('Artist')->search_related('cds_unordered',
  16   { "me.rank" => 13 },
  17   {
  18     prefetch => 'tracks',
  19     join => 'genre',
  20     order_by => [ 'genre.name', { -desc => \ 'tracks.title' }, { -asc => "me.name" }, { -desc => [qw(year cds_unordered.title)] } ], # me. is the artist, *NOT* the cd
  21     rows => 1,
  22   },
  23 );
  24
  25 {
  26   # THIS IS AN OFFLINE TEST
  27   # We only need this so that the thing can be verified to work without PG_DSN
  28   # Executing it while "lying" this way won't work
  29   local $rs->result_source->related_source('tracks')->column_info('title')->{data_type} = 'bool';
  30   local $rs->result_source->related_source('genre')->column_info('name')->{data_type} = 'BOOLEAN';
  31
  32   is_same_sql_bind(
  33     $rs->as_query,
  34     q{(
  35       SELECT  "cds_unordered"."cdid", "cds_unordered"."artist", "cds_unordered"."title", "cds_unordered"."year", "cds_unordered"."genreid", "cds_unordered"."single_track",
  36               "tracks"."trackid", "tracks"."cd", "tracks"."position", "tracks"."title", "tracks"."last_updated_on", "tracks"."last_updated_at"
  37         FROM "artist" "me"
  38         JOIN (
  39           SELECT "cds_unordered"."cdid", "cds_unordered"."artist", "cds_unordered"."title", "cds_unordered"."year", "cds_unordered"."genreid", "cds_unordered"."single_track"
  40             FROM "artist" "me"
  41             JOIN cd "cds_unordered"
  42               ON "cds_unordered"."artist" = "me"."artistid"
  43             LEFT JOIN "genre" "genre"
  44               ON "genre"."genreid" = "cds_unordered"."genreid"
  45             LEFT JOIN "track" "tracks"
  46               ON "tracks"."cd" = "cds_unordered"."cdid"
  47           WHERE "me"."rank" = ?
  48           GROUP BY "cds_unordered"."cdid", "cds_unordered"."artist", "cds_unordered"."title", "cds_unordered"."year", "cds_unordered"."genreid", "cds_unordered"."single_track", "me"."name"
  49           ORDER BY  BOOL_AND("genre"."name"),
  50                     BOOL_OR( tracks.title ) DESC,
  51                     "me"."name" ASC,
  52                     "year" DESC,
  53                     "cds_unordered"."title" DESC
  54           LIMIT ?
  55         ) "cds_unordered"
  56           ON "cds_unordered"."artist" = "me"."artistid"
  57         LEFT JOIN "genre" "genre"
  58           ON "genre"."genreid" = "cds_unordered"."genreid"
  59         LEFT JOIN "track" "tracks"
  60           ON "tracks"."cd" = "cds_unordered"."cdid"
  61       WHERE "me"."rank" = ?
  62       ORDER BY  "genre"."name",
  63                 tracks.title DESC,
  64                 "me"."name" ASC,
  65                 "year" DESC,
  66                 "cds_unordered"."title" DESC
  67     )},
  68     [
  69       [ { sqlt_datatype => 'integer', dbic_colname => 'me.rank' } => 13 ],
  70       [ DBIx::Class::SQLMaker::LimitDialects->__rows_bindtype => 1 ],
  71       [ { sqlt_datatype => 'integer', dbic_colname => 'me.rank' } => 13 ],
  72     ],
  73     'correct SQL with aggregate boolean order on Pg',
  74   );
  75 }
  76
  77 done_testing;