],
},
{
+ equal => 1,
+ statements => [
+ q/ORDER BY name + ?, [me].[id]/,
+ q/ORDER BY name + ? ASC, [me].[id]/,
+ ],
+ },
+ {
equal => 0,
opts => { order_by_asc_significant => 1 },
statements => [
},
);
-plan tests => 1 +
- sum(
- map { $_ * ($_ - 1) / 2 }
- map { scalar @{$_->{statements}} }
- @sql_tests
- ) +
- sum(
- map { $_ * ($_ - 1) / 2 }
- map { scalar @{$_->{bindvals}} }
- @bind_tests
- ) +
- 9;
-
use_ok('SQL::Abstract::Test', import => [qw(
eq_sql_bind eq_sql eq_bind is_same_sql_bind
)]);
-for my $test (@sql_tests) {
+for my $test ( @sql_tests ) {
# this does not work on 5.8.8 and earlier :(
#local @{*SQL::Abstract::Test::}{keys %{$test->{opts}}} = map { \$_ } values %{$test->{opts}}
'expected debug of missing branch',
);
+done_testing;