X-Git-Url: http://git.shadowcat.co.uk/gitweb/gitweb.cgi?a=blobdiff_plain;f=t%2Fsql.t;fp=t%2Fsql.t;h=6bf46e8da6dd965ab452090eec882e8a34e2b574;hb=ee4f475695be375f8a901ebd7f7673f8dbcfacc8;hp=a8cc66de990015bf5aa20b4ece081dc565baed1c;hpb=781edb05c56f635db61967ad2542d1a98393d51c;p=dbsrgits%2FData-Query.git

diff --git a/t/sql.t b/t/sql.t
index a8cc66d..6bf46e8 100644
--- a/t/sql.t
+++ b/t/sql.t
@@ -1,11 +1,11 @@
 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 => [ "'" ] });
 
@@ -13,9 +13,11 @@ sub binding { map perl_scalar_value($_), @_ }
 
 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 }