local $SQL::Abstract::Test::parenthesis_significant = $case->{parenthesis_significant};
my $label = $case->{test} || 'in-between test';
- my $sql = SQL::Abstract->new ($case->{args} || {});
+ my $sql = SQL::Abstract->new($case->{args} || {});
if (my $e = $case->{throws}) {
my $stmt;
$case->{stmt},
$case->{bind},
"$label generates correct SQL and bind",
- ) || diag_where ( $case->{where} );
+ ) || diag dumper ({ where => $case->{where}, exp => $sql->_expand_expr($case->{where}) });
}
}
}