quoteTest :: Assertion
quoteTest = assertEqual "Quotes should handle escaping" expected $ lexer source
    where source   = "msg: db \"a \\\"quote\"\" here\\\"\"\"\", 10"
          expected = [Line {sourceCode = source,
                            lineNumber = 1,
                            tokens     = [TLabel   "msg",
                                          TCommand DB,
                                          TQuote   "a \"quote\" here\"\"",
                                          TSymbol  Comma,
                                          TNumber  10]}]
quoteTest :: Assertion
quoteTest = assertEqual "Quotes should handle escaping" expected $ lexer source
    where source   = "msg: db \"a \\\"quote\"\" here\\\"\"\"\", 10"
          expected = [Line {sourceCode = source,
                            lineNumber = 1,
                            tokens     = [TLabel   "msg",
                                          TCommand DB,
                                          TQuote   "a \"quote\" here\"\"",
                                          TSymbol  Comma,
                                          TNumber  10]}]
quoteTest = assertEqual "Quotes should handle escaping" expected $ lexer source
    where source   = "msg: db \"a \\\"quote\"\" here\\\"\"\"\", 10"
          expected = [Line {sourceCode = source,
                            lineNumber = 1,
                            tokens     = [TLabel   "msg",
                                          TCommand DB,
                                          TQuote   "a \"quote\" here\"\"",
                                          TSymbol  Comma,
                                          TNumber  10]}]