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

refactor dialect into a non enum and separate to own file

Browse source
This commit is contained in:
Jake Wheat 2016-02-12 12:51:06 +02:00
parent 2b73907119
commit 1b4eefc431
22 changed files with 304 additions and 252 deletions
tools/Language/SQL/SimpleSQL
LexerTests.lhs

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

@ -57,9 +57,9 @@ Test for the lexer
> lexerTests :: TestItem
> lexerTests = Group "lexerTests" $
> [Group "lexer token tests" $ [LexerTest SQL2011 s t | (s,t) <- lexerTable]
> [Group "lexer token tests" $ [LexerTest ansi2011 s t | (s,t) <- lexerTable]
> ,Group "generated combination lexer tests" $
> [ LexerTest SQL2011 (s ++ s1) (t ++ t1)
> [ LexerTest ansi2011 (s ++ s1) (t ++ t1)
> | (s,t) <- lexerTable
> , (s1,t1) <- lexerTable
@ -75,7 +75,7 @@ number number (todo: double check more carefully)
> ]
> ,Group "adhoc lexer tests" $
> map (uncurry $ LexerTest SQL2011)
> map (uncurry $ LexerTest ansi2011)
> [("", [])
> ,("-- line com\nstuff", [LineComment "-- line com\n",Identifier "stuff"])
> ]