From 23232785769a0dda5a73aa9e17a2ebb7d95277a0 Mon Sep 17 00:00:00 2001
From: fiddlosopher <fiddlosopher@788f1e2b-df1e-0410-8736-df70ead52e1b>
Date: Thu, 14 Aug 2008 19:54:52 +0000
Subject: 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
---
 tests/RunTests.hs | 5 +++--
 1 file 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)
-- 
cgit v1.2.3