2 use Test::More qw(no_plan);
5 use Data::Query::Renderer::SQL::Naive;
6 use Data::Query::ExprHelpers qw(perl_scalar_value);
8 BEGIN { require 't/expr.include' }
10 my $rend = Data::Query::Renderer::SQL::Naive->new({ quote_chars => [ "'" ] });
12 sub binding { map perl_scalar_value($_), @_ }
14 sub expr_sql_is (&;@) {
17 ? is_deeply($rend->render(_run_expr($sub)->{expr}), @_)
18 : ::Dwarn($rend->render(_run_expr($sub)->{expr}));
21 expr_sql_is { $_->foo }
23 "Simple identifier -> SQL";
25 expr_sql_is { $_->group }
27 "Simple identifier needing quoting -> SQL";
29 expr_sql_is { $_->foo->group }
31 "Complex identifier -> SQL";
33 expr_sql_is { $_->foo == 1 }
34 [ "foo = ?", binding(1) ],
35 "Simple expression -> SQL";
37 expr_sql_is { ($_->foo == 1) & ($_->bar eq "foo") }
38 [ "( foo = ? AND bar = ? )", binding(1, "foo") ],
39 "Compound expression -> SQL";
42 expr_sql_is { ($_->foo == 1) & ($_->bar eq "foo") & ($_->baz > 3) }
43 [ "( foo = ? AND bar = ? AND baz > ? )", binding(1, "foo", 3) ],
44 "Flatten expression ok";
46 expr_sql_is { !$_->foo } # XXX revisit this why are the parens here
48 "Unary expression ok";
50 expr_sql_is { SELECT { $_->foo } }
54 expr_sql_is { SELECT { $_->foo, 1 } }
55 # the extra space here is a little icky but Naive's _flatten_structure
56 # will need rewriting to fix it - commit bits available if you do it first
57 [ "SELECT foo, ?", binding(1) ],
58 "Identifier and literal";
60 expr_sql_is { SELECT { $_->foo => AS("foom"), 1 } }
61 [ "SELECT foo AS foom, ?", binding(1) ],
64 expr_sql_is { SELECT { $_->foo => AS "foom", 1 } }
65 [ "SELECT foo AS foom, ?", binding(1) ],