Don't match braces at the end of the caret (dotnet#1619)

OmarTawfik · KevinRansom · commit 749ba2dfbbb4 · 2016-10-15T13:27:14.000-07:00
diff --git a/vsintegration/src/FSharp.Editor/BraceMatchingService.fs b/vsintegration/src/FSharp.Editor/BraceMatchingService.fs
@@ -14,7 +14,7 @@ type internal FSharpBraceMatchingService() =
     static member GetBraceMatchingResult(sourceText, fileName, options, position) = async {
         let isPositionInRange(range) =
             let span = CommonRoslynHelpers.FSharpRangeToTextSpan(sourceText, range)
-            span.Start <= position && position <= span.End
+            span.Start <= position && position < span.End
         let! matchedBraces = FSharpChecker.Instance.MatchBracesAlternate(fileName, sourceText.ToString(), options)
 
         return matchedBraces |> Seq.tryFind(fun(left, right) -> isPositionInRange(left) || isPositionInRange(right))
diff --git a/vsintegration/tests/unittests/BraceMatchingServiceTests.fs b/vsintegration/tests/unittests/BraceMatchingServiceTests.fs
@@ -139,4 +139,17 @@ type BraceMatchingServiceTests()  =
             let x = \"stringValue\" + (endsInString +
             \" )endsInString <startsInString \" +
             + >startsInString"
-        this.VerifyNoBraceMatch(code, startMarker)
+        this.VerifyNoBraceMatch(code, startMarker)
+        
+    [<Test>]
+    member this.BraceMatchingAtEndOfLine_Bug1597() = 
+        // https://github.com/Microsoft/visualfsharp/issues/1597
+        let code = """
+[<EntryPoint>]
+let main argv = 
+    let arg1 = ""
+    let arg2 = ""
+    let arg3 = ""
+    (printfn "%A '%A' '%A'" (arg1) (arg2) (arg3))endBrace
+    0 // return an integer exit code"""
+        this.VerifyBraceMatch(code, "(printfn", ")endBrace")
