Fix hPutBuilder test on Windows platform

haskell · Nov 10, 2020 · 059af04 · 059af04
1 parent 4d9b403
commit 059af04
Showing 1 changed file with 2 additions and 1 deletion.
diff --git a/tests/builder/Data/ByteString/Builder/Tests.hs b/tests/builder/Data/ByteString/Builder/Tests.hs
@@ -40,7 +40,7 @@ import qualified Data.ByteString.Builder.Prim       as BP
 import           Data.ByteString.Builder.Prim.TestUtils
 
 import           Control.Exception (evaluate)
-import           System.IO (openTempFile, hPutStr, hClose, hSetBinaryMode)
+import           System.IO (openTempFile, hPutStr, hClose, hSetBinaryMode, hSetNewlineMode, noNewlineTranslation)
 import           System.IO (hSetEncoding, utf8)
 import           System.Directory
 import           Foreign (ForeignPtr, withForeignPtr, castPtr)
@@ -114,6 +114,7 @@ testHandlePutBuilder =
         (tempFile, tempH) <- openTempFile tempDir "TestBuilder"
         -- switch to UTF-8 encoding
         hSetEncoding tempH utf8
+        hSetNewlineMode tempH noNewlineTranslation
         -- output recipe with intermediate direct writing to handle
         let b = fst $ recipeComponents recipe
         hPutStr tempH before