@@ -70,6 +70,7 @@ spec = do
7070 it "encode/decode strings" caseEncodeDecodeStrings
7171 it "decode invalid file" caseDecodeInvalid
7272 it "processes datatypes" caseDataTypes
73+ it "encode invalid numbers" caseEncodeInvalidNumbers
7374 describe "Data.Yaml.Pretty" $ do
7475 it "encode/decode" caseEncodeDecodeDataPretty
7576 it "encode/decode strings" caseEncodeDecodeStringsPretty
@@ -434,6 +435,10 @@ caseDataTypes =
434435 , ("null", D.Null)
435436 ]
436437
438+caseEncodeInvalidNumbers :: Assertion
439+caseEncodeInvalidNumbers =
440+ D.encode (D.String ".") @?= ".\n"
441+
437442caseDataTypesPretty :: Assertion
438443caseDataTypesPretty =
439444 D.decode (Pretty.encodePretty Pretty.defConfig val) @?= Just val