src/Compilers/VisualBasic/Test/Emit/EmitResourceUtil.vb - main - githubmirror/roslyn

src/Compilers/VisualBasic/Test/Emit/EmitResourceUtil.vb
70 строк3 KB
Tomáš Matoušek
Refactoring of extension methods in source packages (#78620) - take 2 (#78894)
26 июн 2025, 18:42
26 июн 2025, 18:4205fc006
' 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.

Option Strict On
Option Explicit On
Imports System.IO
Imports System.Reflection

Namespace Microsoft.CodeAnalysis.VisualBasic.UnitTests

    Public Class EmitResourceUtil

        ' CodeGen\ConversionsILGenTestBaseline.txt
        Private Shared _conversionsILGenTestBaseline As String
        Public Shared ReadOnly Property ConversionsILGenTestBaseline As String
            Get
                Return GetOrCreate("ConversionsILGenTestBaseline.txt", _conversionsILGenTestBaseline)
            End Get
        End Property

        ' CodeGen\ConversionsILGenTestBaseline1.txt
        Private Shared _conversionsILGenTestBaseline1 As String
        Public Shared ReadOnly Property ConversionsILGenTestBaseline1 As String
            Get
                Return GetOrCreate("ConversionsILGenTestBaseline1.txt", _conversionsILGenTestBaseline1)
            End Get
        End Property

        ' CodeGen\ConversionsILGenTestSource.vb
        Private Shared _conversionsILGenTestSource As String
        Public Shared ReadOnly Property ConversionsILGenTestSource As String
            Get
                Return GetOrCreate("ConversionsILGenTestSource.vb", _conversionsILGenTestSource)
            End Get
        End Property

        ' CodeGen\ConversionsILGenTestSource1.vb
        Private Shared _conversionsILGenTestSource1 As String
        Public Shared ReadOnly Property ConversionsILGenTestSource1 As String
            Get
                Return GetOrCreate("ConversionsILGenTestSource1.vb", _conversionsILGenTestSource1)
            End Get
        End Property

        ' CodeGen\ConversionsILGenTestSource2.vb
        Private Shared _conversionsILGenTestSource2 As String
        Public Shared ReadOnly Property ConversionsILGenTestSource2 As String
            Get
                Return GetOrCreate("ConversionsILGenTestSource2.vb", _conversionsILGenTestSource2)
            End Get
        End Property

        Private Shared Function GetOrCreate(ByVal name As String, ByRef value As String) As String
            If Not value Is Nothing Then
                Return value
            End If

            value = GetManifestResourceString(name)
            Return value
        End Function

        Private Shared Function GetManifestResourceString(name As String) As String
            Using reader As New StreamReader(GetType(EmitResourceUtil).GetTypeInfo().Assembly.GetManifestResourceStream(name))
                Return reader.ReadToEnd()
            End Using
        End Function
    End Class

End Namespace