testSimple :: Assertion
testSimple = testParse "testSimple" "f=." checkResult
  where
    checkResult [PartialDef (Identifier _ "f") [] []] = True
    checkResult _ = False
testSimple :: Assertion
testSimple = testParse "testSimple" "f=." checkResult
  where
    checkResult [PartialDef (Identifier _ "f") [] []] = True
    checkResult _ = False
testSimple = testParse "testSimple" "f=." checkResult
  where
    checkResult [PartialDef (Identifier _ "f") [] []] = True
    checkResult _ = False