t/sqlmaker/quotes.t

   1 BEGIN { do "./t/lib/ANFANG.pm" or die ( $@ || $! ) }
   2
   3 use strict;
   4 use warnings;
   5
   6 use Test::More;
   7
   8
   9 use DBICTest ':DiffSQL';
  10
  11 my $schema = DBICTest->init_schema( no_deploy => 1 );
  12
  13 $schema->connection(
  14   @{ $schema->storage->_dbi_connect_info },
  15   { AutoCommit => 1, quote_char => [qw/[ ]/] }
  16 );
  17
  18 my $rs =  $schema->resultset('CD')->search(
  19   { 'me.year' => 2001, 'artist.name' => 'Caterwauler McCrae' },
  20   { join => 'artist' }
  21 )->count_rs;
  22
  23 my $expected_bind = [
  24   [ { dbic_colname => "artist.name", sqlt_datatype => "varchar", sqlt_size => 100 }
  25     => 'Caterwauler McCrae' ],
  26   [ { dbic_colname => "me.year", sqlt_datatype => "varchar", sqlt_size => 100 }
  27     => 2001 ],
  28 ];
  29
  30 is_same_sql_bind(
  31   $rs->as_query,
  32   "(SELECT COUNT( * ) FROM cd [me] JOIN [artist] [artist] ON [artist].[artistid] = [me].[artist] WHERE ( [artist].[name] = ? AND [me].[year] = ? ))",
  33   $expected_bind,
  34   'got correct SQL for count query with bracket quoting'
  35 );
  36
  37 $schema->storage->sql_maker->quote_char('`');
  38 $schema->storage->sql_maker->name_sep('.');
  39
  40 is_same_sql_bind (
  41   $rs->as_query,
  42   "(SELECT COUNT( * ) FROM cd `me`  JOIN `artist` `artist` ON ( `artist`.`artistid` = `me`.`artist` ) WHERE ( `artist`.`name` = ? AND `me`.`year` = ? ))",
  43   $expected_bind,
  44   'got correct SQL for count query with mysql quoting'
  45 );
  46
  47 # !!! talk to ribasushi *explicitly* before modfying these tests !!!
  48 {
  49   is_same_sql_bind(
  50     $schema->resultset('CD')->search({}, { order_by => 'year DESC', columns => 'cdid' })->as_query,
  51     '(SELECT `me`.`cdid` FROM cd `me` ORDER BY `year DESC`)',
  52     [],
  53     'quoted ORDER BY with DESC (should use a scalarref anyway)'
  54   );
  55
  56   is_same_sql_bind(
  57     $schema->resultset('CD')->search({}, { order_by => \'year DESC', columns => 'cdid' })->as_query,
  58     '(SELECT `me`.`cdid` FROM cd `me` ORDER BY year DESC)',
  59     [],
  60     'did not quote ORDER BY with scalarref',
  61   );
  62 }
  63
  64 is_same_sql(
  65   scalar $schema->storage->sql_maker->update('group', { order => 12, name => 'Bill' }),
  66   'UPDATE `group` SET `name` = ?, `order` = ?',
  67   'quoted table names for UPDATE' );
  68
  69 done_testing;