1
Fork 0

rearrange tests slightly and hide/show tests in the website a bit better

This commit is contained in:
Jake Wheat 2015-08-15 19:04:29 +03:00
parent 63a23cabf4
commit 91875b7e7e
3 changed files with 25 additions and 20 deletions
tools/Language/SQL/SimpleSQL

View file

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