1
Fork 0

split misc tests

This commit is contained in:
Jake Wheat 2013-12-17 11:48:40 +02:00
parent 6ff8c9ddc5
commit 16bf35a6c4
3 changed files with 36 additions and 24 deletions
tools/Language/SQL/SimpleSQL

View file

@ -0,0 +1,18 @@
These are the tests for the queryExprs parsing which parses multiple
query expressions from one string.
> module Language.SQL.SimpleSQL.QueryExprs (queryExprsTests) where
> import Language.SQL.SimpleSQL.TestTypes
> import Language.SQL.SimpleSQL.Syntax
> queryExprsTests :: TestItem
> queryExprsTests = Group "query exprs" $ map (uncurry TestQueryExprs)
> [("select 1",[ms])
> ,("select 1;",[ms])
> ,("select 1;select 1",[ms,ms])
> ,(" select 1;select 1; ",[ms,ms])
> ]
> where
> ms = makeSelect {qeSelectList = [(Nothing,NumLit "1")]}