Pasted

Imports NUnit.Framework
Imports ReinkeSystems.Data
 
 
<TestFixture()>
Public Class TranslationTests
 
   <Setup()>
  Public Sub TranslationsTestsSetup
    RSApp.PreferredLanguageID = LanguageIDs.Spanish
    Database.OpenDatabase()
  End Sub
 
    <Test()>
    Public Sub imperial_to_metric_test_1
      Dim result As String = strLanguageText("403'", RsApp.PreferredLanguageID, True)
      Assert.AreEqual("123m", result)
    End Sub
 
    <Test()>
    Public Sub imperial_to_metric_test_2
      Dim result As String = strLanguageText("6'", RsApp.PreferredLanguageID, True)
      Assert.AreEqual("1.8m", result)
    End Sub
 
    <Test()>
    Public Sub english_to_spanish_test1
      Dim result As String = strLanguageText("Tower Count", RsApp.PreferredLanguageID, True)
      Assert.AreEqual("Torres", result)
    End Sub
 
  <TearDown()>
  Public Sub TranslationTestsTearDown
    RSApp.PreferredLanguageID = LanguageIDs.English
  End Sub
 
End Class