t/search/select_chains.t

   1 use strict;
   2 use warnings;
   3
   4 use Test::More;
   5
   6 use lib qw(t/lib);
   7 use DBIC::SqlMakerTest;
   8 use DBICTest;
   9
  10
  11 my $schema = DBICTest->init_schema();
  12
  13 my @chain = (
  14   {
  15     columns     => [ 'cdid' ],
  16     '+columns'  => [ { title_lc => { lower => 'title', -as => 'lctitle' } } ],
  17     '+select'   => [ 'genreid' ],
  18     '+as'       => [ 'genreid' ],
  19   } => 'SELECT me.cdid, LOWER( title ) AS lctitle, me.genreid FROM cd me',
  20
  21   {
  22     '+columns'  => [ { max_year => { max => 'me.year', -as => 'last_y' }}, ],
  23     '+select'   => [ { count => 'me.cdid' }, ],
  24     '+as'       => [ 'cnt' ],
  25   } => 'SELECT me.cdid, LOWER( title ) AS lctitle, me.genreid, MAX( me.year ) AS last_y, COUNT( me.cdid ) FROM cd me',
  26
  27   {
  28     select      => [ { min => 'me.cdid' }, ],
  29     as          => [ 'min_id' ],
  30   } => 'SELECT MIN( me.cdid ) FROM cd me',
  31
  32   {
  33     '+columns' => [ { cnt => { count => 'cdid', -as => 'cnt' } } ],
  34   } => 'SELECT MIN( me.cdid ), COUNT ( cdid ) AS cnt FROM cd me',
  35
  36   {
  37     columns => [ { foo => { coalesce => [qw/a b c/], -as => 'firstfound' } }  ],
  38   } => 'SELECT COALESCE( a, b, c ) AS firstfound FROM cd me',
  39
  40   {
  41     '+columns' => [ 'me.year' ],
  42     '+select' => [ { max => 'me.year', -as => 'last_y' } ],
  43     '+as' => [ 'ly' ],
  44   } => 'SELECT COALESCE( a, b, c ) AS firstfound, me.year, MAX( me.year ) AS last_y FROM cd me',
  45
  46   {
  47     '+select'   => [ { count => 'me.cdid', -as => 'cnt' } ],
  48     '+as'       => [ 'cnt' ],
  49   } => 'SELECT COALESCE( a, b, c ) AS firstfound, me.year, MAX( me.year ) AS last_y, COUNT( me.cdid ) AS cnt FROM cd me',
  50
  51   # adding existing stuff should not alter selector
  52   {
  53     '+select'   => [ 'me.year' ],
  54     '+as'       => [ 'year' ],
  55   } => 'SELECT COALESCE( a, b, c ) AS firstfound, me.year, MAX( me.year ) AS last_y, COUNT( me.cdid ) AS cnt FROM cd me',
  56
  57   {
  58     '+columns'   => [ 'me.year' ],
  59   } => 'SELECT COALESCE( a, b, c ) AS firstfound, me.year, MAX( me.year ) AS last_y, COUNT( me.cdid ) AS cnt FROM cd me',
  60
  61   {
  62     '+columns'   => 'me.year',
  63   } => 'SELECT COALESCE( a, b, c ) AS firstfound, me.year, MAX( me.year ) AS last_y, COUNT( me.cdid ) AS cnt FROM cd me',
  64
  65 );
  66
  67 my $rs = $schema->resultset('CD');
  68
  69 my $testno = 1;
  70 while (@chain) {
  71   my $attrs = shift @chain;
  72   my $sql = shift @chain;
  73
  74   $rs = $rs->search ({}, $attrs);
  75
  76   is_same_sql_bind (
  77     $rs->as_query,
  78     "($sql)",
  79     [],
  80     "Test $testno of SELECT assembly ok",
  81   );
  82
  83   $testno++;
  84 }
  85
  86 # Make sure we don't lose bits even with weird selector specs
  87 # also check that the default selector list is lazy
  88 $rs = $schema->resultset('CD');
  89 for my $attr (
  90   { '+columns'  => [ 'me.title' ] },    # this one should be de-duplicated but not the select's
  91
  92   { '+select'   => \'me.year AS foo' },   # duplication of identical select expected (FIXME ?)
  93   { '+select'   => \['me.year AS foo'] },
  94
  95   { '+select'   => [ \'me.artistid AS bar' ] },
  96   { '+select'   => { count => 'artistid', -as => 'baz' } },
  97 ) {
  98   for (qw/columns select as/) {
  99     ok (! exists $rs->{attrs}{$_}, "No eager '$_' attr on fresh resultset" );
 100   }
 101
 102   $rs = $rs->search({}, $attr);
 103 }
 104
 105 is_same_sql_bind (
 106   $rs->as_query,
 107   '( SELECT
 108       me.cdid,
 109       me.artist,
 110       me.title,
 111       me.year,
 112       me.genreid,
 113       me.single_track,
 114       COUNT( artistid ) AS baz,
 115       me.year AS foo,
 116       me.year AS foo,
 117       me.artistid AS bar
 118         FROM cd me
 119   )',
 120   [],
 121   'Correct chaining before attr resolution'
 122 );
 123
 124 done_testing;