41 lines
1 KiB
Plaintext
41 lines
1 KiB
Plaintext
|
|
Tests for mysql dialect parsing
|
|
|
|
> module Language.SQL.SimpleSQL.MySQL (mySQLTests) where
|
|
|
|
> import Language.SQL.SimpleSQL.TestTypes
|
|
> import Language.SQL.SimpleSQL.Syntax
|
|
|
|
> mySQLTests :: TestItem
|
|
> mySQLTests = Group "mysql dialect"
|
|
> [backtickQuotes
|
|
> ,limit]
|
|
|
|
backtick quotes
|
|
|
|
limit syntax
|
|
|
|
[LIMIT {[offset,] row_count | row_count OFFSET offset}]
|
|
|
|
> backtickQuotes :: TestItem
|
|
> backtickQuotes = Group "backtickQuotes" (map (uncurry (TestValueExpr mysql))
|
|
> [("`test`", Iden [DQName "`" "`" "test"])
|
|
> ]
|
|
> ++ [ParseValueExprFails ansi2011 "`test`"]
|
|
> )
|
|
|
|
> limit :: TestItem
|
|
> limit = Group "queries" ( map (uncurry (TestQueryExpr mysql))
|
|
> [("select * from t limit 5"
|
|
> ,sel {qeFetchFirst = Just (NumLit "5")}
|
|
> )
|
|
> ]
|
|
> ++ [ParseQueryExprFails mysql "select a from t fetch next 10 rows only;"
|
|
> ,ParseQueryExprFails ansi2011 "select * from t limit 5"]
|
|
> )
|
|
> where
|
|
> sel = makeSelect
|
|
> {qeSelectList = [(Star, Nothing)]
|
|
> ,qeFrom = [TRSimple [Name "t"]]
|
|
> }
|