diff --git a/testing/ClassModules/SQLlibDatabaseTests.cls b/testing/ClassModules/SQLlibDatabaseTests.cls index faa6b27..e090b03 100644 --- a/testing/ClassModules/SQLlibDatabaseTests.cls +++ b/testing/ClassModules/SQLlibDatabaseTests.cls @@ -33,6 +33,10 @@ Sub iTestCase_Setup() End With End Sub +Sub iTestCase_TearDown() + +End Sub + Function mssqlTest() MyDatabase.DBType = "mssql" diff --git a/testing/ClassModules/SQLlibDeleteTests.cls b/testing/ClassModules/SQLlibDeleteTests.cls index 4ed98b2..43a845c 100644 --- a/testing/ClassModules/SQLlibDeleteTests.cls +++ b/testing/ClassModules/SQLlibDeleteTests.cls @@ -8,9 +8,15 @@ Attribute VB_Creatable = False Attribute VB_PredeclaredId = False Attribute VB_Exposed = False Implements iTestCase + Sub iTestCase_Setup() End Sub + +Sub iTestCase_TearDown() + +End Sub + Function iTestCase_GetAllTests() iTestCase_GetAllTests = Array("SimpleDeleteTest") End Function diff --git a/testing/ClassModules/SQLlibInsertTests.cls b/testing/ClassModules/SQLlibInsertTests.cls index f010ef6..c0e15f0 100644 --- a/testing/ClassModules/SQLlibInsertTests.cls +++ b/testing/ClassModules/SQLlibInsertTests.cls @@ -16,6 +16,10 @@ Sub iTestCase_Setup() Set MyInsert = Create_SQLInsert End Sub +Sub iTestCase_TearDown() + +End Sub + Function iTestCase_GetAllTests() iTestCase_GetAllTests = Array("SimpleInsertTest", "InsertSelectTest", "InsertMultipleTest") End Function diff --git a/testing/ClassModules/SQLlibSelectTests.cls b/testing/ClassModules/SQLlibSelectTests.cls index 57dbee1..c17120a 100644 --- a/testing/ClassModules/SQLlibSelectTests.cls +++ b/testing/ClassModules/SQLlibSelectTests.cls @@ -14,6 +14,11 @@ Dim Interfaced As iSQLQuery Sub iTestCase_Setup() End Sub + +Sub iTestCase_TearDown() + +End Sub + Function iTestCase_GetAllTests() iTestCase_GetAllTests = Array("SimpleSelectTest", "GetByPropertyTest", "JoinTest", "DistinctTest") End Function diff --git a/testing/ClassModules/SQLlibStaticTests.cls b/testing/ClassModules/SQLlibStaticTests.cls index 04dbd43..ff3fc15 100644 --- a/testing/ClassModules/SQLlibStaticTests.cls +++ b/testing/ClassModules/SQLlibStaticTests.cls @@ -16,6 +16,11 @@ Sub iTestCase_Setup() Set MyStatic = Create_SQLStaticQuery Set Interfaced = MyStatic End Sub + +Sub iTestCase_TearDown() + +End Sub + Function iTestCase_GetAllTests() iTestCase_GetAllTests = Array("NoArgumentTest", "AddargumentMissingColonTest", "CorrectUseTest", _ "ChangeArgumentTest", "EscapeTextTest", "MultipleArgumentTest", "ClearArgumentsTest", _ diff --git a/testing/ClassModules/SQLlibUpdateTests.cls b/testing/ClassModules/SQLlibUpdateTests.cls index 07ca29a..7bf43b5 100644 --- a/testing/ClassModules/SQLlibUpdateTests.cls +++ b/testing/ClassModules/SQLlibUpdateTests.cls @@ -8,9 +8,15 @@ Attribute VB_Creatable = False Attribute VB_PredeclaredId = False Attribute VB_Exposed = False Implements iTestCase + Sub iTestCase_Setup() End Sub + +Sub iTestCase_TearDown() + +End Sub + Function iTestCase_GetAllTests() iTestCase_GetAllTests = Array("SimpleUpdateTest") End Function