Add public function Reset to TestSuite (#73)

fix issue #72

Author: josef-poetzl

access-add-in/AccUnitLoader.accda

@@ -64,18 +64,23 @@ End Sub
 '####################################
 ' IAccessTestSuite
 '
-Private Function AccessTestSuite_Reset(Optional ByVal mode As AccUnit.ResetMode = 1&) As AccUnit.IAccessTestSuite
-   m_TestSuite.Reset mode
+Public Function Reset(Optional ByVal Mode As AccUnit.ResetMode = 1&) As TestSuite
+   m_TestSuite.Reset Mode
+   Set Reset = Me
+End Function
+
+Private Function AccessTestSuite_Reset(Optional ByVal Mode As AccUnit.ResetMode = 1&) As AccUnit.IAccessTestSuite
+   m_TestSuite.Reset Mode
    Set AccessTestSuite_Reset = Me
 End Function
 
-Public Function Add(ByVal testToAdd As Object) As TestSuite
-   m_TestSuite.Add testToAdd
+Public Function Add(ByVal TestToAdd As Object) As TestSuite
+   m_TestSuite.Add TestToAdd
    Set Add = Me
 End Function
 
-Private Function AccessTestSuite_Add(ByVal testToAdd As Object) As AccUnit.IAccessTestSuite
-   Set AccessTestSuite_Add = Add(testToAdd)
+Private Function AccessTestSuite_Add(ByVal TestToAdd As Object) As AccUnit.IAccessTestSuite
+   Set AccessTestSuite_Add = Add(TestToAdd)
 End Function
 
 Public Function AddByClassName(ByVal ClassName As String) As TestSuite

access-add-in/source/modules/TestSuite.cls

@@ -18,7 +18,7 @@ Option Compare Text
 Option Explicit
 
 'Version number
-Private Const APPLICATION_VERSION As String = "0.9.1000.240519"
+Private Const APPLICATION_VERSION As String = "0.9.1001.241027"
 
 Private Const APPLICATION_NAME As String = "ACLib AccUnit Loader"
 Private Const APPLICATION_FULLNAME As String = "Access Code Library - AccUnit Loader"

access-add-in/source/modules/_config_Application.bas

@@ -64,18 +64,23 @@ End Sub
 '####################################
 ' IVBATestSuite
 '
-Private Function IVBATestSuite_Reset(Optional ByVal mode As AccUnit.ResetMode = 1&) As AccUnit.IVBATestSuite
-   m_TestSuite.Reset mode
+Public Function Reset(Optional ByVal Mode As AccUnit.ResetMode = 1&) As TestSuite
+   m_TestSuite.Reset Mode
+   Set Reset = Me
+End Function
+
+Private Function IVBATestSuite_Reset(Optional ByVal Mode As AccUnit.ResetMode = 1&) As AccUnit.IVBATestSuite
+   m_TestSuite.Reset Mode
    Set IVBATestSuite_Reset = Me
 End Function
 
-Public Function Add(ByVal testToAdd As Object) As TestSuite
-   m_TestSuite.Add testToAdd
+Public Function Add(ByVal TestToAdd As Object) As TestSuite
+   m_TestSuite.Add TestToAdd
    Set Add = Me
 End Function
 
-Private Function IVBATestSuite_Add(ByVal testToAdd As Object) As AccUnit.IVBATestSuite
-   Set IVBATestSuite_Add = Add(testToAdd)
+Private Function IVBATestSuite_Add(ByVal TestToAdd As Object) As AccUnit.IVBATestSuite
+   Set IVBATestSuite_Add = Add(TestToAdd)
 End Function
 
 Public Function AddByClassName(ByVal ClassName As String) As TestSuite

excel-add-in/AccUnitLoader.xlam

@@ -19,7 +19,7 @@ Option Explicit
 Option Private Module
 
 'Version number
-Private Const APPLICATION_VERSION As String = "0.9.1000.240519"
+Private Const APPLICATION_VERSION As String = "0.9.1001.241027"
 
 Private Const APPLICATION_NAME As String = "ACLib AccUnit Loader"
 Private Const APPLICATION_FULLNAME As String = "Access Code Library - AccUnit Loader"