Wiki der Access Code Library

Gemeinsam zu mehr Effizienz in der Anwendungserstellung

SimplyVBUnit

Aus Access Code Library

(Unterschied zwischen Versionen)

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

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 Double
   testResult = VBA.Math.Sqr(4.5)
   Assert.That testResult, Iz.Not.EqualTo(2)
End Sub

@@ Zeile 27: / Zeile 27: @@
 <source>
 Public Sub Test3()
-    Dim testResult As Long
+    Dim testResult As Double
     testResult = VBA.Math.Sqr(4.5)
     Assert.That testResult, Iz.Not.EqualTo(2)
-   '=> Test schlägt fehlt, weil als Ergebnis 2 kommt (Long statt Double)
 End Sub
 </source>