Index: Tools/Mock/MethodCallStub.cls.xml =================================================================== diff -u -r579 -r670 --- Tools/Mock/MethodCallStub.cls.xml (.../MethodCallStub.cls.xml) (revision 579) +++ Tools/Mock/MethodCallStub.cls.xml (.../MethodCallStub.cls.xml) (revision 670) @@ -49,8 +49,8 @@ ReturnWaarde:%String Index: Tools/Mock/MockClassBase.cls.xml =================================================================== diff -u -r579 -r670 --- Tools/Mock/MockClassBase.cls.xml (.../MockClassBase.cls.xml) (revision 579) +++ Tools/Mock/MockClassBase.cls.xml (.../MockClassBase.cls.xml) (revision 670) @@ -75,6 +75,9 @@ Do ##class(TECH.ExceptionHandler).Throw( ##class(TECH.Exceptions.GeneralErrorException).%New( ExceptionBericht ) ) // Eventueel kan er ook "nice" gedrag ondersteund worden. Ttz, gewoon niets (of lege string of 0) teruggeven. } + If $IsObject(VerwerkMethodCall) && VerwerkMethodCall.%Extends("TECH.Iterator") { + Do VerwerkMethodCall.Reset() + } Quit VerwerkMethodCall // TODO: Registreer de uitgevoerde call. ]]>