Modified RunTests.hs to strip out '\r' so it will work on Windows.

git-svn-id: https://pandoc.googlecode.com/svn/trunk@1412 788f1e2b-df1e-0410-8736-df70ead52e1b

1 files changed, 3 insertions, 2 deletions

diff --git a/tests/RunTests.hs b/tests/RunTests.hs
index b0961a390..16ee30f7f 100644
--- a/tests/RunTests.hs
+++ b/tests/RunTests.hs
@@ -106,8 +106,9 @@ runTest testname opts inp norm = do
   ec <- waitForProcess ph
   result  <- if ec == ExitSuccess
                 then do
-                  outputContents <- readFile outputPath
-                  normContents <- readFile normPath
+                  -- filter \r so the tests will work on Windows machines
+                  outputContents <- readFile outputPath >>= return . filter (/='r')
+                  normContents <- readFile normPath >>= return . filter (/='r')
                   if outputContents == normContents
                      then return TestPassed
                      else return $ TestFailed $ getDiff (lines outputContents) (lines normContents)