1
Fork 0

swap order in select lists so the expression comes first then the alias to match the order in the concrete syntax

This commit is contained in:
Jake Wheat 2013-12-31 11:31:00 +02:00
parent 552d3f5383
commit 7cf5275615
9 changed files with 43 additions and 46 deletions
tools/Language/SQL/SimpleSQL

View file

@ -12,7 +12,7 @@ Some tests for parsing full queries.
> fullQueriesTests = Group "queries" $ map (uncurry TestQueryExpr)
> [("select count(*) from t"
> ,makeSelect
> {qeSelectList = [(Nothing, App "count" [Star])]
> {qeSelectList = [(App "count" [Star], Nothing)]
> ,qeFrom = [TRSimple "t"]
> }
> )
@ -24,10 +24,10 @@ Some tests for parsing full queries.
> \ having count(1) > 5\n\
> \ order by s"
> ,makeSelect
> {qeSelectList = [(Nothing, Iden "a")
> ,(Just "s"
> ,App "sum" [BinOp (Iden "c")
> "+" (Iden "d")])]
> {qeSelectList = [(Iden "a", Nothing)
> ,(App "sum" [BinOp (Iden "c")
> "+" (Iden "d")]
> ,Just "s")]
> ,qeFrom = [TRSimple "t", TRSimple "u"]
> ,qeWhere = Just $ BinOp (Iden "a") ">" (NumLit "5")
> ,qeGroupBy = [SimpleGroup $ Iden "a"]