Index: vhUnitTest/APPS/Halux/PPS/ALUFrees/Svg/KaderdeurElement/Beslag/BeslagBoringSpecialeVorm/MaakBoringSpecialeVorm/Test.cls.xml =================================================================== diff -u -r61903 -r61917 --- vhUnitTest/APPS/Halux/PPS/ALUFrees/Svg/KaderdeurElement/Beslag/BeslagBoringSpecialeVorm/MaakBoringSpecialeVorm/Test.cls.xml (.../Test.cls.xml) (revision 61903) +++ vhUnitTest/APPS/Halux/PPS/ALUFrees/Svg/KaderdeurElement/Beslag/BeslagBoringSpecialeVorm/MaakBoringSpecialeVorm/Test.cls.xml (.../Test.cls.xml) (revision 61917) @@ -100,7 +100,7 @@ Set CoordinatesList = ##class(%ListOfObjects).%New() #dim Rect as TECH.Svg.Basis.Rect = ##class(TECH.Svg.BasisElementFactory).%New().MaakRechthoek(1,2,3,4) Set BasisElementFactoryMock = ##class(vhTest.Mock.TECH.Svg.BasisElementFactory).%New() - Do BasisElementFactoryMock.VerwachtMethodCall("MaakRechthoek",334,436,16,14).DanReturn(Rect) + Do BasisElementFactoryMock.VerwachtMethodCall("MaakRechthoek",334,-7,16,14).DanReturn(Rect) Set BeslagBoringSpecialeVorm = ##class(APPS.Halux.PPS.ALUFrees.Svg.KaderdeurElement.Beslag.BeslagBoringSpecialeVorm).%New(BasisElementFactoryMock) Do BeslagBoringSpecialeVorm.MaakBoringSpecialeVorm("KAD",350,450,0) Index: vhUnitTest/APPS/Halux/PPS/ALUFrees/Svg/KaderdeurElement/Beslag/Boringen/VoegToeBeslagBoringen/Test.cls.xml =================================================================== diff -u -r61903 -r61917 --- vhUnitTest/APPS/Halux/PPS/ALUFrees/Svg/KaderdeurElement/Beslag/Boringen/VoegToeBeslagBoringen/Test.cls.xml (.../Test.cls.xml) (revision 61903) +++ vhUnitTest/APPS/Halux/PPS/ALUFrees/Svg/KaderdeurElement/Beslag/Boringen/VoegToeBeslagBoringen/Test.cls.xml (.../Test.cls.xml) (revision 61917) @@ -43,7 +43,7 @@ Set BeslagBoringSpecialeVormMock = ##class(vhTest.Mock.APPS.Halux.PPS.ALUFrees.Svg.KaderdeurElement.Beslag.BeslagBoringSpecialeVorm).%New() Set BasisElementFactory = ##class(TECH.Svg.BasisElementFactory).%New() #dim SvgBox As TECH.Svg.Basis.SvgBox = BasisElementFactory.MaakSvgBox(0,0,5,5) - Do BeslagBoringSpecialeVormMock.VerwachtMethodCall("MaakBoringSpecialeVorm","KAD",40,58,0,29).DanReturn(SvgBox) + Do BeslagBoringSpecialeVormMock.VerwachtMethodCall("MaakBoringSpecialeVorm","KAD",40,58,0,29,2).DanReturn(SvgBox) Set Boringen = ##class(APPS.Halux.PPS.ALUFrees.Svg.KaderdeurElement.Beslag.Boringen).%New(,,BeslagBoringSpecialeVormMock) Do Boringen.VoegToeBeslagBoringen(Beslag,"PL",0,0,0)