aboutsummaryrefslogtreecommitdiff
diff options
context:
space:
mode:
authorBen Gamari <ben@smart-cactus.org>2016-02-08 15:09:21 +0100
committerBen Gamari <ben@smart-cactus.org>2016-02-08 15:36:05 +0100
commit60b4f394bcd27a097f1a97d460cddc27ead59ba7 (patch)
tree83b93abcf1e124cb8ae45bf906daa87bfb1baaca
parent4ca91adcbd26dfa5f102244f8170c5c74f5200db (diff)
test: Compare on dump
For reasons I don't understand the Xml representations differ despite their textual representations being identical.
-rwxr-xr-xhtml-test/Main.hs3
-rw-r--r--hypsrc-test/Main.hs3
2 files changed, 4 insertions, 2 deletions
diff --git a/html-test/Main.hs b/html-test/Main.hs
index 02a86d43..67dbeec6 100755
--- a/html-test/Main.hs
+++ b/html-test/Main.hs
@@ -2,6 +2,7 @@
import Data.Char
+import Data.Function (on)
import System.Environment
import System.FilePath
@@ -15,7 +16,7 @@ checkConfig = CheckConfig
{ ccfgRead = parseXml
, ccfgClean = stripIfRequired
, ccfgDump = dumpXml
- , ccfgEqual = (==)
+ , ccfgEqual = (==) `on` dumpXml
}
diff --git a/hypsrc-test/Main.hs b/hypsrc-test/Main.hs
index 01cc5429..d3ab79a8 100644
--- a/hypsrc-test/Main.hs
+++ b/hypsrc-test/Main.hs
@@ -3,6 +3,7 @@
import Data.Char
import Data.List
+import Data.Function (on)
import System.Environment
import System.FilePath
@@ -16,7 +17,7 @@ checkConfig = CheckConfig
{ ccfgRead = parseXml
, ccfgClean = \_ -> strip
, ccfgDump = dumpXml
- , ccfgEqual = (==)
+ , ccfgEqual = (==) `on` dumpXml
}
where
strip = stripAnchors' . stripLinks' . stripFooter