commentTest :: Assertion
commentTest = assertEqual "Comments should not become tokens" expected actual
    where actual   = lexer "; a comment\nmov rax, 60; another\n; one more"
          expected = [Line {sourceCode = "; a comment",
                            lineNumber = 1,
                            tokens     = []},
                      Line {sourceCode = "mov rax, 60; another",
                            lineNumber = 2,
                            tokens     = [TCommand  MOV,
                                          TRegister RAX,
                                          TSymbol   Comma,
                                          TNumber   60]},
                      Line {sourceCode = "; one more",
                            lineNumber = 3,
                            tokens     = []}]
commentTest :: Assertion
commentTest = assertEqual "Comments should not become tokens" expected actual
    where actual   = lexer "; a comment\nmov rax, 60; another\n; one more"
          expected = [Line {sourceCode = "; a comment",
                            lineNumber = 1,
                            tokens     = []},
                      Line {sourceCode = "mov rax, 60; another",
                            lineNumber = 2,
                            tokens     = [TCommand  MOV,
                                          TRegister RAX,
                                          TSymbol   Comma,
                                          TNumber   60]},
                      Line {sourceCode = "; one more",
                            lineNumber = 3,
                            tokens     = []}]
commentTest = assertEqual "Comments should not become tokens" expected actual
    where actual   = lexer "; a comment\nmov rax, 60; another\n; one more"
          expected = [Line {sourceCode = "; a comment",
                            lineNumber = 1,
                            tokens     = []},
                      Line {sourceCode = "mov rax, 60; another",
                            lineNumber = 2,
                            tokens     = [TCommand  MOV,
                                          TRegister RAX,
                                          TSymbol   Comma,
                                          TNumber   60]},
                      Line {sourceCode = "; one more",
                            lineNumber = 3,
                            tokens     = []}]