Option Strict On
Option Explicit On

Namespace Nexamas.UI.Virtualization

    ''' <summary>
    ''' Severity for MASVirtualizedItemsSystem readiness findings.
    ''' </summary>
    Friend Enum MASVirtualizationFindingSeverity
        Info = 0
        Warning = 1
        [Error] = 2
    End Enum

    ''' <summary>
    ''' Immutable readiness finding emitted before the virtualization controller is used.
    ''' </summary>
    Friend NotInheritable Class MASVirtualizationReadinessFinding

        Friend Sub New(code As String, message As String, severity As MASVirtualizationFindingSeverity)
            Me.Code = If(code, String.Empty)
            Me.Message = If(message, String.Empty)
            Me.Severity = severity
        End Sub

        Friend ReadOnly Property Code As String
        Friend ReadOnly Property Message As String
        Friend ReadOnly Property Severity As MASVirtualizationFindingSeverity

    End Class

End Namespace