add compose routine and refactor FetchFirst to functional style

[dbsrgits/Data-Query.git] / t / expr.t

diff --git a/t/expr.t b/t/expr.t
index 8b024f3..3621e11 100644 (file)
--- a/t/expr.t
+++ b/t/expr.t
@@ -6,7 +6,7 @@ BEGIN { require 't/expr.include' }
 
 sub expr_is (&;@) {
   my $sub = shift;
-  is_deeply(_mk_expr($sub), @_);
+  is_deeply(_run_expr($sub)->{expr}, @_);
 }
 
 expr_is { $_->foo }