split misc tests
This commit is contained in:
parent
6ff8c9ddc5
commit
16bf35a6c4
3 changed files with 36 additions and 24 deletions
tools/Language/SQL/SimpleSQL
18
tools/Language/SQL/SimpleSQL/QueryExprs.lhs
Normal file
18
tools/Language/SQL/SimpleSQL/QueryExprs.lhs
Normal 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")]}
|
Loading…
Add table
Add a link
Reference in a new issue