blob: 14445f471941f2e95b23320dd978cb1ccde50c8b (
plain)
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
|
--- a/test/Data/YamlSpec.hs
+++ b/test/Data/YamlSpec.hs
@@ -437,7 +437,7 @@
caseEncodeInvalidNumbers :: Assertion
caseEncodeInvalidNumbers =
- D.encode (D.String ".") @?= ".\n"
+ D.encode (D.String ".") @?= ".\n...\n"
caseDataTypesPretty :: Assertion
caseDataTypesPretty =
@@ -455,7 +455,7 @@
caseQuotedNumber = D.decode "foo: \"1234\"" @?= Just (object [("foo", D.String "1234")])
caseUnquotedNumber = D.decode "foo: 1234" @?= Just (object [("foo", D.Number 1234)])
caseAttribNumber = D.decode "foo: !!str 1234" @?= Just (object [("foo", D.String "1234")])
-caseIntegerDecimals = D.encode (1 :: Int) @?= "1\n"
+caseIntegerDecimals = D.encode (1 :: Int) @?= "1\n...\n"
obj :: Maybe D.Value
obj = Just (object [("foo", D.Bool False), ("bar", D.Bool True), ("baz", D.Bool True)])
|
