MiniJavaCompiler/Test/TestParser.hs

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
    ]