''' <summary>
''' This class provides a Hello World greeting.
''' </summary>
''' <remarks>Created as an example.</remarks>
Public Class HelloWorld
  ''' <summary>
  ''' Member variable that holds user's name.
  ''' </summary>
  ''' <remarks></remarks>
  Private greetingName As String
  ''' <summary>
  ''' 
  ''' </summary>
  ''' <value>The name used to greet the user in a message.</value>
  ''' <returns>string</returns>
  ''' <remarks></remarks>
  Property Name() As String
    Get
      Return Me.greetingName
    End Get
    Set(ByVal value As String)
      Me.greetingName = value
    End Set
  End Property
  Private Function SayHelloName() As String
    Dim message As String
    message = "Hello " + Me.greetingName
    Return message
    'comment
  End Function

  Private Function SayHello() As String
    Dim message As String
    message = "Hello world"
    Return message
    'todo: Add method body

  End Function
  ''' <summary>
  '''The summary text appears in the IntelliSense List Members feature.
  ''' </summary>
  ''' <returns>string</returns>
  ''' <remarks>Return message depends on whether <see cref="Name"/> property
  ''' has value.
  ''' </remarks>

  Public Function DisplayMessage() As String
    Dim text As String
    If String.IsNullOrEmpty(Me.greetingName) Then
      text = SayHello()
    Else
      text = SayHelloName(Name)
    End If

    Return text
  End Function
  ''' <summary>
  ''' Unit test
  ''' </summary>
  ''' <returns></returns>
  ''' <remarks></remarks>
    Public Function SmokeTest() As Hashtable
        Dim message As String
        Dim results As New Hashtable

        'test sayhello
        message = SayHello()

        If Not message = "Hello world" Then
            results.Add("Form1.SayHello", "Failed")
        End If

        'reset variable
        message = Nothing

        'test sayhelloname
        message = SayHelloName("John")
        If Not message = "Hello Jim" Then
            results.Add("Form1.SayHelloName", "Failed")
        End If

        'test displaymessage
        message = Nothing
        message = DisplayMessage(Nothing)
        If Not message = "Hello world" Then
            results.Add("Form1.DisplayMessageNoName", "Failed")
        End If

        'test displaymessage
        message = Nothing
        message = DisplayMessage("John")
        If Not message = "Hello John" Then
            results.Add("Form1.DisplayMessageNoName", "Failed")
        End If

        Return results

    End Function
End Class