22 lines
929 B
Haskell
22 lines
929 B
Haskell
{-# LANGUAGE OverloadedStrings #-}
|
|
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]
|
|
]
|