Add more compat ast tests with ->convert set

[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 830bad3..037d5f2 100644 (file)
--- a/t/compat/ast/01.t
+++ b/t/compat/ast/01.t
@@ -1,42 +1,33 @@
 use strict;
 use warnings;
 
-use SQL::Abstract::AST::Compat;
+use FindBin;
+use lib "$FindBin::Bin/../../lib";
+use SQLADumperSort;
 
-use Test::More tests => 11;
+use SQL::Abstract::Compat;
+
+use Test::More tests => 13;
 use Test::Differences;
 
-ok(my $visitor = SQL::Abstract::AST::Compat->new);
+ok(my $visitor = SQL::Abstract::Compat->new);
+
 
 my $foo_id = { -type => 'name', args => [qw/foo/] };
 my $bar_id = { -type => 'name', args => [qw/bar/] };
 
-my $foo_eq_1 = {
-  -type => 'expr',
-  op => '==',
-  args => [
-    $foo_id,
-    { -type => 'value', value => 1 }
-  ]
-};
+my $foo_eq_1 = field_op_value($foo_id, '==', 1);
+my $bar_eq_str = field_op_value($bar_id, '==', 'some str');
 
 eq_or_diff
-  $visitor->generate({ foo => 1 }),
+  $visitor->recurse_where({ foo => 1 }),
   $foo_eq_1,
   "Single value hash";
 
 
-my $bar_eq_str = {
-  -type => 'expr',
-  op => '==',
-  args => [
-    $bar_id,
-    { -type => 'value', value => 'some str' }
-  ]
-};
 
 eq_or_diff
-  $visitor->generate({ foo => 1, bar => 'some str' }),
+  $visitor->recurse_where({ foo => 1, bar => 'some str' }),
   { -type => 'expr',
     op => 'and',
     args => [
@@ -47,7 +38,7 @@ eq_or_diff
   "two keys in hash";
 
 eq_or_diff
-  $visitor->generate({ -or => { foo => 1, bar => 'some str' } }),
+  $visitor->recurse_where({ -or => { foo => 1, bar => 'some str' } }),
   { -type => 'expr',
     op => 'or',
     args => [
@@ -59,7 +50,7 @@ eq_or_diff
 
 
 eq_or_diff
-  $visitor->generate([ -and => { foo => 1, bar => 'some str' } ]),
+  $visitor->recurse_where([ -and => { foo => 1, bar => 'some str' } ]),
   { -type => 'expr',
     op => 'and',
     args => [
@@ -71,7 +62,7 @@ eq_or_diff
 
 
 eq_or_diff
-  $visitor->generate([ -and => { foo => 1, bar => 'some str' }, { foo => 1} ]),
+  $visitor->recurse_where([ -and => { foo => 1, bar => 'some str' }, { foo => 1} ]),
   { -type => 'expr',
     op => 'or',
     args => [
@@ -88,35 +79,23 @@ eq_or_diff
   "-and as first element of array + hash";
 
 eq_or_diff
-  $visitor->generate({ foo => { '!=' => 'bar' } }),
-  { -type => 'expr',
-    op => '!=',
-    args => [
-      $foo_id,
-      { -type => 'value', value => 'bar' },
-    ]
-  },
+  $visitor->recurse_where({ foo => { '!=' => 'bar' } }),
+  field_op_value($foo_id, '!=', 'bar'),
   "foo => { '!=' => 'bar' }";
 
 eq_or_diff
-  $visitor->generate({ foo => [ 1, 'bar' ] }),
+  $visitor->recurse_where({ foo => [ 1, 'bar' ] }),
   { -type => 'expr',
     op => 'or',
     args => [
       $foo_eq_1,
-      { -type => 'expr',
-        op => '==',
-        args => [
-          $foo_id,
-          { -type => 'value', value => 'bar' },
-        ]
-      },
+      field_op_value($foo_id, '==', 'bar'),
     ],
   },
   "foo => [ 1, 'bar' ]";
 
 eq_or_diff
-  $visitor->generate({ foo => { -in => [ 1, 'bar' ] } }),
+  $visitor->recurse_where({ foo => { -in => [ 1, 'bar' ] } }),
   { -type => 'expr',
     op => 'in',
     args => [
@@ -128,7 +107,7 @@ eq_or_diff
   "foo => { -in => [ 1, 'bar' ] }";
 
 eq_or_diff
-  $visitor->generate({ foo => { -not_in => [ 1, 'bar' ] } }),
+  $visitor->recurse_where({ foo => { -not_in => [ 1, 'bar' ] } }),
   { -type => 'expr',
     op => 'not_in',
     args => [
@@ -140,7 +119,7 @@ eq_or_diff
   "foo => { -not_in => [ 1, 'bar' ] }";
 
 eq_or_diff
-  $visitor->generate({ foo => { -in => [ ] } }),
+  $visitor->recurse_where({ foo => { -in => [ ] } }),
   { -type => 'expr',
     op => 'in',
     args => [
@@ -149,3 +128,143 @@ eq_or_diff
   },
   "foo => { -in => [ ] }";
 
+my $worker_eq = sub {
+  return { 
+    -type => 'expr',
+    op => '==',
+    args => [
+      { -type => 'name', args => ['worker'] },
+      { -type => 'value', value => $_[0] },
+    ],
+  }
+};
+
+eq_or_diff
+  $visitor->recurse_where( {
+    requestor => 'inna',
+    worker => ['nwiger', 'rcwe', 'sfz'],
+    status => { '!=', 'completed' }
+  } ),
+  { -type => 'expr',
+    op => 'and',
+    args => [
+      field_op_value(qw/requestor == inna/),
+      field_op_value(qw/status != completed/), 
+      { -type => 'expr',
+        op => 'or',
+        args => [
+          field_op_value(qw/worker == nwiger/), 
+          field_op_value(qw/worker == rcwe/), 
+          field_op_value(qw/worker == sfz/), 
+        ]
+      },
+    ]
+  },
+  "complex expr 1";
+
+
+$visitor->convert('UPPER');
+
+eq_or_diff
+  $visitor->select_ast(
+    'test', '*', [ { ticket => [11, 12, 13] } ]
+  ),
+  { -type => 'select',
+    columns => [ { -type => 'name', args => ['*'] } ],
+    tablespec => { -type => 'name', args => ['test'] },
+    where =>
+      { -type => 'expr', op => 'or', args => [
+        field_op_value( upper(mk_name('ticket')), '==', upper(mk_value(11))),
+        field_op_value( upper(mk_name('ticket')), '==', upper(mk_value(12))),
+        field_op_value( upper(mk_name('ticket')), '==', upper(mk_value(13))),
+      ] }
+  },
+  "Complex AST with convert('UPPER')";
+
+=for comment
+eq_or_diff
+  $visitor->select_ast(
+    'test', '*', [ { ticket => [11, 12, 13], 
+                     hostname => { in => ['ntf', 'avd', 'bvd', '123'] } },
+                  #{ tack => { between => [qw/tick tock/] } },
+                  #{ a => [qw/b c d/], 
+                  #  e => { '!=', [qw(f g)] }, 
+                  #  q => { 'not in', [14..20] } 
+                  #}
+                 ]
+  ),
+  { -type => 'select',
+    columns => [ { -type => 'name', args => ['*'] } ],
+    tablespec => { -type => 'name', args => ['test'] },
+    where =>
+      { -type => 'expr', op => 'or', args => [
+        { -type => 'expr', op => 'and', args => [
+          field_op_value( upper(mk_name('hostname')), 
+                          in => [ 
+                            upper(mk_value('nft')),
+                            upper(mk_value('avd')),
+                            upper(mk_value('bvd')),
+                            upper(mk_value('123')),
+                          ]
+                        ),
+          { -type => 'expr', op => 'or', args => [
+            field_op_value( upper(mk_name('ticket')), '==', upper(mk_value(11))),
+            field_op_value( upper(mk_name('ticket')), '==', upper(mk_value(12))),
+            field_op_value( upper(mk_name('ticket')), '==', upper(mk_value(13))),
+          ] }
+        ] }
+    ] }
+  },
+  "Complex AST with convert('UPPER')";
+=cut
+
+sub field_op_value {
+  my ($field, $op, $value) = @_;
+
+  $field = ref $field eq 'HASH'
+         ? $field
+         : ref $field eq 'ARRAY' 
+         ? { -type => 'name', args => $field } 
+         : { -type => 'name', args => [$field] };
+
+  my @value = ref $value eq 'HASH'
+            ? $value
+            : ref $value eq 'ARRAY'
+            ? @$value
+            : { -type => 'value', value => $value };
+
+  return {
+    -type => 'expr',
+    op => $op,
+    args => [
+      $field,
+      @value
+    ]
+  };
+}
+
+sub upper { expr(UPPER => @_) }
+
+sub expr {
+  my ($op, @args) = @_;
+
+  return {
+    -type => 'expr',
+    op => $op,
+    args => [@args]
+  };
+}
+
+sub mk_name {
+  my ($field) = @_;
+  $field = ref $field eq 'HASH'
+         ? $field
+         : ref $field eq 'ARRAY' 
+         ? { -type => 'name', args => $field } 
+         : { -type => 'name', args => [$field] };
+  return $field;
+}
+
+sub mk_value {
+  return { -type => 'value', value => $_[0] }
+}