| (Der Versionsvergleich bezieht 15 dazwischenliegende Versionen mit ein.) | |||
| Zeile 29: | Zeile 29: | ||
==== Verwendbar in ==== | ==== Verwendbar in ==== | ||
* Deklarationsbereich einer Testmethode | * Deklarationsbereich einer Testmethode | ||
| + | |||
| + | ==== Beispiel ==== | ||
| + | |||
| + | ===== Methode/Funktion ===== | ||
| + | |||
| + | <source lang="vb"> | ||
| + | Public Function GetFoo(ByVal JaNein As String) As Boolean | ||
| + | GetFoo = False | ||
| + | If JaNein = "Ja" Then GetFoo = True | ||
| + | End Function | ||
| + | </source> | ||
| + | |||
| + | ===== Test Methode ===== | ||
| + | |||
| + | <source lang="vb"> | ||
| + | '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 | ||
| + | </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 38: | 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 == | ||
| Zeile 46: | Zeile 77: | ||
==== Syntax ==== | ==== Syntax ==== | ||
| - | <source>' AccUnit:Ignore(Comment)</source> | + | <source>' AccUnit:Ignore |
| + | ' AccUnit:Ignore(Comment) | ||
| + | ' AccUnit:Row(Param1, Param2).Ignore(Comment)</source> | ||
==== Verwendbar in ==== | ==== Verwendbar in ==== | ||
| Zeile 58: | Zeile 91: | ||
==== Syntax ==== | ==== Syntax ==== | ||
| - | <source>' AccUnit:ClickingMsgBox(vbYes, vbOk, vbNo)</source> | + | <source>' AccUnit:ClickingMsgBox(vbYes, vbOk, vbNo) |
| + | ' AccUnit:Row(Param1, Param2).ClickingMsgBox(vbYes, vbOk, vbNo))</source> | ||
==== Verwendbar in ==== | ==== Verwendbar in ==== | ||
* Deklarationsbereich einer Testmethode | * Deklarationsbereich einer Testmethode | ||
* Erweiterung des Row-Attributs | * Erweiterung des Row-Attributs | ||
| + | |||
| + | |||
| + | == AccUnit:Rollback == | ||
| + | |||
| + | 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. | ||
| + | |||
| + | ==== Syntax ==== | ||
| + | <source>' AccUnit:Rollback</source> | ||
| + | |||
| + | ==== Verwendbar in ==== | ||
| + | * Deklarationsbereich einer Testmethode | ||
| + | |||
| + | ==== ''Nicht'' verwendbar bei ==== | ||
| + | * Eingebauten Domänenaggregatfunktionen (DLookup, DCount, etc.) - hier Ersatzfunktionen verwenden | ||
| + | * Produktionscode der selbst Transaktionen verwendet. | ||
| + | * Per OleDb eingebundene SQL-Server Backends | ||
| + | |||
| + | ==== Vorsicht ==== | ||
| + | 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. | ||
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.