testSucc5 :: Test
testSucc5 = TestCase (do parsedFile <- parseFile "tests/allowedIdents"
                         assertEqual "allowed idents (using '_') test"
                                      allowedIdentsAST $ show parsedFile)
testSucc5 :: Test
testSucc5 = TestCase (do parsedFile <- parseFile "tests/allowedIdents"
                         assertEqual "allowed idents (using '_') test"
                                      allowedIdentsAST $ show parsedFile)
testSucc5 = TestCase (do parsedFile <- parseFile "tests/allowedIdents"
                         assertEqual "allowed idents (using '_') test"
                                      allowedIdentsAST $ show parsedFile)