40 lines
1.3 KiB
Plaintext
40 lines
1.3 KiB
Plaintext
|
|
Some tests for parsing full queries.
|
|
|
|
> module Language.SQL.SimpleSQL.FullQueries (fullQueriesTests) where
|
|
|
|
> import Language.SQL.SimpleSQL.TestTypes
|
|
> import Language.SQL.SimpleSQL.Syntax
|
|
|
|
|
|
> fullQueriesTests :: TestItem
|
|
> fullQueriesTests = Group "queries" $ map (uncurry (TestQueryExpr ansi2011))
|
|
> [("select count(*) from t"
|
|
> ,makeSelect
|
|
> {qeSelectList = [(App [Name "count"] [Star], Nothing)]
|
|
> ,qeFrom = [TRSimple [Name "t"]]
|
|
> }
|
|
> )
|
|
|
|
> ,("select a, sum(c+d) as s\n\
|
|
> \ from t,u\n\
|
|
> \ where a > 5\n\
|
|
> \ group by a\n\
|
|
> \ having count(1) > 5\n\
|
|
> \ order by s"
|
|
> ,makeSelect
|
|
> {qeSelectList = [(Iden [Name "a"], Nothing)
|
|
> ,(App [Name "sum"]
|
|
> [BinOp (Iden [Name "c"])
|
|
> [Name "+"] (Iden [Name "d"])]
|
|
> ,Just $ Name "s")]
|
|
> ,qeFrom = [TRSimple [Name "t"], TRSimple [Name "u"]]
|
|
> ,qeWhere = Just $ BinOp (Iden [Name "a"]) [Name ">"] (NumLit "5")
|
|
> ,qeGroupBy = [SimpleGroup $ Iden [Name "a"]]
|
|
> ,qeHaving = Just $ BinOp (App [Name "count"] [NumLit "1"])
|
|
> [Name ">"] (NumLit "5")
|
|
> ,qeOrderBy = [SortSpec (Iden [Name "s"]) DirDefault NullsOrderDefault]
|
|
> }
|
|
> )
|
|
> ]
|