add support for values

2013-12-17 13:27:16 +02:00 · 2013-12-17 13:27:16 +02:00 · c52334943f
commit c52334943f
parent 4330b3d7e0
5 changed files with 18 additions and 4 deletions
--- a/tools/Language/SQL/SimpleSQL/QueryExprComponents.lhs
+++ b/tools/Language/SQL/SimpleSQL/QueryExprComponents.lhs
@ -23,6 +23,7 @@ These are a few misc tests which don't fit anywhere else.
 >     ,limit
 >     ,combos
 >     ,withQueries
+>     ,values
 >     ]


@ -185,3 +186,10 @@ These are a few misc tests which don't fit anywhere else.
 >    ms1 = ms "a" "t"
 >    ms2 = ms "a" "u"
 >    ms3 = ms "a" "x"
+
+> values :: TestItem
+> values = Group "values" $ map (uncurry TestQueryExpr)
+>     [("values (1,2),(3,4)"
+>       ,Values [[NumLit "1", NumLit "2"]
+>               ,[NumLit "3", NumLit "4"]])
+>     ]