t/sqlmaker/quotes.t

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