MisterChaos69/MiniJavaCompiler
2
2
Fork 0
Code Issues Pull Requests Packages Projects Releases Wiki Activity

add test

Browse Source
This commit is contained in:
Marvin Schlegel 2024-05-16 11:31:58 +02:00
parent f81a812f59
commit c347e6c630
1 changed files with 5 additions and 1 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

6
Test/TestParser.hs
View File

@ -179,6 +179,9 @@ testStatementIfThenElse = TestCase $
testStatementWhile = TestCase $ testStatementWhile = TestCase $
assertEqual "expect while" [While (Reference "a") (Block [Block []])] $ assertEqual "expect while" [While (Reference "a") (Block [Block []])] $
parseStatement [WHILE,LBRACE,IDENTIFIER "a",RBRACE,LBRACKET,RBRACKET] parseStatement [WHILE,LBRACE,IDENTIFIER "a",RBRACE,LBRACKET,RBRACKET]
testStatementAssign = TestCase $
assertEqual "expect assign 5" [StatementExpressionStatement (Assignment (Reference "a") (IntegerLiteral 5))] $
parseStatement [IDENTIFIER "a",ASSIGN,INTEGERLITERAL 5,SEMICOLON]
@ -233,5 +236,6 @@ tests = TestList [
testExpressionPrecedence, testExpressionPrecedence,
testStatementIfThen, testStatementIfThen,
testStatementIfThenElse, testStatementIfThenElse,
testStatementWhile testStatementWhile,
testStatementAssign
] ]