Skip to content
体验新版
项目
组织
正在加载...
登录
切换导航
打开侧边栏
lwm1986
roslyn
提交
21803cb4
R
roslyn
项目概览
lwm1986
/
roslyn
与 Fork 源项目一致
从无法访问的项目Fork
通知
1
Star
0
Fork
0
代码
文件
提交
分支
Tags
贡献者
分支图
Diff
Issue
0
列表
看板
标记
里程碑
合并请求
0
DevOps
流水线
流水线任务
计划
Wiki
0
Wiki
分析
仓库
DevOps
项目成员
Pages
R
roslyn
项目概览
项目概览
详情
发布
仓库
仓库
文件
提交
分支
标签
贡献者
分支图
比较
Issue
0
Issue
0
列表
看板
标记
里程碑
合并请求
0
合并请求
0
Pages
DevOps
DevOps
流水线
流水线任务
计划
分析
分析
仓库分析
DevOps
Wiki
0
Wiki
成员
成员
收起侧边栏
关闭侧边栏
动态
分支图
创建新Issue
流水线任务
提交
Issue看板
体验新版 GitCode,发现更多精彩内容 >>
未验证
提交
21803cb4
编写于
7月 11, 2020
作者:
C
CyrusNajmabadi
提交者:
GitHub
7月 11, 2020
浏览文件
操作
浏览文件
下载
差异文件
Merge pull request #45614 from hartmair/master
Fix VB case correction for named tuple identifiers
上级
918f6702
d38fafd2
变更
3
隐藏空白更改
内联
并排
Showing
3 changed file
with
69 addition
and
0 deletion
+69
-0
src/Workspaces/VisualBasic/Portable/CaseCorrection/VisualBasicCaseCorrectionService.Rewriter.vb
...seCorrection/VisualBasicCaseCorrectionService.Rewriter.vb
+6
-0
src/Workspaces/VisualBasicTest/CaseCorrection/CaseCorrectionTests.vb
...ces/VisualBasicTest/CaseCorrection/CaseCorrectionTests.vb
+36
-0
src/Workspaces/VisualBasicTest/CaseCorrection/VisualBasicCaseCorrectionTestBase.vb
...cTest/CaseCorrection/VisualBasicCaseCorrectionTestBase.vb
+27
-0
未找到文件。
src/Workspaces/VisualBasic/Portable/CaseCorrection/VisualBasicCaseCorrectionService.Rewriter.vb
浏览文件 @
21803cb4
...
...
@@ -124,6 +124,12 @@ Namespace Microsoft.CodeAnalysis.VisualBasic.CaseCorrection
Return
CaseCorrectIdentifierIfNamesDiffer
(
token
,
newToken
,
otherPartParam
,
namesMustBeEqualIgnoringCase
:
=
True
)
End
If
End
If
Else
' Named tuple expression
Dim
nameColonEquals
=
TryCast
(
token
.
Parent
?
.
Parent
,
NameColonEqualsSyntax
)
If
nameColonEquals
IsNot
Nothing
AndAlso
TypeOf
nameColonEquals
.
Parent
?
.
Parent
Is
TupleExpressionSyntax
Then
Return
newToken
End
If
End
If
End
If
End
If
...
...
src/Workspaces/VisualBasicTest/CaseCorrection/CaseCorrectionTests.vb
0 → 100644
浏览文件 @
21803cb4
' Licensed to the .NET Foundation under one or more agreements.
' The .NET Foundation licenses this file to you under the MIT license.
' See the LICENSE file in the project root for more information.
Imports
Microsoft.CodeAnalysis.Editor.UnitTests.CodeActions
Imports
Microsoft.CodeAnalysis.Test.Utilities
Imports
Microsoft.CodeAnalysis.Text
Imports
Microsoft.CodeAnalysis.VisualBasic
Imports
Microsoft.CodeAnalysis.VisualBasic.Syntax
Imports
Roslyn.Test.Utilities
Imports
Xunit
Namespace
Microsoft.CodeAnalysis.VisualBasic.UnitTests.CaseCorrection
Public
Class
CaseCorrectionTests
Inherits
VisualBasicCaseCorrectionTestBase
<
Fact
,
Trait
(
Traits
.
Feature
,
Traits
.
Features
.
CaseCorrection
)
>
<
WorkItem
(
45508
,
"https://github.com/dotnet/roslyn/issues/45508"
)
>
Public
Async
Function
NamedTupleIdentifier
()
As
Task
Dim
code
=
<
Code
>
Class
C
Sub
NamedTupleCasing
(
value1
As
Integer
)
Dim
a
=
(
Value1
:
=
Value1
,
Value2
:
=
2
)
End
Sub
End
Class
</
Code
>
Dim
expected
=
<
Code
>
Class
C
Sub
NamedTupleCasing
(
value1
As
Integer
)
Dim
a
=
(
Value1
:
=
value1
,
Value2
:
=
2
)
End
Sub
End
Class
</
Code
>
Await
AssertCaseCorrectAsync
(
code
.
Value
,
expected
.
Value
)
End
Function
End
Class
End
Namespace
src/Workspaces/VisualBasicTest/CaseCorrection/VisualBasicCaseCorrectionTestBase.vb
0 → 100644
浏览文件 @
21803cb4
' Licensed to the .NET Foundation under one or more agreements.
' The .NET Foundation licenses this file to you under the MIT license.
' See the LICENSE file in the project root for more information.
Imports
Microsoft.CodeAnalysis.CaseCorrection
Imports
Microsoft.CodeAnalysis.Test.Utilities
Imports
Microsoft.CodeAnalysis.Text
Imports
Roslyn.Test.Utilities
Namespace
Microsoft.CodeAnalysis.VisualBasic.UnitTests.CaseCorrection
<
UseExportProvider
>
Public
Class
VisualBasicCaseCorrectionTestBase
Protected
Shared
Async
Function
AssertCaseCorrectAsync
(
code
As
String
,
expected
As
String
)
As
Task
Using
workspace
=
New
AdhocWorkspace
()
Dim
project
=
workspace
.
CurrentSolution
.
AddProject
(
"Project"
,
"Project.dll"
,
LanguageNames
.
VisualBasic
)
Dim
document
=
project
.
AddDocument
(
"Document"
,
SourceText
.
From
(
code
))
Dim
newNode
=
Await
CaseCorrector
.
CaseCorrectAsync
(
document
,
New
TextSpan
(
0
,
code
.
Length
))
Dim
actual
=
Await
newNode
.
GetTextAsync
()
AssertEx
.
EqualOrDiff
(
expected
,
actual
.
ToString
())
End
Using
End
Function
End
Class
End
Namespace
编辑
预览
Markdown
is supported
0%
请重试
或
添加新附件
.
添加附件
取消
You are about to add
0
people
to the discussion. Proceed with caution.
先完成此消息的编辑!
取消
想要评论请
注册
或
登录