update tests

Author: josef-poetzl

Tests/ACLibDeclarationDictCore/DeclarationDictTestCodemodule.cls

@@ -7,12 +7,19 @@ Attribute VB_GlobalNameSpace = False
 Attribute VB_Creatable = False
 Attribute VB_PredeclaredId = False
 Attribute VB_Exposed = False
+'---------------------------------------------------------------------------------------
+' Class: DeclarationDictTestCodemodule
+'---------------------------------------------------------------------------------------
+'
+' Different examples for declarations
+'
+'---------------------------------------------------------------------------------------
 Option Compare Database
 Option Explicit
 
 'AccUnit:TestRelated
 
-Implements CodeModulGenerator
+Implements ITestInterface
 
 Dim AccUnitX As Long
 Private m_AccUnitInfo As String
@@ -59,11 +66,11 @@ Public Function AccUnitTestFunct(ByVal FuncParam1 As Variant, FuncParam2() As St
    Dim FuncVar1 As Variant, FuncVar2
    Dim FuncVar3() ' _
    Dim CommentX as String, CommentY As Long
-   
+
    Dim FuncVar4 As Long: FuncVar4 = 5
-   
+
    Dim Dim1 As Long: Dim Dim2
-   
+
        Dim Counter2 ' _
    Public X asString, Y As Long
 
@@ -99,15 +106,13 @@ Private Static Sub MyStaticSub(Optional ByVal Reset As Boolean = False)
     Static Counter2 As Integer
 End Sub
 
-
-Private Function CodeModulGenerator_CreateCodemodule(ByVal ComponentType As VBIDE.vbext_ComponentType, Optional ByVal Name As String = vbNullString) As VBIDE.VBComponent
+'---------------------------
+' Implement ITestInterface interface
 '
-End Function
-
-Private Sub CodeModulGenerator_InsertDeclarationLine(ByVal Code As String)
+Private Sub ITestInterface_TestMe()
 '
 End Sub
 
-Private Sub CodeModulGenerator_RemoveCodemodule()
+Private Function ITestInterface_TestProc(ByVal TestParam1 As Long) As Variant
 '
-End Sub
+End Function

Tests/ACLibDeclarationDictCore/DeclarationDictTests.cls

@@ -146,7 +146,7 @@ Public Sub ImportClassCodeModule_CheckKeysExists()
    Dim ActualDict As Scripting.Dictionary
 
    Dim ExpectedKeys() As Variant
-   ExpectedKeys = Array("CodeModulGenerator", "CodeModulGenerator_CreateCodemodule", "ComponentType", "Name", "CodeModulGenerator_InsertDeclarationLine", "Code", "CodeModulGenerator_RemoveCodemodule", _
+   ExpectedKeys = Array("ITestInterface", "ITestInterface_TestMe", "ITestInterface_TestProc", "TestParam1", _
                         "AccUnitX", "m_AccUnitInfo", "Field", "Const1", _
                         "TestEnum", "TestEnum_P1", _
                         "TestType1", "FldA", "FldB", "FldC", _

Tests/ACLibDeclarationDictCore/ITestInterface.cls

@@ -0,0 +1,28 @@
+VERSION 1.0 CLASS
+BEGIN
+  MultiUse = -1  'True
+END
+Attribute VB_Name = "ITestInterface"
+Attribute VB_GlobalNameSpace = False
+Attribute VB_Creatable = False
+Attribute VB_PredeclaredId = False
+Attribute VB_Exposed = False
+'---------------------------------------------------------------------------------------
+' Interface: ITest
+'---------------------------------------------------------------------------------------
+'
+' Interface for Implement test in DeclarationDictTestCodemodule
+'
+'---------------------------------------------------------------------------------------
+Option Compare Database
+Option Explicit
+
+'AccUnit:TestRelated
+
+Public Sub TestMe()
+'
+End Sub
+
+Public Function TestProc(ByVal TestParam1 As Long)
+'
+End Function