(→Vorsicht) |
(→AccUnit:Row: +Beispiel) |
||
Zeile 30: | Zeile 30: | ||
* Deklarationsbereich einer Testmethode | * Deklarationsbereich einer Testmethode | ||
+ | ==== Beispiel ==== | ||
+ | |||
+ | ===== Methode/Funktion ===== | ||
+ | |||
+ | <pre> | ||
+ | Public Function GetFoo(ByVal JaNein As String) As Boolean | ||
+ | GetFoo = False | ||
+ | If JaNein = "Ja" Then GetFoo = True | ||
+ | End Function | ||
+ | </pre> | ||
+ | |||
+ | ===== Test Methode ===== | ||
+ | |||
+ | <pre> | ||
+ | '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 | ||
+ | </pre> | ||
== AccUnit:Tags == | == AccUnit:Tags == |
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 bzw. 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.