From: Peter Rabbitson Date: Thu, 26 Dec 2013 05:28:02 +0000 (+0100) Subject: Move test to a better location (no changes) X-Git-Url: http://git.shadowcat.co.uk/gitweb/gitweb.cgi?a=commitdiff_plain;h=a5e0ac94f214621462dd718cda341d4e65425a75;p=scpubgit%2FQ-Branch.git Move test to a better location (no changes) --- diff --git a/t/01generate.t b/t/01generate.t index 5d68e1f..9e83283 100644 --- a/t/01generate.t +++ b/t/01generate.t @@ -416,6 +416,11 @@ my @tests = ( }, { func => 'select', + args => ['test', '*', { foo => { '>=' => [] }} ], + throws => qr/\Qoperator '>=' applied on an empty array (field 'foo')/, + }, + { + func => 'select', new => {bindtype => 'columns'}, args => ['test', '*', { a => {-in => \["(SELECT d FROM to_date(?, 'MM/DD/YY') AS d)", [dummy => '02/02/02']]}, b => 8 }], stmt => 'SELECT * FROM test WHERE ( a IN (SELECT d FROM to_date(?, \'MM/DD/YY\') AS d) AND b = ? )', diff --git a/t/02where.t b/t/02where.t index 572d502..42e19b5 100644 --- a/t/02where.t +++ b/t/02where.t @@ -1,7 +1,6 @@ use strict; use warnings; use Test::More; -use Test::Exception; use SQL::Abstract::Test import => [qw(is_same_sql_bind diag_where) ]; use SQL::Abstract; @@ -393,9 +392,4 @@ for my $case (@handle_tests) { || diag_where ( $case->{where} ); } -dies_ok { - my $sql = SQL::Abstract->new; - $sql->where({ foo => { '>=' => [] }},); -}; - done_testing;