Gemeinsam zu mehr Effizienz in der Anwendungserstellung
K |
K |
||
Zeile 23: | Zeile 23: | ||
lngResult = 1 + 4 | lngResult = 1 + 4 | ||
Assert.That lngResult, Iz.EqualTo(5) | Assert.That lngResult, Iz.EqualTo(5) | ||
+ | End Sub | ||
+ | </source> | ||
+ | <source> | ||
+ | Public Sub Test3() | ||
+ | Dim lngResult As Long | ||
+ | lngResult = 1 + 4 + 1 | ||
+ | Assert.That lngResult, Iz.Not.EqualTo(5) | ||
End Sub | End Sub | ||
</source> | </source> |
Inhaltsverzeichnis |
SimplyVBUnit ist ein Test-Framework für VB6 und VBA, das sich an NUnit orientiert.
Projektseite: http://sourceforge.net/projects/simplyvbunit/
Public Sub Test1() Dim lngResult As Long lngResult = 1 + 4 Assert.AreEqual 5, lngResult End Sub
Public Sub Test2() Dim lngResult As Long lngResult = 1 + 4 Assert.That lngResult, Iz.EqualTo(5) End Sub
Public Sub Test3() Dim lngResult As Long lngResult = 1 + 4 + 1 Assert.That lngResult, Iz.Not.EqualTo(5) End Sub