testLiteralParameter :: Assertion
testLiteralParameter =
    testParse "testImplicitParameter" "f 01_=f 01." checkResult
  where
    checkResult [PartialDef (Identifier _ "f")
                            [ParamLiteral _ [False,True]]
                            [UnparsedIdentifier (Identifier _ "f"),
                             UnparsedLiteral _ [False,True]]] = True
    checkResult _ = False
testLiteralParameter :: Assertion
testLiteralParameter =
    testParse "testImplicitParameter" "f 01_=f 01." checkResult
  where
    checkResult [PartialDef (Identifier _ "f")
                            [ParamLiteral _ [False,True]]
                            [UnparsedIdentifier (Identifier _ "f"),
                             UnparsedLiteral _ [False,True]]] = True
    checkResult _ = False
testLiteralParameter =
    testParse "testImplicitParameter" "f 01_=f 01." checkResult
  where
    checkResult [PartialDef (Identifier _ "f")
                            [ParamLiteral _ [False,True]]
                            [UnparsedIdentifier (Identifier _ "f"),
                             UnparsedLiteral _ [False,True]]] = True
    checkResult _ = False