diff options
| author | Ben Gamari <ben@smart-cactus.org> | 2016-02-08 15:09:21 +0100 |
|---|---|---|
| committer | Ben Gamari <ben@smart-cactus.org> | 2016-02-08 15:36:05 +0100 |
| commit | 60b4f394bcd27a097f1a97d460cddc27ead59ba7 (patch) | |
| tree | 83b93abcf1e124cb8ae45bf906daa87bfb1baaca /hypsrc-test/Main.hs | |
| parent | 4ca91adcbd26dfa5f102244f8170c5c74f5200db (diff) | |
test: Compare on dump
For reasons I don't understand the Xml representations differ despite
their textual representations being identical.
Diffstat (limited to 'hypsrc-test/Main.hs')
| -rw-r--r-- | hypsrc-test/Main.hs | 3 |
1 files changed, 2 insertions, 1 deletions
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 |