From e18bc15fe1d4b1445d766afea1a1ebf628747ee6 Mon Sep 17 00:00:00 2001 From: Jaro Date: Thu, 23 Mar 2023 09:06:49 +0100 Subject: [PATCH] Ensure tests do not pass with missing files. --- test/Data/Text/ParagraphLayoutSpec.hs | 4 ++-- 1 file changed, 2 insertions(+), 2 deletions(-) diff --git a/test/Data/Text/ParagraphLayoutSpec.hs b/test/Data/Text/ParagraphLayoutSpec.hs index abd39c4..bbb99aa 100644 --- a/test/Data/Text/ParagraphLayoutSpec.hs +++ b/test/Data/Text/ParagraphLayoutSpec.hs @@ -137,7 +137,7 @@ instance ShouldBeGolden ParagraphLayout where , readFromFile = \path -> readFile path >>= return . read , goldenFile = ".golden" name "golden" , actualFile = Just (".golden" name "actual") - , failFirstTime = False + , failFirstTime = True } instance ShouldBeGolden ShapedRuns where @@ -148,7 +148,7 @@ instance ShouldBeGolden ShapedRuns where , readFromFile = \path -> readFile path >>= return . ShapedRuns . read , goldenFile = ".golden" "shapedRuns" name "golden" , actualFile = Just (".golden" "shapedRuns" name "actual") - , failFirstTime = False + , failFirstTime = True } fontInfoPath :: String -> FilePath -- 2.30.2