Skip to content

Commit b1435e2

Browse files
jacgcocreature
authored andcommitted
Tests for issue #283 (#284)
1 parent d06894f commit b1435e2

File tree

1 file changed

+2
-0
lines changed

1 file changed

+2
-0
lines changed

test/exe/Main.hs

+2
Original file line numberDiff line numberDiff line change
@@ -843,6 +843,7 @@ findDefinitionAndHoverTests = let
843843
mclL36 = Position 36 1 ; mcl = [mkR 36 0 36 14]
844844
mclL37 = Position 37 1
845845
docL41 = Position 41 1 ; doc = [ExpectHoverText ["Recognizable docs: kpqz"]]
846+
; constr = [ExpectHoverText ["Monad m =>"]]
846847
eitL40 = Position 40 28 ; kindE = [ExpectHoverText [":: * -> * -> *\n"]]
847848
intL40 = Position 40 34 ; kindI = [ExpectHoverText [":: *\n"]]
848849
tvrL40 = Position 40 37 ; kindV = [ExpectHoverText [":: * -> *\n"]]
@@ -884,6 +885,7 @@ findDefinitionAndHoverTests = let
884885
, test no broken chrL36 litC "literal Char in hover info #274"
885886
, test no broken txtL8 litT "literal Text in hover info #274"
886887
, test no broken lstL43 litL "literal List in hover info #274"
888+
, test no broken docL41 constr "type constraint in hover info #283"
887889
]
888890
where yes, broken :: (TestTree -> Maybe TestTree)
889891
yes = Just -- test should run and pass

0 commit comments

Comments
 (0)