starlitcanopy/simple-sql-parser
1
Fork 0
Code Activity

implement complete interval literals

Browse source
This commit is contained in:
Jake Wheat 2014-04-18 21:38:24 +03:00
parent f64632bbac
commit 3b86a06e5c
6 changed files with 64 additions and 37 deletions
tools/Language/SQL/SimpleSQL
ValueExprs.lhs

6
tools/Language/SQL/SimpleSQL/ValueExprs.lhs
View file

@ -38,8 +38,10 @@ Tests for parsing value expressions
> ,("'string'", StringLit "string")
> ,("'string with a '' quote'", StringLit "string with a ' quote")
> ,("'1'", StringLit "1")
> ,("interval '3' day", IntervalLit "3" "day" Nothing)
> ,("interval '3' day (3)", IntervalLit "3" "day" $ Just 3)
> ,("interval '3' day"
> ,IntervalLit Nothing "3" (Itf "day" Nothing) Nothing)
> ,("interval '3' day (3)"
> ,IntervalLit Nothing "3" (Itf "day" $ Just (3,Nothing)) Nothing)
> ,("interval '3 weeks'", TypedLit (TypeName "interval") "3 weeks")
> ]