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>