git.iko.soy/ghcide
on master help sign in
Test for issue #7 (#270)
commit6cf1d60d8a763e07fe778695faf5e5c423cc1fcc authorJacek Generowicz <jacg@my-post-office.net> dateTue 17 Dec 2019, 16:27 (7 years ago) parent1b1c585
2 files changed+6−1
compare with master
unifiedsplit
test/data/GotoHover.hs+3 test/exe/Main.hs+3−1
test/data/GotoHover.hs+3
@@ -36,3 +36,6 @@ listCompBind = [ succ c | c <- "abc" ]
3636multipleClause :: Bool -> Char
3737multipleClause True = 't'
3838multipleClause False = 'f'
39+
40+-- | Recognizable docs: kpqz
41+documented = True
test/exe/Main.hs+3−1
@@ -842,6 +842,7 @@ findDefinitionAndHoverTests = let
842842 lclL33 = Position 33 22
843843 mclL36 = Position 36 1 ; mcl = [mkR 36 0 36 14]
844844 mclL37 = Position 37 1
845+ docL40 = Position 40 1 ; doc = [ExpectHoverText ["Recognizable docs: kpqz"]]
845846 in
846847 mkFindTests
847848 -- def hover look expect
@@ -868,11 +869,12 @@ findDefinitionAndHoverTests = let
868869 , test yes yes lclL33 lcb "listcomp lookup"
869870 , test yes yes mclL36 mcl "top-level fn 1st clause"
870871 , test yes yes mclL37 mcl "top-level fn 2nd clause #246"
872+ , test no broken docL40 doc "documentation"
871873 ]
872874 where yes, broken :: (TestTree -> Maybe TestTree)
873875 yes = Just -- test should run and pass
874876 broken = Just . (`xfail` "known broken")
875− -- no = const Nothing -- don't run this test at all
877+ no = const Nothing -- don't run this test at all
876878
877879pluginTests :: TestTree
878880pluginTests = testSessionWait "plugins" $ do