add-in source for version 0.9.17

Author: josef-poetzl

access-add-in/source/DebugPrintTestSuite.cls

@@ -147,6 +147,24 @@ Private Function IAccessTestSuite_Run() As AccUnit.IAccessTestSuite
    Set IAccessTestSuite_Run = Run()
 End Function
 
+Public Function SelectTests(ByVal TestNameFilter As Variant) As DebugPrintTestSuite
+   m_TestSuite.SelectTests TestNameFilter
+   Set SelectTests = Me
+End Function
+
+Private Function IAccessTestSuite_SelectTests(ByVal TestNameFilter As Variant) As AccUnit.IAccessTestSuite
+   Set IAccessTestSuite_SelectTests = SelectTests(TestNameFilter)
+End Function
+
+Public Function Filter(ByVal FilterTags As Variant) As DebugPrintTestSuite
+   m_TestSuite.Filter FilterTags
+   Set Filter = Me
+End Function
+
+Private Function IAccessTestSuite_Filter(ByVal FilterTags As Variant) As AccUnit.IAccessTestSuite
+   Set IAccessTestSuite_Filter = Filter(FilterTags)
+End Function
+
 Private Property Get IAccessTestSuite_Summary() As AccUnit.ITestSummary
    Set IAccessTestSuite_Summary = m_TestSuite.Summary
 End Property

access-add-in/source/TestSummary.cls

@@ -46,7 +46,7 @@ Public Sub SaveResult(ByVal TestResult As AccUnit.ITestResult)
          m_Ignored = m_Ignored + 1
       ElseIf .IsFailure Or .IsError Then
          m_Failed = m_Failed + 1
-      ElseIf .IsSuccess Then
+      ElseIf .IsPassed Then
          m_Passed = m_Passed + 1
       End If
    End With

access-add-in/source/_config_Application.bas

@@ -20,7 +20,7 @@ Option Compare Database
 Option Explicit
 
 'Version nummer
-Private Const APPLICATION_VERSION As String = "0.9.15.230809"
+Private Const APPLICATION_VERSION As String = "0.9.17.230817"
 
 Private Const APPLICATION_NAME As String = "ACLib AccUnit Loader"
 Private Const APPLICATION_FULLNAME As String = "Access Code Library - AccUnit Loader"