提交 bb2ab38b 编写于 作者: H Heejae Chang

Merge pull request #6064 from heejaechang/errorkeyword

provide HelpKeyword information for offline help
......@@ -287,6 +287,9 @@ public override bool TryGetValue(int index, string columnName, out object conten
case StandardTableKeyNames.ErrorCodeToolTip:
content = GetHelpLinkToolTipText(data);
return content != null;
case StandardTableKeyNames.HelpKeyword:
content = data.Id;
return content != null;
case StandardTableKeyNames.HelpLink:
content = GetHelpLink(data);
return content != null;
......
......@@ -193,6 +193,9 @@ public override bool TryGetValue(int index, string columnName, out object conten
case StandardTableKeyNames.ErrorCodeToolTip:
content = GetHelpLinkToolTipText(data);
return content != null;
case StandardTableKeyNames.HelpKeyword:
content = data.Id;
return content != null;
case StandardTableKeyNames.HelpLink:
content = GetHelpLink(data);
return content != null;
......
......@@ -434,6 +434,35 @@ Namespace Microsoft.VisualStudio.LanguageServices.UnitTests.Diagnostics
End Using
End Sub
<WpfFact>
Public Sub TestHelpKeyword()
Using workspace = CSharpWorkspaceFactory.CreateWorkspaceFromLines(String.Empty)
Dim documentId = workspace.CurrentSolution.Projects.First().DocumentIds.First()
Dim projectId = documentId.ProjectId
Dim item1 = CreateItem(workspace, projectId, documentId, DiagnosticSeverity.Error, "http://link/")
Dim provider = New TestDiagnosticService(item1)
Dim tableManagerProvider = New TestTableManagerProvider()
Dim table = New VisualStudioDiagnosticListTable(workspace, provider, tableManagerProvider)
provider.RaiseDiagnosticsUpdated(workspace)
Dim manager = DirectCast(table.TableManager, TestTableManagerProvider.TestTableManager)
Dim source = DirectCast(manager.Sources.First(), AbstractRoslynTableDataSource(Of DiagnosticData))
Dim sinkAndSubscription = manager.Sinks_TestOnly.First()
Dim sink = DirectCast(sinkAndSubscription.Key, TestTableManagerProvider.TestTableManager.TestSink)
Dim snapshot = sink.Entries.First().GetCurrentSnapshot()
Assert.Equal(1, snapshot.Count)
Dim keyword As Object = Nothing
Assert.True(snapshot.TryGetValue(0, StandardTableKeyNames.HelpKeyword, keyword))
Assert.Equal(item1.Id, keyword.ToString())
End Using
End Sub
<WpfFact>
Public Sub TestBingHelpLink()
Using workspace = CSharpWorkspaceFactory.CreateWorkspaceFromLines(String.Empty)
......
Markdown is supported
0% .
You are about to add 0 people to the discussion. Proceed with caution.
先完成此消息的编辑!
想要评论请 注册