daily pastebin goal
43%
SHARE
TWEET

UnitTest

CryptoJones Feb 12th, 2016 51 Never
Not a member of Pastebin yet? Sign Up, it unlocks many cool features!
  1. Imports NUnit.Framework
  2. Imports ReinkeSystems.Data
  3.  
  4.  
  5. <TestFixture()>
  6. Public Class TranslationTests
  7.  
  8.    <Setup()>
  9.   Public Sub TranslationsTestsSetup
  10.     RSApp.PreferredLanguageID = LanguageIDs.Spanish
  11.     Database.OpenDatabase()
  12.   End Sub
  13.  
  14.     <Test()>
  15.     Public Sub imperial_to_metric_test_1
  16.       Dim result As String = strLanguageText("403'", RsApp.PreferredLanguageID, True)
  17.       Assert.AreEqual("123m", result)
  18.     End Sub
  19.  
  20.     <Test()>
  21.     Public Sub imperial_to_metric_test_2
  22.       Dim result As String = strLanguageText("6'", RsApp.PreferredLanguageID, True)
  23.       Assert.AreEqual("1.8m", result)
  24.     End Sub
  25.  
  26.     <Test()>
  27.     Public Sub english_to_spanish_test1
  28.       Dim result As String = strLanguageText("Tower Count", RsApp.PreferredLanguageID, True)
  29.       Assert.AreEqual("Torres", result)
  30.     End Sub
  31.  
  32.   <TearDown()>
  33.   Public Sub TranslationTestsTearDown
  34.     RSApp.PreferredLanguageID = LanguageIDs.English
  35.   End Sub
  36.  
  37. End Class
RAW Paste Data
We use cookies for various purposes including analytics. By continuing to use Pastebin, you agree to our use of cookies as described in the Cookies Policy. OK, I Understand
 
Top