testSucc8 :: Test
testSucc8 = TestCase (do parsedFile <- parseFile "tests/dotError"
                         assertEqual "spaces after dot error"
                                       dotError $ show parsedFile)
testSucc8 :: Test
testSucc8 = TestCase (do parsedFile <- parseFile "tests/dotError"
                         assertEqual "spaces after dot error"
                                       dotError $ show parsedFile)
testSucc8 = TestCase (do parsedFile <- parseFile "tests/dotError"
                         assertEqual "spaces after dot error"
                                       dotError $ show parsedFile)