Add public function Reset to TestSuite (#73)

fix issue #72
AccessCodeLib · Oct 27, 2024 · 5c85dcf · 5c85dcf
1 parent 2aebda3
commit 5c85dcf
Show file tree

Hide file tree

Showing 6 changed files with 24 additions and 14 deletions.
diff --git a/access-add-in/AccUnitLoader.accda b/access-add-in/AccUnitLoader.accda
diff --git a/access-add-in/source/modules/TestSuite.cls b/access-add-in/source/modules/TestSuite.cls
@@ -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

diff --git a/access-add-in/source/modules/_config_Application.bas b/access-add-in/source/modules/_config_Application.bas
@@ -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"

diff --git a/excel-add-in/AccUnitLoader.xlam b/excel-add-in/AccUnitLoader.xlam
diff --git a/excel-add-in/source/TestSuite.cls b/excel-add-in/source/TestSuite.cls
@@ -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

diff --git a/excel-add-in/source/config_Application.bas b/excel-add-in/source/config_Application.bas
@@ -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"