We read every piece of feedback, and take your input very seriously.
To see all available qualifiers, see our documentation.
There was an error while loading. Please reload this page.
1 parent 93e0b17 commit aeb12d2Copy full SHA for aeb12d2
plugins/hls-call-hierarchy-plugin/test/Main.hs
@@ -25,18 +25,11 @@ plugin = descriptor "callHierarchy"
25
26
main :: IO ()
27
main = defaultTestRunner $
28
- testGroup "Call Hierarchy"
29
- [ prepareCallHierarchyTests
30
- , incomingCallsTests
31
- , outgoingCallsTests
32
- ]
33
-
34
-main1 = defaultTestRunner $ testCase "t1" $ do
35
- let contents = T.unlines ["a :: Int", "f=3","a = 3"]
36
- range = mkRange 2 0 2 5
37
- selRange = mkRange 2 0 2 1
38
- expected = mkCallHierarchyItemV "a" SkFunction range selRange
39
- oneCaseWithCreate contents 0 0 expected
+ testGroup "Call Hierarchy"
+ [ prepareCallHierarchyTests
+ , incomingCallsTests
+ , outgoingCallsTests
+ ]
40
41
prepareCallHierarchyTests :: TestTree
42
prepareCallHierarchyTests =
0 commit comments