testSucc1 :: Test
testSucc1 = TestCase (do parsedFile <- parseFile "tests/funName"
                         assertEqual "funName and array test"
                                      funNameAST $ show parsedFile)
testSucc1 :: Test
testSucc1 = TestCase (do parsedFile <- parseFile "tests/funName"
                         assertEqual "funName and array test"
                                      funNameAST $ show parsedFile)
testSucc1 = TestCase (do parsedFile <- parseFile "tests/funName"
                         assertEqual "funName and array test"
                                      funNameAST $ show parsedFile)