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