testSucc4 :: Test
testSucc4 = TestCase (do parsedFile <- parseFile "tests/associativity"
                         assertEqual "'=' associativity test"
                                      associativityAST $ show parsedFile)
testSucc4 :: Test
testSucc4 = TestCase (do parsedFile <- parseFile "tests/associativity"
                         assertEqual "'=' associativity test"
                                      associativityAST $ show parsedFile)
testSucc4 = TestCase (do parsedFile <- parseFile "tests/associativity"
                         assertEqual "'=' associativity test"
                                      associativityAST $ show parsedFile)