Skip to content
This repository was archived by the owner on Oct 7, 2020. It is now read-only.

Commit 49582c2

Browse files
committed
Disable type definition test across modules
1 parent 8e0241c commit 49582c2

File tree

1 file changed

+13
-12
lines changed

1 file changed

+13
-12
lines changed

test/functional/TypeDefinitionSpec.hs

Lines changed: 13 additions & 12 deletions
Original file line numberDiff line numberDiff line change
@@ -74,18 +74,19 @@ spec = describe "type definitions" $ do
7474
]
7575

7676
it "find type-definition of type def in component"
77-
$ runSession hieCommand fullCaps "test/testdata/gototest"
78-
$ do
79-
doc <- openDoc "src/Lib2.hs" "haskell"
80-
otherDoc <- openDoc "src/Lib.hs" "haskell"
81-
closeDoc otherDoc
82-
defs <- getTypeDefinitions doc (toPos (13, 20))
83-
liftIO $ do
84-
fp <- canonicalizePath "test/testdata/gototest/src/Lib.hs"
85-
defs
86-
`shouldBe` [ Location (filePathToUri fp)
87-
(Range (toPos (8, 1)) (toPos (8, 29)))
88-
]
77+
$ pendingWith "Finding symbols cross module is currently not supported"
78+
-- $ runSession hieCommand fullCaps "test/testdata/gototest"
79+
-- $ do
80+
-- doc <- openDoc "src/Lib2.hs" "haskell"
81+
-- otherDoc <- openDoc "src/Lib.hs" "haskell"
82+
-- closeDoc otherDoc
83+
-- defs <- getTypeDefinitions doc (toPos (13, 20))
84+
-- liftIO $ do
85+
-- fp <- canonicalizePath "test/testdata/gototest/src/Lib.hs"
86+
-- defs
87+
-- `shouldBe` [ Location (filePathToUri fp)
88+
-- (Range (toPos (8, 1)) (toPos (8, 29)))
89+
-- ]
8990
it "find definition of parameterized data type"
9091
$ runSession hieCommand fullCaps "test/testdata/gototest"
9192
$ do

0 commit comments

Comments
 (0)