From 56cba054232dd86aee0da705825938e3a4a6d3d9 Mon Sep 17 00:00:00 2001
From: Bodigrim <andrew.lelechenko@gmail.com>
Date: Sat, 13 Nov 2021 21:23:15 +0000
Subject: [PATCH] Tests: do not assume that system locale is Unicode-compatible
---
tests/Tests/QuickCheckUtils.hs | 2 ++
1 file changed, 2 insertions(+)
diff --git a/tests/Tests/QuickCheckUtils.hs b/tests/Tests/QuickCheckUtils.hs
index 833be1ad..d7d5e2ae 100644
--- a/tests/Tests/QuickCheckUtils.hs
+++ b/tests/Tests/QuickCheckUtils.hs
@@ -248,11 +248,13 @@ write_read unline filt writer reader nl buf ts = ioProperty $
t = unline . map (filt (not . (`elem` "\r\n"))) $ ts
act = withTempFile $ \path h -> do
+ IO.hSetEncoding h IO.utf8
IO.hSetNewlineMode h nl
IO.hSetBuffering h buf
() <- writer h t
IO.hClose h
bracket (IO.openFile path IO.ReadMode) IO.hClose $ \h' -> do
+ IO.hSetEncoding h' IO.utf8
IO.hSetNewlineMode h' nl
IO.hSetBuffering h' buf
r <- reader h'
--
GitLab