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

add lexing for \' only in e' strings and dollar strings in pg dialect

Browse source
This commit is contained in:
Jake Wheat 2016-02-13 17:07:27 +02:00
parent b41803427d
commit 5084c0c3ab
2 changed files with 36 additions and 24 deletions
tools/Language/SQL/SimpleSQL
LexerTests.lhs

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

@ -196,10 +196,12 @@ assurance.
> ,("'normalendquote '''", [SqlString "'" "'" "normalendquote ''"])
> ,("e'this '' quote'", [SqlString "e'" "'" "this '' quote"])
> ,("e'this \\' quote'", [SqlString "e'" "'" "this \\' quote"])
> -- todo: implement only allowing \' in e quoted strings
> {-,("'not this \\' quote", [SqlString "'" "'" "not this \\"
> ,Whitespace " "
> ,Identifier Nothing "quote"])-}
> ,("'not this \\' quote", [SqlString "'" "'" "not this \\"
> ,Whitespace " "
> ,Identifier Nothing "quote"])
> ,("$$ string 1 $$", [SqlString "$$" "$$" " string 1 "])
> ,("$$ string $ 2 $$", [SqlString "$$" "$$" " string $ 2 "])
> ,("$a$ $$string 3$$ $a$", [SqlString "$a$" "$a$" " $$string 3$$ "])
> ]
> -- csstrings
> ++ map (\c -> (c ++ "'test'", [SqlString (c ++ "'") "'" "test"]))