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=0a385dc73087decbc6b5e7e231097b7a58948a41;hpb=949172b0fa30a832d268c3f55f97247a10742314;p=dbsrgits%2FDBIx-Class-Historic.git diff --git a/t/95sql_maker_quote.t b/t/95sql_maker_quote.t index 0a385dc..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 DBIC::SqlMakerTest; +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,10 +233,7 @@ is_same_sql_bind( 'quoted table names for UPDATE' ); -SKIP: { - skip 1, "select attr with star does not work in SQL::Abstract < 1.49" - if $SQL::Abstract::VERSION < 1.49; - +{ ($sql, @bind) = $sql_maker->select( [ {