1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
|
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)))]
-- ---------------------------------
|