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

tweak lexer tests

Browse source
This commit is contained in:
Jake Wheat 2015-08-02 15:58:09 +03:00
parent 3b5deec2e5
commit 056cd1afda
1 changed files with 5 additions and 3 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

8
tools/Language/SQL/SimpleSQL/LexerTests.lhs
View file

@ -47,7 +47,7 @@ Test for the lexer
> | a <- " \n\t", b <- " \n\t"]
> -- line comment
> ++ map (\c -> (c, [LineComment c]))
> ["--", "-- ", "-- this is a comment"]
> ["--", "-- ", "-- this is a comment", "-- line com\n"]
> -- block comment
> ++ map (\c -> (c, [BlockComment c]))
> ["/**/", "/* */","/* this is a comment */"
@ -103,7 +103,7 @@ number number (todo: double check more carefully)
> ,(isUQIdentifier, isQIdentifier)
> ,(isString, isString)
> ,(isCsString, isString)
> ,(isLineComment, const True)
> ,(isEofLineComment, const True)
> ,(isNumber, isNumber)
> ,(isHostParam,isIdentifier)
> ,(isHostParam,isCsString)
@ -123,7 +123,9 @@ number number (todo: double check more carefully)
> isUQIdentifier _ = False
> isCsString (CSSqlString {}) = True
> isCsString _ = False
> isLineComment (LineComment{}) = True
> isEofLineComment (LineComment s) = last s /= '\n'
> isEofLineComment _ = False
> isLineComment (LineComment {}) = True
> isLineComment _ = False
> isNumber (SqlNumber{}) = True
> isNumber _ = False