Skip to content

Commit 6a54107

Browse files
committed
Add the missing test after merged master
1 parent 80b97d5 commit 6a54107

File tree

1 file changed

+2
-0
lines changed

1 file changed

+2
-0
lines changed

ghcide/test/exe/FindDefinitionAndHoverTests.hs

Lines changed: 2 additions & 0 deletions
Original file line numberDiff line numberDiff line change
@@ -173,6 +173,7 @@ tests = let
173173
reexported = Position 55 14 ; reexportedSig = getDocUri "Bar.hs" >>= \bar -> return [ExpectHoverText ["Bar", "Bar", "Haddock"], mkL bar 3 (if ghcVersion >= GHC94 then 5 else 0) 3 (if ghcVersion >= GHC94 then 8 else 14)]
174174
thLocL57 = Position 59 10 ; thLoc = [ExpectHoverText ["Identity"]]
175175
cmtL68 = Position 67 0 ; lackOfdEq = [ExpectHoverExcludeText ["$dEq"]]
176+
import310 = Position 3 10; pkgTxt = [ExpectHoverText ["Data.Text\n\ntext-"]]
176177
in
177178
mkFindTests
178179
-- def hover look expect
@@ -236,6 +237,7 @@ tests = let
236237
test no broken thLocL57 thLoc "TH Splice Hover"
237238
| otherwise ->
238239
test no yes thLocL57 thLoc "TH Splice Hover"
240+
, test yes yes import310 pkgTxt "show package name and its version"
239241
]
240242
where yes, broken :: (TestTree -> Maybe TestTree)
241243
yes = Just -- test should run and pass

0 commit comments

Comments
 (0)