X-Git-Url: http://git.shadowcat.co.uk/gitweb/gitweb.cgi?a=blobdiff_plain;f=t%2F95sql_maker.t;h=c4a65a29381a194f57f2bc98191ad9e221cc0239;hb=07dc2055e959594655d2fd8103330926e0f57030;hp=0f7dda87196f5450f2c7211fd6b9aea4c9b483dd;hpb=64e34b4b2e12ed7db1580eb73d0298319655f559;p=dbsrgits%2FDBIx-Class.git diff --git a/t/95sql_maker.t b/t/95sql_maker.t index 0f7dda8..c4a65a2 100644 --- a/t/95sql_maker.t +++ b/t/95sql_maker.t @@ -2,16 +2,12 @@ use strict; use warnings; use Test::More; +use Test::Exception; use lib qw(t/lib); use DBIC::SqlMakerTest; -BEGIN { - eval "use DBD::SQLite"; - plan $@ - ? ( skip_all => 'needs DBD::SQLite for testing' ) - : ( tests => 3 ); -} +plan tests => 4; use_ok('DBICTest'); @@ -20,10 +16,7 @@ my $schema = DBICTest->init_schema(); my $sql_maker = $schema->storage->sql_maker; -SKIP: { - skip "SQL::Abstract < 1.49 does not pass through arrayrefs", 2 - if $SQL::Abstract::VERSION < 1.49; - +{ my ($sql, @bind) = $sql_maker->insert( 'lottery', { @@ -55,3 +48,10 @@ SKIP: { 'sql_maker passes arrayrefs in update' ); } + +# Make sure the carp/croak override in SQLA works (via SQLAHacks) +my $file = __FILE__; +$file = "\Q$file\E"; +throws_ok (sub { + $schema->resultset ('Artist')->search ({}, { order_by => { -asc => 'stuff', -desc => 'staff' } } )->as_query; +}, qr/$file/, 'Exception correctly croak()ed');