dfa84072dc
parser and pretty printer for statements add query statement add support for insert update delete truncate bonus ddl: limited create schema drop schema add grammar notes to the new test files
19 lines
593 B
Plaintext
19 lines
593 B
Plaintext
|
|
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 (TestStatements SQL2011))
|
|
> [("select 1",[ms])
|
|
> ,("select 1;",[ms])
|
|
> ,("select 1;select 1",[ms,ms])
|
|
> ,(" select 1;select 1; ",[ms,ms])
|
|
> ]
|
|
> where
|
|
> ms = SelectStatement $ makeSelect {qeSelectList = [(NumLit "1",Nothing)]}
|