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