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

fix rendering of test case examples for website, other small fixes to website

Browse source
This commit is contained in:
Jake Wheat 2024-01-10 16:18:05 +00:00
parent 6ebf63ba29
commit 32e738f050
6 changed files with 125 additions and 34 deletions
tools/Language/SQL/SimpleSQL
LexerTests.hs

4
tools/Language/SQL/SimpleSQL/LexerTests.hs
View file

@ -43,7 +43,7 @@ lexerTests = Group "lexerTests" $
-- quick sanity tests to see something working
bootstrapTests :: TestItem
bootstrapTests = Group "bootstrap tests" $
bootstrapTests = Group "bootstrap tests" [Group "bootstrap tests" $
map (uncurry (LexTest ansi2011)) (
[("iden", [Identifier Nothing "iden"])
,("'string'", [SqlString "'" "'" "string"])
@ -82,7 +82,7 @@ bootstrapTests = Group "bootstrap tests" $
] ++ map (\a -> (a, [Symbol a])) (
["!=", "<>", ">=", "<=", "||"]
++ map T.singleton ("(),-+*/<>=." :: [Char])))
++ map T.singleton ("(),-+*/<>=." :: [Char])))]
ansiLexerTable :: [(Text,[Token])]