add support for [] quoted identifiers and for #var, @var

tools/Language/SQL/SimpleSQL/LexerTests.lhs

@@ -16,6 +16,7 @@ Test for the lexer
 >                                ,postgresLexerTests
 >                                ,sqlServerLexerTests
 >                                ,oracleLexerTests
+>                                ,mySqlLexerTests
 >                                ,odbcLexerTests]]
 
 > ansiLexerTable :: [(String,[Token])]
@@ -283,7 +284,7 @@ the + or -.
 > sqlServerLexerTests = Group "sqlServerLexTests" $
 >     [ LexTest sqlserver s t | (s,t) <-
 >     [("@variable", [(PrefixedVariable '@' "variable")])
->     --,("[quoted identifier]", [(Identifier (Just ("[", "]")) "variable")])
+>     ,("[quoted identifier]", [(Identifier (Just ("[", "]")) "quoted identifier")])
 >     ]]
 
 > oracleLexerTests :: TestItem
@@ -293,6 +294,13 @@ the + or -.
 >     ]
 >     ]
 
+> mySqlLexerTests :: TestItem
+> mySqlLexerTests = Group "mySqlLexerTests" $
+>     [ LexTest mysql s t | (s,t) <-
+>     [("`quoted identifier`", [(Identifier (Just ("`", "`")) "quoted identifier")])
+>     ]
+>     ]
+
 > odbcLexerTests :: TestItem
 > odbcLexerTests = Group "odbcLexTests" $
 >     [ LexTest sqlserver {- {odbc = True} -} s t | (s,t) <-