add scan_dq_nodes helper

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

diff --git a/t/expr-helpers.t b/t/expr-helpers.t
index a64c9f3..4629deb 100644 (file)
--- a/t/expr-helpers.t
+++ b/t/expr-helpers.t
@@ -91,9 +91,14 @@ dq_sql_is
   Where(
     Operator({ 'SQL.Naive' => 'BETWEEN' }, [
       Identifier('x'),
-      map Literal('SQL', '?', [ binding($_) ]), (1,2),
+      map Literal('SQL', '?', [ binding($_) ]), 1, 2
     ]),
     Select([ Identifier('*') ], Identifier('foo')),
   ),
-  [ 'SELECT * FROM foo WHERE ( x BETWEEN ? AND ? )', map binding($_), 1, 2, ],
+  [ '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';