diff options
Diffstat (limited to 'main/external/fsharpbinding/MonoDevelop.FSharp.Tests/TestTooltipProvider.fs')
-rw-r--r-- | main/external/fsharpbinding/MonoDevelop.FSharp.Tests/TestTooltipProvider.fs | 8 |
1 files changed, 7 insertions, 1 deletions
diff --git a/main/external/fsharpbinding/MonoDevelop.FSharp.Tests/TestTooltipProvider.fs b/main/external/fsharpbinding/MonoDevelop.FSharp.Tests/TestTooltipProvider.fs index 51c5253afc..4e620102de 100644 --- a/main/external/fsharpbinding/MonoDevelop.FSharp.Tests/TestTooltipProvider.fs +++ b/main/external/fsharpbinding/MonoDevelop.FSharp.Tests/TestTooltipProvider.fs @@ -4,7 +4,6 @@ open NUnit.Framework open FsUnit open MonoDevelop.FSharp.MonoDevelop open MonoDevelop.FSharp - [<TestFixture>] type TestTooltipProvider() = let stripHtml html = @@ -55,6 +54,13 @@ type TestTooltipProvider() = segment.EndOffset |> should equal 11 [<Test>] + member this.``Type annotation has correct segment``() = + let line, col, symbolUse, editor = getSymbol "let map (f : 'a$ -> 'b) = ()" + let segment = Symbols.getTextSegment editor symbolUse.Value col line + segment.Offset |> should equal 14 + segment.EndOffset |> should equal 15 + + [<Test>] member this.``Base method has correct segment``() = let source = """ |