(→AccUnit:Row: +Beispiel) |
|||
| (Der Versionsvergleich bezieht 1 dazwischenliegende Version mit ein.) | |||
| Zeile 34: | Zeile 34: | ||
===== Methode/Funktion ===== | ===== Methode/Funktion ===== | ||
| - | < | + | <source lang="vb"> |
Public Function GetFoo(ByVal JaNein As String) As Boolean | Public Function GetFoo(ByVal JaNein As String) As Boolean | ||
GetFoo = False | GetFoo = False | ||
If JaNein = "Ja" Then GetFoo = True | If JaNein = "Ja" Then GetFoo = True | ||
End Function | End Function | ||
| - | </ | + | </source> |
===== Test Methode ===== | ===== Test Methode ===== | ||
| - | < | + | <source lang="vb"> |
'AccUnit:Row("Ja", True) | 'AccUnit:Row("Ja", True) | ||
'AccUnit:Row("Nein", False) | 'AccUnit:Row("Nein", False) | ||
| Zeile 49: | Zeile 49: | ||
Assert.That GetFoo(value), Iz.EqualTo(Expected) | Assert.That GetFoo(value), Iz.EqualTo(Expected) | ||
End Sub | End Sub | ||
| - | </ | + | </source> |
| + | |||
| + | == AccUnit:TestClass:Tags == | ||
| + | Markiert Testklassen. Kann zum Filtern der Tests verwendet werden. | ||
| + | |||
| + | ==== Syntax ==== | ||
| + | <source>' AccUnit:TestClass:Tags(Tag1, Tag2, Tag3)</source> | ||
| + | |||
| + | ==== Verwendbar in ==== | ||
| + | * Deklarationsbereich einer Testklasse | ||
| + | |||
== AccUnit:Tags == | == AccUnit:Tags == | ||
| - | Markiert | + | Markiert Testmethoden. Kann zum Filtern der Tests verwendet werden. |
==== Syntax ==== | ==== Syntax ==== | ||
| Zeile 58: | Zeile 68: | ||
==== Verwendbar in ==== | ==== Verwendbar in ==== | ||
| - | |||
* Deklarationsbereich einer Testmethode | * Deklarationsbereich einer Testmethode | ||
| + | |||
| + | ==== Bemerkung ==== | ||
| + | * Tags auf Methodenebene werden in der Anzeige der Testergebnisse automatisch auf Ebene der jeweiligen Testklasse mit angezeigt. | ||
== AccUnit:Ignore == | == AccUnit:Ignore == | ||
Markiert eine Klasse als Testklasse.
' AccUnit:TestClass
Markiert eine Klasse, Standardmodul bzw. Formulare/Berichte als Hilfsmodule für Tests. Diese Codemodule bzw. Formulare/Berichte können wie Testklassen importiert bzw. exportiert werden.
' AccUnit:TestRelated
Übergabe der Row-Test-Parameter
' AccUnit:Row(Param1, Param2)
Public Function GetFoo(ByVal JaNein As String) As Boolean GetFoo = False If JaNein = "Ja" Then GetFoo = True End Function
'AccUnit:Row("Ja", True) 'AccUnit:Row("Nein", False) Public Sub GetFoo_ValueTest(ByVal value As String, ByVal Expected As Boolean) Assert.That GetFoo(value), Iz.EqualTo(Expected) End Sub
Markiert Testklassen. Kann zum Filtern der Tests verwendet werden.
' AccUnit:TestClass:Tags(Tag1, Tag2, Tag3)
Markiert Testmethoden. Kann zum Filtern der Tests verwendet werden.
' AccUnit:Tags(Tag1, Tag2, Tag3)
Testklasse oder Methode nicht ausführen.
' AccUnit:Ignore ' AccUnit:Ignore(Comment) ' AccUnit:Row(Param1, Param2).Ignore(Comment)
Mausklicks für Msgbox-Ersatzfunktion
' AccUnit:ClickingMsgBox(vbYes, vbOk, vbNo)
' AccUnit:Row(Param1, Param2).ClickingMsgBox(vbYes, vbOk, vbNo))
Erzeugt vor jedem Lauf der Testmethode eine Transaktion auf den Standard Jet-Workspace (DAO) und rollt diese Transaktion nach dem Lauf der Testmethode wieder zurück.
' AccUnit:Rollback
Der Rollback setzt den Zähler für AutoWert-Spalten nicht zurück. Nach einem zurückgerollten Insert ist der dabei vergebene AutoWert nicht mehr verfügbar.