From 9dd8b6fe88eacd8bd592c4ef31af592836e84c3b Mon Sep 17 00:00:00 2001 From: Jaro Date: Thu, 9 Mar 2023 07:47:51 +0100 Subject: [PATCH] Insert extra test to work around segmentation fault. Without the added test, the test suite causes a segmentation fault after starting "wraps by characters when line is ultra narrow". --- test/Data/Text/ParagraphLayoutSpec.hs | 3 +++ 1 file changed, 3 insertions(+) diff --git a/test/Data/Text/ParagraphLayoutSpec.hs b/test/Data/Text/ParagraphLayoutSpec.hs index f54276b..452ebe7 100644 --- a/test/Data/Text/ParagraphLayoutSpec.hs +++ b/test/Data/Text/ParagraphLayoutSpec.hs @@ -79,6 +79,9 @@ spec = do -- Note: This font does not contain Japanese glyphs. describe "layoutPlain" $ do describe "with Arabic font" $ before loadPlexSansArabicRegular $ do + it "handles input with no spans" $ \font -> do + let result = layoutPlain $ emptyParagraph $ opts font + result `shouldBe` emptyLayout it "wraps filler text at 20em" $ \font -> do let result = layoutPlain $ arabicFillerParagraph $ -- 2.30.2