use strict;
use warnings;
use Test::More;
-use Test::Exception;
+use Test::Fatal;
use SQL::Abstract::Test import => ['is_same_sql_bind'];
use Data::Dumper;
},
{
where => { timestamp => { '>=' => { -to_date => '2009-12-21 00:00:00' } } },
- stmt => " WHERE ( timestamp >= TO_DATE ? )",
+ stmt => " WHERE ( timestamp >= TO_DATE(?) )",
bind => ['2009-12-21 00:00:00'],
},
stmt => " WHERE ( (NOT ( c AND (NOT ( (NOT a = ?) AND (NOT b) )) )) ) ",
bind => [ 1 ],
},
+ {
+ where => { foo => { '>=', [] } },
+ stmt => " WHERE 0=1",
+ bind => [ ],
+ },
);
-plan tests => ( @handle_tests * 2 ) + 1;
+plan tests => ( @handle_tests * 2 );
for my $case (@handle_tests) {
local $Data::Dumper::Terse = 1;
my $sql = SQL::Abstract->new;
my($stmt, @bind);
- lives_ok (sub {
+ ok(!(my $e = exception {
($stmt, @bind) = $sql->where($case->{where}, $case->{order});
is_same_sql_bind($stmt, \@bind, $case->{stmt}, $case->{bind})
|| diag "Search term:\n" . Dumper $case->{where};
- });
+ }));
+ if ($e) {
+ fail "Died: $e: Search term:\n" . Dumper $case->{where};
+ }
}
-
-dies_ok {
- my $sql = SQL::Abstract->new;
- $sql->where({ foo => { '>=' => [] }},);
-};