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

Fix handling of empty statements.

Browse source
This commit is contained in:
Ignat Insarov 2020-12-20 20:03:15 +05:00
parent b41d4838d4
commit 0aa28ff96a
6 changed files with 41 additions and 11 deletions
tools/Language/SQL/SimpleSQL
EmptyStatement.lhsTests.lhs

18
tools/Language/SQL/SimpleSQL/EmptyStatement.lhs Normal file
View file

@ -0,0 +1,18 @@
> 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 "/* comment */ ;" [EmptyStatement]
> , TestStatements ansi2011 "/* comment */ ; /* comment */ ;"
> [EmptyStatement, EmptyStatement]
> , TestStatements ansi2011 "/* comment */ ; /* comment */ ; /* comment */ ;"
> [EmptyStatement, EmptyStatement, EmptyStatement]
> ]

2
tools/Language/SQL/SimpleSQL/Tests.lhs
View file

@ -29,6 +29,7 @@ test data to the Test.Framework tests.
> import Language.SQL.SimpleSQL.Odbc
> import Language.SQL.SimpleSQL.Tpch
> import Language.SQL.SimpleSQL.LexerTests
> import Language.SQL.SimpleSQL.EmptyStatement
> import Language.SQL.SimpleSQL.SQL2011Queries
> import Language.SQL.SimpleSQL.SQL2011AccessControl
@ -64,6 +65,7 @@ order on the generated documentation.
> ,mySQLTests
> ,oracleTests
> ,customDialectTests
> ,emptyStatementTests
> ]
> tests :: T.TestTree