diff --git a/test/HaRePluginSpec.hs b/test/HaRePluginSpec.hs index 039c094..d0d1fa4 100644 --- a/test/HaRePluginSpec.hs +++ b/test/HaRePluginSpec.hs @@ -326,35 +326,6 @@ hareSpec = do $ List [TextEdit (Range (Position 4 0) (Position 8 12)) "parseStr = char '\"' *> (many1 (noneOf \"\\\"\")) <* char '\"'"]) Nothing) - it "finds definition across components" $ do - let u = filePathToUri "./app/Main.hs" - let lreq = setTypecheckedModule u - let req = findDef u (toPos (7,8)) - r <- dispatchRequestPGoto $ lreq >> req - r `shouldBe` IdeResponseOk [Location (filePathToUri $ cwd "test/testdata/gototest/src/Lib.hs") - (Range (toPos (6,1)) (toPos (6,9)))] - let req2 = findDef u (toPos (7,20)) - r2 <- dispatchRequestPGoto $ lreq >> req2 - r2 `shouldBe` IdeResponseOk [Location (filePathToUri $ cwd "test/testdata/gototest/src/Lib2.hs") - (Range (toPos (5,1)) (toPos (5,2)))] - it "finds definition in the same component" $ do - let u = filePathToUri "./src/Lib2.hs" - let lreq = setTypecheckedModule u - let req = findDef u (toPos (6,5)) - r <- dispatchRequestPGoto $ lreq >> req - r `shouldBe` IdeResponseOk [Location (filePathToUri $ cwd "test/testdata/gototest/src/Lib.hs") - (Range (toPos (6,1)) (toPos (6,9)))] - it "finds local definitions" $ do - let u = filePathToUri "./src/Lib2.hs" - let lreq = setTypecheckedModule u - let req = findDef u (toPos (7,11)) - r <- dispatchRequestPGoto $ lreq >> req - r `shouldBe` IdeResponseOk [Location (filePathToUri $ cwd "test/testdata/gototest/src/Lib2.hs") - (Range (toPos (10,9)) (toPos (10,10)))] - let req2 = findDef u (toPos (10,13)) - r2 <- dispatchRequestPGoto $ lreq >> req2 - r2 `shouldBe` IdeResponseOk [Location (filePathToUri $ cwd "test/testdata/gototest/src/Lib2.hs") - (Range (toPos (9,9)) (toPos (9,10)))] -- ---------------------------------