Testgetriebene Entwicklung mit Access

Testsuites

Zur Verdeutlichung schauen Sie sich die Beispielklassen an. Die Klasse auTestsuites listet alle Testsuites wie in Listing 1 auf. In diesem Fall handelt es sich dabei lediglich um die Testsuite- Klasse clsTestsuite. Wenn Sie weitere Testsuites hinzufügen möchten, fügen Sie einfach einen Eintrag nach folgendem Schema zu der Funktion TestsuiteWrapper hinzu:

Option Compare Database
Option Explicit
Public Function TestsuiteWrapper(strTestsuitename As String) As Object
Select Case strTestsuitename
Case "clsTestsuite"
Set TestsuiteWrapper = New clsTestsuite
End Select
End Function

Case "<Name der Testsuite-Klasse>"
Set TestsuiteWrapper = _
New <Name der Testsuite-Klasse>

Im Moment reicht allerdings die vorhandene Testsuite clsTestsuite aus. Sie können neuen Testsuite- Klassen übrigens beliebige Namen geben. Die Beispiel-Testsuite sieht wie in Listing 2 aus.

Option Compare Database
Option Explicit
Public Sub Suite(objTestsuite As Object)
objTestsuite.AddTest New clsSampleTest
End Sub

Die einzige Anweisung der Suite-Methode legt die Klasse clsSampleTest als neuen Test fest. Wenn Sie später weitere Testklassen anlegen möchten, fügen Sie einfach weitere Zeilen nach folgendem Schema hinzu (in einer Zeile):

objTestsuite.AddTest New <Name der Testklasse>