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.