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