Fix a CR test failure

2017-02-07 15:51:16 +02:00 · 2017-02-07 15:51:16 +02:00 · 1bc1ef5a35
commit 1bc1ef5a35
parent 954f813569
1 changed files with 2 additions and 1 deletions
--- a/yesod-static/test/FileGeneratorTests.hs
+++ b/yesod-static/test/FileGeneratorTests.hs
@ -78,7 +78,8 @@ fileGenSpecs = do
    describe "Compress" $ do
        it "compress tool function" $ do
            out <- compressTool "runhaskell" [] "main = putStrLn \"Hello World\""
-            assertEqual "" "Hello World\n" out
+            -- 13 == CR, to make this test work on Windows
+            BL.filter (/= 13) out `shouldBe` "Hello World\n"

        it "tryCompressTools" $ do
            out <- flip tryCompressTools "abcdef"