t/search/select_chains.t

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