testLiteral :: Assertion
testLiteral = testParse "testLiteral" "f=0110." checkResult
  where
    checkResult [PartialDef (Identifier _ "f") []
                            [UnparsedLiteral _ [False,True,True,False]]] = True
    checkResult _ = False
testLiteral :: Assertion
testLiteral = testParse "testLiteral" "f=0110." checkResult
  where
    checkResult [PartialDef (Identifier _ "f") []
                            [UnparsedLiteral _ [False,True,True,False]]] = True
    checkResult _ = False
testLiteral = testParse "testLiteral" "f=0110." checkResult
  where
    checkResult [PartialDef (Identifier _ "f") []
                            [UnparsedLiteral _ [False,True,True,False]]] = True
    checkResult _ = False