testSucc2 :: Test
testSucc2 = TestCase (do parsedFile <- parseFile "tests/precedence1"
                         assertEqual "+ / - / * / % precedence test"
                                      precedence1AST $ show parsedFile)
testSucc2 :: Test
testSucc2 = TestCase (do parsedFile <- parseFile "tests/precedence1"
                         assertEqual "+ / - / * / % precedence test"
                                      precedence1AST $ show parsedFile)
testSucc2 = TestCase (do parsedFile <- parseFile "tests/precedence1"
                         assertEqual "+ / - / * / % precedence test"
                                      precedence1AST $ show parsedFile)