Wiki der Access Code Library

Gemeinsam zu mehr Effizienz in der Anwendungserstellung

SimplyVBUnit

Aus Access Code Library
(Unterschied zwischen Versionen)
Wechseln zu: Navigation, Suche
K
K
Zeile 13: Zeile 13:
<source>
<source>
Public Sub Test1()
Public Sub Test1()
-
   Dim lngResult As Long
+
   Dim testResult As Double
-
   lngResult = 1 + 4
+
   testResult = VBA.Math.Sqr(4)
-
   Assert.AreEqual 5, lngResult
+
   Assert.AreEqual 2, testResult
End Sub
End Sub
</source>
</source>
<source>
<source>
Public Sub Test2()
Public Sub Test2()
-
   Dim lngResult As Long
+
   Dim testResult As Double
-
   lngResult = 1 + 4
+
   testResult = VBA.Math.Sqr(4)
-
   Assert.That lngResult, Iz.EqualTo(5)
+
   Assert.That testResult, Iz.EqualTo(2)
End Sub
End Sub
</source>
</source>
<source>
<source>
Public Sub Test3()
Public Sub Test3()
-
   Dim lngResult As Long
+
   Dim testResult As Long '=> Test schlägt fehlt, weil als Ergebnis 2 kommt (Long statt Double)
-
   lngResult = 1 + 4 + 1
+
   testResult = VBA.Math.Sqr(4.5)
-
   Assert.That lngResult, Iz.Not.EqualTo(5)
+
   Assert.That testResult, Iz.Not.EqualTo(2)
End Sub
End Sub
</source>
</source>

Version vom 12:51, 24. Jun. 2010

Allgemeines

SimplyVBUnit ist ein Test-Framework für VB6 und VBA, das sich an NUnit orientiert.

Projektseite: http://sourceforge.net/projects/simplyvbunit/

Verwendung

Beispiele 

Public Sub Test1()
   Dim testResult As Double
   testResult = VBA.Math.Sqr(4)
   Assert.AreEqual 2, testResult
End Sub
Public Sub Test2()
   Dim testResult As Double
   testResult = VBA.Math.Sqr(4)
   Assert.That testResult, Iz.EqualTo(2)
End Sub
Public Sub Test3()
   Dim testResult As Long '=> Test schlägt fehlt, weil als Ergebnis 2 kommt (Long statt Double)
   testResult = VBA.Math.Sqr(4.5)
   Assert.That testResult, Iz.Not.EqualTo(2)
End Sub
Von „https://wiki.access-codelib.net/SimplyVBUnit“