21 lines
578 B
Haskell
21 lines
578 B
Haskell
module TestParser(tests) where
|
|
|
|
import Test.HUnit
|
|
import Parser.Lexer
|
|
import Parser.JavaParser
|
|
import Ast
|
|
|
|
|
|
testSingleEmptyClass = TestCase $
|
|
assertEqual "expect single empty class hello" [Class "Hello" [] []] $
|
|
parse [CLASS, IDENTIFIER "Hello", LBRACKET, RBRACKET]
|
|
testTwoEmptyClasses = TestCase $
|
|
assertEqual "expect two empty classes" [Class "Class1" [] [], Class "Class2" [] []] $
|
|
parse [CLASS,IDENTIFIER "Class1",LBRACKET,RBRACKET,CLASS,IDENTIFIER "Class2",LBRACKET,RBRACKET]
|
|
|
|
|
|
|
|
tests = TestList [
|
|
testSingleEmptyClass,
|
|
testTwoEmptyClasses
|
|
] |