Start working on update clause

[dbsrgits/SQL-Abstract-2.0-ish.git] / t / lib / Test / SQL / Abstract / Util.pm

diff --git a/t/lib/Test/SQL/Abstract/Util.pm b/t/lib/Test/SQL/Abstract/Util.pm
index 4455c29..598ddac 100644 (file)
--- a/t/lib/Test/SQL/Abstract/Util.pm
+++ b/t/lib/Test/SQL/Abstract/Util.pm
@@ -8,6 +8,7 @@ use Sub::Exporter -setup => {
     mk_name
     mk_value
     mk_alias
+    mk_expr
     field_op_value
   /],
   groups => [
@@ -63,6 +64,15 @@ sub mk_value {
   return { -type => 'value', value => $_[0] }
 }
 
+sub mk_expr {
+  my ($op, @args) = @_;
+
+  return {
+    -type => 'expr',
+    op => $op,
+    args => [@args]
+  };
+}
 
 sub field_op_value {
   my ($field, $op, $value) = @_;