[Make runtests.hs strip links before diffing
David Waern <david.waern@gmail.com>**20091122135848
 Ignore-this: 6bc60484a755f34e03d49dcf0267407c
 
 Generates easier to read diffs when tests fail. The content of the links
 is not important anyway since it is not taken into account by the tests.
] {
hunk ./tests/runtests.hs 23
-  where
-    stripLinks f = subRegex (mkRegexWithOpts "<A HREF=[^>]*>" False False) f "<A HREF=\"\">"
hunk ./tests/runtests.hs 24
+stripLinks f = subRegex (mkRegexWithOpts "<A HREF=[^>]*>" False False) f "<A HREF=\"\">"
hunk ./tests/runtests.hs 44
+            let ref' = stripLinks ref
+                out' = stripLinks out
+            let reffile' = "output" </> takeFileName reffile ++ ".nolinks"
+                outfile' = "output" </> takeFileName outfile ++ ".nolinks"
+            writeFile reffile' ref'
+            writeFile outfile' out'
hunk ./tests/runtests.hs 52
-              then system $ "colordiff " ++ reffile ++ " " ++ outfile
-              else system $ "diff " ++ reffile ++ " " ++ outfile
+              then system $ "colordiff " ++ reffile' ++ " " ++ outfile'
+              else system $ "diff " ++ reffile' ++ " " ++ outfile'
}