Welcome to mirror list, hosted at ThFree Co, Russian Federation.

github.com/mono/monodevelop.git - Unnamed repository; edit this file 'description' to name the repository.
summaryrefslogtreecommitdiff
diff options
context:
space:
mode:
Diffstat (limited to 'main/external/fsharpbinding/MonoDevelop.FSharp.Tests/TestTooltipProvider.fs')
-rw-r--r--main/external/fsharpbinding/MonoDevelop.FSharp.Tests/TestTooltipProvider.fs8
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 =
"""