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

View file

@ -6,11 +6,14 @@ Converts the test data to asciidoc
> import Control.Monad.State
> import Language.SQL.SimpleSQL.Parser
> import Language.SQL.SimpleSQL.Lexer
> import Data.List
> data TableItem = Heading Int String
> | Row String String
> doc :: Int -> TestItem -> [TableItem]
> -- filter out some groups of tests
> doc n (Group nm _) | "generated" `isInfixOf` nm = []
> doc n (Group nm is) =
> Heading n nm
> : concatMap (doc (n + 1)) is
@ -30,14 +33,7 @@ Converts the test data to asciidoc
> [Row str (ppShow $ parseValueExpr d "" Nothing str)]
> doc _ (LexerTest d str t) =
> -- todo: figure out how to handle this:
> -- too many entries, but want to show the lexing
> -- a bit
> -- [Row str (ppShow $ lexSQL d "" Nothing str)]
> []
> -- should probably think about doing something similar
> -- with other generated combination tests such as the typename
> -- tests
> [Row str (ppShow $ lexSQL d "" Nothing str)]
TODO: should put the dialect in the html output