Tools.Mock.TestDoubleCreator 1 %CacheString Method:%Dictionary.MethodDefinition 1 %Boolean 1 1 %String Method:%Dictionary.MethodDefinition 1 %String 0:"quit",1:"do") set MethodInfo = ##class(TECH.ClassInfo.MethodDefinition).%New(Method,..Class) #dim itParameters As TECH.Iterator = MethodInfo.GeefParameters() set Parameters = ##class(%ListOfDataTypes).%New() while itParameters.HasNext() { #dim Parameter As TECH.ClassInfo.ParameterDefinition = itParameters.Next() do Parameters.Insert(Parameter.GeefNaam()) } #dim Line As %String = $char(9)_CacheCommando_" ..VerwerkMethodCall("_$$$TussenQuotes(Method.Name) #dim ParametersAsString As %String = ##class(TECH.ListUtils).ListToPieces(Parameters,",") if $length(ParametersAsString)>0 set Line = Line _","_##class(TECH.StringUtils).Replace(ParametersAsString,"&",".") set Line = Line _ ")" quit Line ]]> ClassName:%String 1 %String 1 %String 1 %ListOfDataTypes ClassDefinition:%Dictionary.ClassDefinition 1 %Boolean ClassName:%String 1 %Boolean 1 %Boolean