Gemeinsam zu mehr Effizienz in der Anwendungserstellung
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 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