Index: vhUnitTest/DOM/PM/Maatwerk/Calc/HF/impl/LBX/Builder/HFDwarsverdelingv000/Bereken/Test.cls.xml
===================================================================
diff -u -r40538 -r40539
--- vhUnitTest/DOM/PM/Maatwerk/Calc/HF/impl/LBX/Builder/HFDwarsverdelingv000/Bereken/Test.cls.xml	(.../Test.cls.xml)	(revision 40538)
+++ vhUnitTest/DOM/PM/Maatwerk/Calc/HF/impl/LBX/Builder/HFDwarsverdelingv000/Bereken/Test.cls.xml	(.../Test.cls.xml)	(revision 40539)
@@ -30,39 +30,40 @@
 <Implementation><![CDATA[
 	#dim KenmerkenStandaardLade As DOM.PM.Maatwerk.Calc.Common.impl.LBXKenmerken 
 	Set KenmerkenStandaardLade = ##class(vhTest.Utils.DOM.PM.Maatwerk.Calc.Common.impl.LBXKenmerken).StandaardLade()
-	Set KenmerkenStandaardLade.AantalDwarsverdelingen = 1
-	Set KenmerkenStandaardLade.InterneBreedte = 600
 
-	Set SpoelbakIngegevenKenmerkenAanpasserMock = ##class(vhTest.Mock.DOM.PM.Maatwerk.Calc.HF.impl.LBX.Builder.SpoelbakIngegevenKenmerkenAanpasser).%New()
-	Do SpoelbakIngegevenKenmerkenAanpasserMock.VerwachtMethodCall("PasAan",KenmerkenStandaardLade).DanReturn(KenmerkenStandaardLade)
-		
-	Set DwarsverdelingBuilder = ##class(DOM.PM.Maatwerk.Calc.HF.impl.LBX.Builder.HFDwarsverdelingv000).%New("", SpoelbakIngegevenKenmerkenAanpasserMock)
-	#dim HalffabItem As DOM.PM.Maatwerk.Calc.HF.BewerktHalffabItem = DwarsverdelingBuilder.Bereken(KenmerkenStandaardLade, ..GeefContext())
-	
-	Do SpoelbakIngegevenKenmerkenAanpasserMock.Verifieer()
-	Do $$$AssertEquals(HalffabItem.AfmetingTeBekomen, 510)
+	Do ..AssertTeBekomenAfmeting(KenmerkenStandaardLade, KenmerkenStandaardLade, 510)
 ]]></Implementation>
 </Method>
 
 <Method name="Test: de dwarsverdeling bij een LBX spoelbak lade wordt berekend volgens de breedte van de kleine lade en is 90mm korter">
 <Implementation><![CDATA[
 	#dim KenmerkenStandaardLade As DOM.PM.Maatwerk.Calc.Common.impl.LBXKenmerken 
 	Set KenmerkenStandaardLade = ##class(vhTest.Utils.DOM.PM.Maatwerk.Calc.Common.impl.LBXKenmerken).StandaardSpoelbakLade()
-	Set KenmerkenStandaardLade.AantalDwarsverdelingen = 1
-	Set KenmerkenStandaardLade.InterneBreedte = 600
+
+	Do ..AssertTeBekomenAfmeting(KenmerkenStandaardLade, ..GeefAangepasteKenmerken(), 74)
+]]></Implementation>
+</Method>
+
+<Method name="AssertTeBekomenAfmeting">
+<FormalSpec>LBXKenmerken:DOM.PM.Maatwerk.Calc.Common.impl.LBXKenmerken,AangepasteLBXKenmerken:DOM.PM.Maatwerk.Calc.Common.impl.LBXKenmerken,Waarde:%Integer</FormalSpec>
+<Private>1</Private>
+<Implementation><![CDATA[
+	Set LBXKenmerken.AantalDwarsverdelingen = 1
+	Set LBXKenmerken.InterneBreedte = 600
 	
 	Set SpoelbakIngegevenKenmerkenAanpasserMock = ##class(vhTest.Mock.DOM.PM.Maatwerk.Calc.HF.impl.LBX.Builder.SpoelbakIngegevenKenmerkenAanpasser).%New()
-	Do SpoelbakIngegevenKenmerkenAanpasserMock.VerwachtMethodCall("PasAan",KenmerkenStandaardLade).DanReturn(..GeefAangepasteKenmerken())
+	Do SpoelbakIngegevenKenmerkenAanpasserMock.VerwachtMethodCall("PasAan",LBXKenmerken).DanReturn(AangepasteLBXKenmerken)
 	
 	Set DwarsverdelingBuilder = ##class(DOM.PM.Maatwerk.Calc.HF.impl.LBX.Builder.HFDwarsverdelingv000).%New("", SpoelbakIngegevenKenmerkenAanpasserMock)
-	#dim HalffabItem As DOM.PM.Maatwerk.Calc.HF.BewerktHalffabItem = DwarsverdelingBuilder.Bereken(KenmerkenStandaardLade, ..GeefContext())
+	#dim HalffabItem As DOM.PM.Maatwerk.Calc.HF.BewerktHalffabItem = DwarsverdelingBuilder.Bereken(LBXKenmerken, ..GeefContext())
 	
 	Do SpoelbakIngegevenKenmerkenAanpasserMock.Verifieer()
-	Do $$$AssertEquals(HalffabItem.AfmetingTeBekomen, 74)
+	Do $$$AssertEquals(HalffabItem.AfmetingTeBekomen, Waarde)
 ]]></Implementation>
 </Method>
 
 <Method name="GeefAangepasteKenmerken">
+<Private>1</Private>
 <ReturnType>DOM.PM.Maatwerk.Calc.Common.impl.LBXKenmerken</ReturnType>
 <Implementation><![CDATA[
 	#dim AangepastIngegevenKenmerken As DOM.PM.Maatwerk.Calc.Common.impl.LBXKenmerken