@@ -106,8 +106,9 @@ runTest testname opts inp norm = do
106106 ec <- waitForProcess ph
107107 result <- if ec == ExitSuccess
108108 then do
109− outputContents <- readFile outputPath
110− normContents <- readFile normPath
109+ -- filter \r so the tests will work on Windows machines
110+ outputContents <- readFile outputPath >>= return . filter (/='r')
111+ normContents <- readFile normPath >>= return . filter (/='r')
111112 if outputContents == normContents
112113 then return TestPassed
113114 else return $ TestFailed $ getDiff (lines outputContents) (lines normContents)