(Unterschied zwischen Versionen)
K |
K |
(Der Versionsvergleich bezieht 5 dazwischenliegende Versionen mit ein.) |
Zeile 1: |
Zeile 1: |
- | __NOTOC__
| + | Diese Seite ist übersiedelt: [http://de.accunit.access-codelib.net/SimplyVBUnit SimplyVBUnit] |
- | == Allgemeines ==
| + | |
- | | + | |
- | SimplyVBUnit ist ein Test-Framework für VB6 und VBA, das sich an NUnit orientiert.
| + | |
- | | + | |
- | Projektseite: http://sourceforge.net/projects/simplyvbunit/
| + | |
- | | + | |
- | == Verwendung ==
| + | |
- | | + | |
- | | + | |
- | === Beispiele ===
| + | |
- | | + | |
- | <source>
| + | |
- | Public Sub Test1()
| + | |
- | Dim testResult As Double
| + | |
- | testResult = VBA.Math.Sqr(4)
| + | |
- | Assert.AreEqual 2, testResult
| + | |
- | End Sub
| + | |
- | </source>
| + | |
- | <source>
| + | |
- | Public Sub Test2()
| + | |
- | Dim testResult As Double
| + | |
- | testResult = VBA.Math.Sqr(4)
| + | |
- | Assert.That testResult, Iz.EqualTo(2)
| + | |
- | End Sub
| + | |
- | </source>
| + | |
- | <source>
| + | |
- | Public Sub Test3()
| + | |
- | Dim testResult As Long
| + | |
- | 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>
| + | |
Aktuelle Version vom 19:50, 13. Okt. 2013
Diese Seite ist übersiedelt: SimplyVBUnit