test AS export

[dbsrgits/Data-Query.git] / t / sql.t

diff --git a/t/sql.t b/t/sql.t
index adac5af..f0e0d8a 100644 (file)
--- a/t/sql.t
+++ b/t/sql.t
@@ -56,3 +56,11 @@ expr_sql_is { SELECT { $_->foo, 1 } }
   # will need rewriting to fix it - commit bits available if you do it first
   [ "SELECT foo , ?", binding(1) ],
   "Identifier and literal";
+
+expr_sql_is { SELECT { $_->foo => AS("foom"), 1 } }
+  [ "SELECT foo AS foom , ?", binding(1) ],
+  "AS with parens";
+
+expr_sql_is { SELECT { $_->foo => AS "foom", 1 } }
+  [ "SELECT foo AS foom , ?", binding(1) ],
+  "AS without parens";