simple-sql-parser/tools/Language/SQL/SimpleSQL/EmptyStatement.lhs

> module Language.SQL.SimpleSQL.EmptyStatement where
>
> import Language.SQL.SimpleSQL.Syntax
> import Language.SQL.SimpleSQL.TestTypes
>
> emptyStatementTests :: TestItem
> emptyStatementTests = Group "empty statement"
>   [ TestStatement ansi2011 ";" EmptyStatement
>   , TestStatements ansi2011 ";" [EmptyStatement]
>   , TestStatements ansi2011 ";;" [EmptyStatement, EmptyStatement]
>   , TestStatements ansi2011 ";;;" [EmptyStatement, EmptyStatement, EmptyStatement]
>   , TestStatement ansi2011 "/* comment */ ;" EmptyStatement
>   , TestStatements ansi2011 "" []
>   , TestStatements ansi2011 "/* comment */" []
>   , TestStatements ansi2011 "/* comment */ ;" [EmptyStatement]
>   , TestStatements ansi2011 "/* comment */ ; /* comment */ ;"
>       [EmptyStatement, EmptyStatement]
>   , TestStatements ansi2011 "/* comment */ ; /* comment */ ; /* comment */ ;"
>       [EmptyStatement, EmptyStatement, EmptyStatement]
>   ]