TECH.RegisteredObject %Dictionary.ClassDefinition 1 %Dictionary.ClassDefinition 1 svn.Helper 1 1 1 %Status 1 ClassName:%String 1 %Boolean ClassDefinition:%Dictionary.ClassDefinition 1 %Boolean Method:%Dictionary.MethodDefinition 1 Name:%String,Method:%Dictionary.MethodDefinition 1 0:"quit",1:"do") #dim Line As %String set Line = $char(9) _"#dim MethodStub As Tools.Mock.MethodCallStub = " _ ..GenereerCallMetParameters("..BepaalMethodCallStub",Method.Name,ParameterString) do MockMethod.Implementation.WriteLine(Line) set Line = $char(9) _ "if MethodStub.IsDoorGebruikerGedefinieerd() {" do MockMethod.Implementation.WriteLine(Line) set Line = $char(9)_$char(9)_CacheCommando_" "_..GenereerCallMetParameters("..VerwerkMethodCall",Method.Name,ParameterString) do MockMethod.Implementation.WriteLine(Line) do MockMethod.Implementation.WriteLine($char(9)_"} else {") set Line = $char(9)_$char(9)_CacheCommando_" "_..GenereerCallMetParameters("##super","",ParameterString) do MockMethod.Implementation.WriteLine(Line) do MockMethod.Implementation.WriteLine($char(9)_"}") do MockMethod.%Save() quit ]]> Call:%String,MethodeNaam:%String,ParameterString:%String 1 %String 0 { if $length(Line) set Line = Line _"," set Line = Line_##class(TECH.StringUtils).Replace(ParameterString,"&",".") } set Line = Call_"(" _ Line _ ")" quit Line ]]> Method:%Dictionary.MethodDefinition 1 %String ClassName:%String 1 MockClassName:%String,ClassName:%String 1 MockClassName:%String 1 %Dictionary.ClassDefinition 1 %String SourceCode:%String 1