Extend selection: add more cases for selecting identifier first

Author: auduchinok

ReSharper.FSharp/src/FSharp.Psi.Features/src/ExtendSelection/FSharpExtendSelectionProvider.fs

@@ -117,7 +117,8 @@ and FSharpDotSelection(fsFile, offset, selectBetterToken, useCamelHumps) =
 
     override this.IsPrevTokenBetter(prevToken, tokenNode) =
         let tokenType = tokenNode.GetTokenType()
-        tokenType == FSharpTokenType.GREATER && not (this.IsSpaceToken(prevToken)) ||
+        let isIdentifierLikeToken = FSharpTokenType.Identifiers.[tokenType]
+        isIdentifierLikeToken && tokenType != FSharpTokenType.IDENTIFIER && not (this.IsSpaceToken(prevToken)) ||
 
         base.IsPrevTokenBetter(prevToken, tokenNode)
 

ReSharper.FSharp/test/data/features/service/extendSelection/Less 01.fs

@@ -0,0 +1 @@
+ignore{caret}<int>

ReSharper.FSharp/test/data/features/service/extendSelection/Less 01.fs.gold

@@ -0,0 +1,9 @@
+|ignore|<int>
+
+---------------------------------------------------------
+|ignore<int>|
+
+---------------------------------------------------------
+|ignore<int>
+|
+---------------------------------------------------------

ReSharper.FSharp/test/data/features/service/extendSelection/Plus 01.fs

@@ -0,0 +1 @@
+i{caret}+1

ReSharper.FSharp/test/data/features/service/extendSelection/Plus 01.fs.gold

@@ -0,0 +1,9 @@
+|i|+1
+
+---------------------------------------------------------
+|i+1|
+
+---------------------------------------------------------
+|i+1
+|
+---------------------------------------------------------

ReSharper.FSharp/test/src/FSharp.Tests/Actions/FSharpExtendSelectionTest.fs

@@ -58,3 +58,5 @@ type FSharpExtendSelectionTest() =
     [<Test>] member x.``Greater 01``() = x.DoNamedTest()
     [<Test>] member x.``Greater 02``() = x.DoNamedTest()
     [<Test>] member x.``Greater 03``() = x.DoNamedTest()
+    [<Test>] member x.``Less 01``() = x.DoNamedTest()
+    [<Test>] member x.``Plus 01``() = x.DoNamedTest()