src/EditorFeatures/VisualBasicTest/LanguageServer/VisualBasicLspBuildOnlyDiagnosticsTests.vb - main - githubmirror/roslyn

src/EditorFeatures/VisualBasicTest/LanguageServer/VisualBasicLspBuildOnlyDiagnosticsTests.vb

44 строки2 KB

Cyrus Najmabadi

Simplify

09 янв 2023, 22:37

09 янв 2023, 22:37fcbd9c3

' 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 System.Collections.Immutable
Imports Microsoft.CodeAnalysis.Diagnostics.VisualBasic
Imports Microsoft.CodeAnalysis.Test.Utilities.LanguageServer
Imports Microsoft.CodeAnalysis.VisualBasic.LanguageServer

Namespace Microsoft.CodeAnalysis.Editor.VisualBasic.UnitTests.LanguageServer
    Public Class VisualBasicLspBuildOnlyDiagnosticsTests
        Inherits AbstractLspBuildOnlyDiagnosticsTests

        Protected Overrides ReadOnly Property ErrorCodeType As Type
            Get
                Return GetType(ERRID)
            End Get
        End Property

        Protected Overrides ReadOnly Property LspBuildOnlyDiagnosticsType As Type
            Get
                Return GetType(VisualBasicLspBuildOnlyDiagnostics)
            End Get
        End Property

        Protected Overrides ReadOnly Property ExpectedDiagnosticCodes As Immutable.ImmutableArray(Of String)
            Get
                Dim errorCodes = [Enum].GetValues(GetType(ERRID))
                Dim supported = New VisualBasicCompilerDiagnosticAnalyzer().GetSupportedErrorCodes()

                Dim builder = ImmutableArray.CreateBuilder(Of String)
                For Each errorCode As Integer In errorCodes
                    If Not supported.Contains(errorCode) AndAlso
                        errorCode > ERRID.ERR_None AndAlso
                        errorCode < ERRID.WRN_NextAvailable Then
                        builder.Add("BC" & errorCode.ToString("D5"))
                    End If
                Next

                Return builder.ToImmutable()
            End Get
        End Property
    End Class
End Namespace