Teardown

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"
 

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

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

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

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", _

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