X-Git-Url: http://git.shadowcat.co.uk/gitweb/gitweb.cgi?a=blobdiff_plain;f=t%2F95sql_maker_quote.t;h=a7687f8f461ae372824c25c3046d8c6acb5b7a7c;hb=bbdc039bb73622702cbaaa25890349e3f2664fbf;hp=162c59f131dd03aa130eb20aead9d14a02d8b660;hpb=89869c75ac532068518bfc72e33468014bb68e43;p=dbsrgits%2FDBIx-Class-Historic.git diff --git a/t/95sql_maker_quote.t b/t/95sql_maker_quote.t index 162c59f..a7687f8 100644 --- a/t/95sql_maker_quote.t +++ b/t/95sql_maker_quote.t @@ -2,8 +2,9 @@ use strict; use warnings; use Test::More; -use SQL::Abstract::Test import => ['is_same_sql_bind']; +use lib qw(t/lib); +use DBIC::SqlMakerTest; BEGIN { eval "use DBD::SQLite"; @@ -12,8 +13,6 @@ BEGIN { : ( tests => 12 ); } -use lib qw(t/lib); - use_ok('DBICTest'); my $schema = DBICTest->init_schema(); @@ -111,10 +110,7 @@ is_same_sql_bind( 'scalar ORDER BY okay (multiple values)' ); -SKIP: { - skip "SQL::Abstract < 1.49 does not support hashrefs in order_by", 2 - if $SQL::Abstract::VERSION < 1.49; - +{ ($sql, @bind) = $sql_maker->select( [ { @@ -237,27 +233,28 @@ is_same_sql_bind( 'quoted table names for UPDATE' ); +{ + ($sql, @bind) = $sql_maker->select( + [ + { + 'me' => 'cd' + } + ], + [ + 'me.*' + ], + undef, + [], + undef, + undef + ); -($sql, @bind) = $sql_maker->select( - [ - { - 'me' => 'cd' - } - ], - [ - 'me.*' - ], - undef, - [], - undef, - undef -); - -is_same_sql_bind( - $sql, \@bind, - q/SELECT `me`.* FROM `cd` `me`/, [], - 'select attr with me.* is right' -); + is_same_sql_bind( + $sql, \@bind, + q/SELECT `me`.* FROM `cd` `me`/, [], + 'select attr with me.* is right' + ); +} $sql_maker->quote_char([qw/[ ]/]);