testSucc6 :: Test
testSucc6 = TestCase (do parsedFile <- parseFile "tests/illegalIdents"
                         assertEqual "illegal ident starting with digit"
                                      illegalIdents $ show parsedFile)
testSucc6 :: Test
testSucc6 = TestCase (do parsedFile <- parseFile "tests/illegalIdents"
                         assertEqual "illegal ident starting with digit"
                                      illegalIdents $ show parsedFile)
testSucc6 = TestCase (do parsedFile <- parseFile "tests/illegalIdents"
                         assertEqual "illegal ident starting with digit"
                                      illegalIdents $ show parsedFile)