module TestLexer(tests) where

import Test.HUnit
import Parser.Lexer


testCommentSomething = TestCase $ assertEqual "scan /*Something*/" [Comment "/*Something*/"] $ alexScanTokens "/*Something*/"
testEmptyComment =  TestCase $ assertEqual "scan /*x*/"  [Comment "/**/"] $ alexScanTokens "/**/"
testLineComment = TestCase $ assertEqual "scan // comment" [Comment "// comment"] $ alexScanTokens "// comment"



tests = TestList [
    TestLabel "TestCommentSomething" testCommentSomething,
    TestLabel "TestEmptyComment" testEmptyComment,
    TestLabel "TestLineComment" testLineComment
    ]