Advertisement
Not a member of Pastebin yet?
Sign Up,
it unlocks many cool features!
- 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
Advertisement
Add Comment
Please, Sign In to add comment
Advertisement