This is the types used to define the tests as pure data. See the Tests.lhs module for the 'interpreter'. > module Language.SQL.SimpleSQL.TestTypes where > import Language.SQL.SimpleSQL.Syntax > data TestItem = Group String [TestItem] > | TestValueExpr String ValueExpr > | TestQueryExpr String QueryExpr > | TestQueryExprs String [QueryExpr] this just checks the sql parses without error, mostly just a intermediate when I'm too lazy to write out the parsed AST. These should all be TODO to convert to a testqueryexpr test. > | ParseQueryExpr String > deriving (Eq,Show)