Capturing broken QuickTip for obsolete methods in test - references #50

forki · Jan 21, 2015 · 8c458f2 · 8c458f2
1 parent fe88c1f
commit 8c458f2
Showing 1 changed file with 19 additions and 0 deletions.
diff --git a/vsintegration/src/unittests/Tests.LanguageService.QuickInfo.fs b/vsintegration/src/unittests/Tests.LanguageService.QuickInfo.fs
@@ -185,6 +185,25 @@ type QuickInfoTests() =
             atStart = true,
             f = (fun ((text, _), _) -> printfn "actual %s" text; Assert.IsFalse(text.Contains "member _Print"))
             )
+
+    [<Test>]
+    member public this.``QuickInfo.ObsoleteMember``() =
+        // Tooltips showed obsolete members - #50
+        let source = """
+            type TypeU = { Element : string }
+                with
+                    [<ObsoleteAttribute("This is replaced with Print2")>]
+                    member x.Print1 = x.Element.ToString() 
+                    member x.Print2 = 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 Print1"))
+            )
 
     [<Test>]
     member public this.``QuickInfo.OverriddenMethods``() =