allow optional hashref as final arg to helpers

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

diff --git a/t/expr-helpers.t b/t/expr-helpers.t
index 7b7137b..4629deb 100644 (file)
--- a/t/expr-helpers.t
+++ b/t/expr-helpers.t
@@ -86,3 +86,19 @@ dq_sql_is
   ),
   ['SELECT COUNT( * ) FROM foo'],
   'count';
+
+dq_sql_is
+  Where(
+    Operator({ 'SQL.Naive' => 'BETWEEN' }, [
+      Identifier('x'),
+      map Literal('SQL', '?', [ binding($_) ]), 1, 2
+    ]),
+    Select([ Identifier('*') ], Identifier('foo')),
+  ),
+  [ 'SELECT * FROM foo WHERE ( x BETWEEN ? AND ? )', map binding($_), 1, 2 ],
+  'between';
+
+dq_sql_is
+  Select([ map Identifier($_), qw(a b) ], Identifier('foo')),
+  ['SELECT a, b FROM foo'],
+  'select columns';