testTwoParameters :: Assertion
testTwoParameters = testParse "testTwoParameters" "f 01a b=10a b." checkResult
  where
    checkResult [PartialDef (Identifier _ "f")
                            [ParamBound _ [False,True] (Identifier _ "a"),
                             ParamBound _ [] (Identifier _ "b")]
                            [UnparsedLiteral _ [True,False],
                             UnparsedIdentifier (Identifier _ "a"),
                             UnparsedIdentifier (Identifier _ "b")]] = True
    checkResult _ = False
testTwoParameters :: Assertion
testTwoParameters = testParse "testTwoParameters" "f 01a b=10a b." checkResult
  where
    checkResult [PartialDef (Identifier _ "f")
                            [ParamBound _ [False,True] (Identifier _ "a"),
                             ParamBound _ [] (Identifier _ "b")]
                            [UnparsedLiteral _ [True,False],
                             UnparsedIdentifier (Identifier _ "a"),
                             UnparsedIdentifier (Identifier _ "b")]] = True
    checkResult _ = False
testTwoParameters = testParse "testTwoParameters" "f 01a b=10a b." checkResult
  where
    checkResult [PartialDef (Identifier _ "f")
                            [ParamBound _ [False,True] (Identifier _ "a"),
                             ParamBound _ [] (Identifier _ "b")]
                            [UnparsedLiteral _ [True,False],
                             UnparsedIdentifier (Identifier _ "a"),
                             UnparsedIdentifier (Identifier _ "b")]] = True
    checkResult _ = False