testSucc7 :: Test
testSucc7 = TestCase (do parsedFile <- parseFile "tests/reservedIdents"
                         assertEqual "reserved ident"
                                      reservedIdents $ show parsedFile)
testSucc7 :: Test
testSucc7 = TestCase (do parsedFile <- parseFile "tests/reservedIdents"
                         assertEqual "reserved ident"
                                      reservedIdents $ show parsedFile)
testSucc7 = TestCase (do parsedFile <- parseFile "tests/reservedIdents"
                         assertEqual "reserved ident"
                                      reservedIdents $ show parsedFile)