17 lines
592 B
Haskell
17 lines
592 B
Haskell
|
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
|
||
|
|
]
|