testComment :: Assertion
testComment = testParse "testComment" "f==.g=.\n1=1." checkResult
  where
    checkResult [PartialDef (Identifier _ "f")
                            [ParamIgnored _ [True]]
                            [UnparsedLiteral _ [True]]] = True
    checkResult _ = False
testComment :: Assertion
testComment = testParse "testComment" "f==.g=.\n1=1." checkResult
  where
    checkResult [PartialDef (Identifier _ "f")
                            [ParamIgnored _ [True]]
                            [UnparsedLiteral _ [True]]] = True
    checkResult _ = False
testComment = testParse "testComment" "f==.g=.\n1=1." checkResult
  where
    checkResult [PartialDef (Identifier _ "f")
                            [ParamIgnored _ [True]]
                            [UnparsedLiteral _ [True]]] = True
    checkResult _ = False