diff options
Diffstat (limited to 'tests/RunTests.hs')
-rw-r--r-- | tests/RunTests.hs | 5 |
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) |