Mesabloo/diagnose
1
1
Fork 0
mirror of https://github.com/Mesabloo/diagnose.git synced 2024-08-16 23:00:47 +03:00
Code Issues Projects Releases Wiki Activity

create new tests

Browse Source
This commit is contained in:
Mesabloo 2022-07-23 09:55:58 +02:00
parent 87de51ac93
commit 7650b2d020
1 changed files with 9 additions and 0 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

9
test/rendering/Spec.hs
View File

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