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")] + []