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