use strictures 1;
use Test::More qw(no_plan);
+use Scalar::Util qw(blessed);
use Devel::Dwarn;
use Data::Query::Renderer::SQL::Naive;
use Data::Query::ExprHelpers qw(perl_scalar_value);
-
-BEGIN { require 't/expr.include' }
+use Data::Query::ExprDeclare qw(SELECT AS expr);
my $rend = Data::Query::Renderer::SQL::Naive->new({ quote_chars => [ "'" ] });
sub expr_sql_is (&;@) {
my $sub = shift;
+ my $e = Data::Query::ExprDeclare::_run_expr($sub);
+ $e = blessed($e) ? $e->{expr} : $e;
@_
- ? is_deeply($rend->render(_run_expr($sub)->{expr}), @_)
- : ::Dwarn($rend->render(_run_expr($sub)->{expr}));
+ ? is_deeply($rend->render($e), @_)
+ : ::Dwarn($rend->render($e));
}
expr_sql_is { $_->foo }