git.iko.soy/ghcide
on master help sign in
Add tests for #246 (#245)
fb66f87Jacek Generowicz
test/data/GotoHover.hs+4
compare with master
unifiedsplit
@@ -32,3 +32,7 @@ doBind = do unwrapped <- Just ()
32
32
33listCompBind :: [Char]
33listCompBind :: [Char]
34listCompBind = [ succ c | c <- "abc" ]
34listCompBind = [ succ c | c <- "abc" ]
35+
36+multipleClause :: Bool -> Char
37+multipleClause True = 't'
38+multipleClause False = 'f'
test/exe/Main.hs+4
@@ -790,6 +790,8 @@ findDefinitionAndHoverTests = let
790 dnbL30 = Position 30 23
790 dnbL30 = Position 30 23
791 lcbL33 = Position 33 26 ; lcb = [ExpectHoverText [":: Char"], mkR 33 26 33 27]
791 lcbL33 = Position 33 26 ; lcb = [ExpectHoverText [":: Char"], mkR 33 26 33 27]
792 lclL33 = Position 33 22
792 lclL33 = Position 33 22
793+ mclL36 = Position 36 1 ; mcl = [mkR 36 0 36 14]
794+ mclL37 = Position 37 1
793 in
795 in
794 mkFindTests
796 mkFindTests
795 -- def hover look expect
797 -- def hover look expect
@@ -814,6 +816,8 @@ findDefinitionAndHoverTests = let
814 , test yes yes dnbL30 dnb "do-notation lookup"
816 , test yes yes dnbL30 dnb "do-notation lookup"
815 , test yes yes lcbL33 lcb "listcomp bind" -- 137
817 , test yes yes lcbL33 lcb "listcomp bind" -- 137
816 , test yes yes lclL33 lcb "listcomp lookup"
818 , test yes yes lclL33 lcb "listcomp lookup"
819+ , test yes yes mclL36 mcl "top-level fn 1st clause"
820+ , test broken broken mclL37 mcl "top-level fn 2nd clause" -- issue #245
817 ]
821 ]
818 where yes, broken :: (TestTree -> Maybe TestTree)
822 where yes, broken :: (TestTree -> Maybe TestTree)
819 yes = Just -- test should run and pass
823 yes = Just -- test should run and pass