diff --git a/vsintegration/src/unittests/Tests.LanguageService.QuickInfo.fs b/vsintegration/src/unittests/Tests.LanguageService.QuickInfo.fs index 0c5b4767cf64..d3030595ab55 100644 --- a/vsintegration/src/unittests/Tests.LanguageService.QuickInfo.fs +++ b/vsintegration/src/unittests/Tests.LanguageService.QuickInfo.fs @@ -165,6 +165,27 @@ type QuickInfoTests() = f = (fun ((text, _), _) -> printfn "actual %s" text; Assert.IsTrue(text.Contains "tooltip for operator")) ) + [] + member public this.``QuickInfo.HiddenMember``() = + // Tooltips showed hidden members - #50 + let source = """ + open System.ComponentModel + + type TypeU = { Element : string } + with + [] + [] + member x._Print = x.Element.ToString() + + let u = { Element = "abc" } + """ + this.CheckTooltip( + code = source, + marker = "ypeU =", + atStart = true, + f = (fun ((text, _), _) -> printfn "actual %s" text; Assert.IsFalse(text.Contains "member _Print")) + ) + [] member public this.``QuickInfo.OverriddenMethods``() = let source = """