[DHG_packages] 01/01: xmlhtml: make testsuite slightly less silly so we can get some insight into what's failing on 32-bit architectures

[Clint Adams]

This is an automated email from the git hooks/post-receive script.

clint pushed a commit to branch master
in repository DHG_packages.

commit 385170cef7681a77205018d5c1585fd2f64f1211
Author: Clint Adams <clint at debian.org>
Date:   Fri Jul 7 15:47:04 2017 -0400

    xmlhtml: make testsuite slightly less silly so we can get some insight into what's failing on 32-bit architectures
---
 p/haskell-xmlhtml/debian/changelog               |  7 ++++++
 p/haskell-xmlhtml/debian/patches/saner-testsuite | 28 ++++++++++++++++++++++++
 p/haskell-xmlhtml/debian/patches/series          |  1 +
 3 files changed, 36 insertions(+)

diff --git a/p/haskell-xmlhtml/debian/changelog b/p/haskell-xmlhtml/debian/changelog
index c986a09..cc7dafd 100644
--- a/p/haskell-xmlhtml/debian/changelog
+++ b/p/haskell-xmlhtml/debian/changelog
@@ -1,3 +1,10 @@
+haskell-xmlhtml (0.2.4-2) unstable; urgency=medium
+
+  * Make testsuite slightly less silly so we can get some insight
+    into what's failing on 32-bit architectures.
+
+ -- Clint Adams <clint at debian.org>  Fri, 07 Jul 2017 15:46:27 -0400
+
 haskell-xmlhtml (0.2.4-1) unstable; urgency=medium
 
   * New upstream release
diff --git a/p/haskell-xmlhtml/debian/patches/saner-testsuite b/p/haskell-xmlhtml/debian/patches/saner-testsuite
new file mode 100644
index 0000000..c19255b
--- /dev/null
+++ b/p/haskell-xmlhtml/debian/patches/saner-testsuite
@@ -0,0 +1,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 ®")
+ 
+ 
+ ------------------------------------------------------------------------------
diff --git a/p/haskell-xmlhtml/debian/patches/series b/p/haskell-xmlhtml/debian/patches/series
new file mode 100644
index 0000000..f35b2a8
--- /dev/null
+++ b/p/haskell-xmlhtml/debian/patches/series
@@ -0,0 +1 @@
+saner-testsuite

-- 
Alioth's /usr/local/bin/git-commit-notice on /srv/git.debian.org/git/pkg-haskell/DHG_packages.git