Unit tests kata @ http://bit.ly/1u2DW6N

<TestMethod()> Public Sub Sostituzione_del_campo_nome()
    'Arrange
    Dim input As String = "[nome]"
    Dim valore As String = "Mario"
    Dim risultatoAtteso = "Mario"

    'Act
    Dim output = input.SostituisciCampi(New With {.nome = valore})

    'Assert
    Assert.AreEqual(risultatoAtteso, output)

End Sub

<TestMethod()> Public Sub Solo_i_nomi_dei_campi_chiusi_in_parentesi_quadre_devono_essere_sostituiti()
    'Arrange
    Dim input As String = "[nome] nome"
    Dim valore As String = "Mario"
    Dim risultatoAtteso = "Mario nome"

    'Act
    Dim output = input.SostituisciCampi(New With {.nome = valore})

    'Assert
    Assert.AreEqual(risultatoAtteso, output)

End Sub

<TestMethod()> Public Sub La_sostituzione_dei_nomi_dei_campi_è_case_insensitive()
    'Arrange
    Dim input As String = "[noME]"
    Dim valore As String = "Mario"
    Dim risultatoAtteso = "Mario"

    'Act
    Dim output = input.SostituisciCampi(New With {.NOME = valore})

    'Assert
    Assert.AreEqual(risultatoAtteso, output)

End Sub

<TestMethod()> Public Sub La_sostituzione_deve_avvenire_anche_se_il_campo_contiene_degli_a_capo()
    'Arrange
    Dim input As String = "Sono [n" & vbLf & "o" & vbCrLf & "me" & vbCr & "], come va?"
    Dim valore As String = "Mario"
    Dim risultatoAtteso = "Sono Mario, come va?"

    'Act
    Dim output = input.SostituisciCampi(New With {.nome = valore})

    'Assert
    Assert.AreEqual(risultatoAtteso, output)

End Sub

<TestMethod()> Public Sub Piu_occorrenze_dello_stesso_campo_sono_consentite_e_vanno_sostituite_tutte()
    'Arrange
    Dim input As String = "[nome][nome]"
    Dim valore As String = "Mario"
    Dim risultatoAtteso = "MarioMario"

    'Act
    Dim output = input.SostituisciCampi(New With {.nome = valore})

    'Assert
    Assert.AreEqual(risultatoAtteso, output)

End Sub

<TestMethod()> Public Sub Possono_essere_presenti_più_campi_dal_nome_diverso()
    'Arrange
    Dim input As String = "[nome] [cognome]"
    Dim valore1 As String = "Mario"
    Dim valore2 As String = "Rossi"
    Dim risultatoAtteso = "Mario Rossi"

    'Act
    Dim output = input.SostituisciCampi(New With {.nome = valore1, .cognome = valore2})

    'Assert
    Assert.AreEqual(risultatoAtteso, output)

End Sub

<TestMethod()> Public Sub I_campi_per_cui_non_viene_fornito_un_valore_devono_restare_inalterati()
    'Arrange
    Dim input As String = "[nome] [cognome]"
    Dim valore As String = "Mario"
    Dim risultatoAtteso = "Mario [cognome]"

    'Act
    Dim output = input.SostituisciCampi(New With {.nome = valore})

    'Assert
    Assert.AreEqual(risultatoAtteso, output)

End Sub

<TestMethod()> Public Sub Se_non_vengono_forniti_valori_allora_l_output_è_uguale_all_input()
    'Arrange
    Dim input As String = "[nome]"
    Dim risultatoAtteso = input

    'Act
    Dim output = input.SostituisciCampi(Nothing)

    'Assert
    Assert.AreEqual(risultatoAtteso, output)

End Sub

<TestMethod()> Public Sub Eventuali_valori_Nothing_vengono_interpretati_come_stringa_vuota()
    'Arrange
    Dim input As String = "[nome] [cognome]"
    Dim valore As String = "Mario"
    Dim risultatoAtteso = "Mario "

    'Act
    Dim output = input.SostituisciCampi(New With {.nome = valore, .cognome = Nothing})

    'Assert
    Assert.AreEqual(risultatoAtteso, output)

End Sub


<TestMethod()> Public Sub Eventuali_sequenze_inattese_non_devono_produrre_errori()
    'Arrange
    Dim input As String = "nome] [ [nome] [nome]] []nome] [[nome]] [no[me]["
    Dim valore As String = "Mario"
    Dim risultatoAtteso = "nome] [ Mario Mario] []nome] [Mario] [no[me]["

    'Act
    Dim output = input.SostituisciCampi(New With {.nome = valore})

    'Assert
    Assert.AreEqual(risultatoAtteso, output)

End Sub