blob: c19255bb42064b841dabe4090e0ee501d026de71 (
plain)
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
|
--- a/test/src/Text/XmlHtml/Tests.hs
+++ b/test/src/Text/XmlHtml/Tests.hs
@@ -564,7 +564,7 @@
testIt "bothQuotesInAttr " bothQuotesInAttr,
testIt "ndashEscapesInLatin " ndashEscapesInLatin,
testIt "smileyEscapesInLatin " smileyEscapesInLatin,
- testIt "numericalEscapes " numericalEscapes
+ testCase "numericalEscapes " numericalEscapes
]
renderByteOrderMark :: Bool
@@ -661,11 +661,11 @@
]))
== "Hello ☺"
-numericalEscapes :: Bool
-numericalEscapes =
- fmap (toByteString . renderXmlFragment ISO_8859_1 . docContent)
- (parseXML "test" "Hello ®")
- == Right "Hello ®"
+numericalEscapes :: Assertion
+numericalEscapes = assertEqual "nE"
+ (fmap (toByteString . renderXmlFragment ISO_8859_1 . docContent)
+ (parseXML "test" "Hello ®"))
+ (Right "Hello ®")
------------------------------------------------------------------------------
|
