Start working on update clause

[dbsrgits/SQL-Abstract-2.0-ish.git] / t / compat / ast / 01.t

diff --git a/t/compat/ast/01.t b/t/compat/ast/01.t
index fe1b384..4b1d316 100644 (file)
--- a/t/compat/ast/01.t
+++ b/t/compat/ast/01.t
@@ -6,6 +6,7 @@ use lib "$FindBin::Bin/../../lib";
 use Test::SQL::Abstract::Util qw/
   mk_name
   mk_value
+  mk_expr
   field_op_value
   :dumper_sort
 /;
@@ -330,15 +331,6 @@ eq_or_diff
   "Complex AST [ {a => [1,2],b => 3}, { c => 4 }, { d => [5,6,7], e => { '!=' => [8,9] }, q => {'not in' => [10,11] } } ]";
 
 
-sub upper { expr(UPPER => @_) }
+sub upper { mk_expr(UPPER => @_) }
 
-sub expr {
-  my ($op, @args) = @_;
-
-  return {
-    -type => 'expr',
-    op => $op,
-    args => [@args]
-  };
-}