K (→Beispiel: source lang="vb") |
|||
Zeile 50: | Zeile 50: | ||
End Sub | End Sub | ||
</source> | </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.