37 lines
847 B
Plaintext
37 lines
847 B
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"])
|
|
> ]
|
|
|
|
|
|
> limit :: TestItem
|
|
> limit = Group "queries" $ map (uncurry (TestQueryExpr MySQL))
|
|
> [("select * from t limit 5"
|
|
> ,sel {qeFetchFirst = Just (NumLit "5")}
|
|
> )
|
|
> ]
|
|
> where
|
|
> sel = makeSelect
|
|
> {qeSelectList = [(Star, Nothing)]
|
|
> ,qeFrom = [TRSimple [Name "t"]]
|
|
> }
|