From 7650b2d0206b86a29aad85af8ffb98a771964e7f Mon Sep 17 00:00:00 2001 From: Mesabloo <22964017+Mesabloo@users.noreply.github.com> Date: Sat, 23 Jul 2022 09:55:58 +0200 Subject: [PATCH] create new tests --- test/rendering/Spec.hs | 9 +++++++++ 1 file changed, 9 insertions(+) diff --git a/test/rendering/Spec.hs b/test/rendering/Spec.hs index e47a7af..c87236e 100644 --- a/test/rendering/Spec.hs +++ b/test/rendering/Spec.hs @@ -72,6 +72,7 @@ main = do errorWithMultilineMarkerMessage, errorWithMultilineMarkerMessage', errorWithSingleBlankMarker, + errorWithBlankAndNormalMarkerInLine, beautifulExample ] @@ -435,3 +436,11 @@ errorWithSingleBlankMarker = "Error with a single blank marker" [(Position (1, 5) (1, 10) "test.zc", Blank)] [] + +errorWithBlankAndNormalMarkerInLine :: Report String +errorWithBlankAndNormalMarkerInLine = + err + Nothing + "Error with a single blank marker" + [(Position (1, 5) (1, 10) "test.zc", Blank), (Position (1, 15) (1, 22) "test.zc", This "After a blank")] + []