Index: vhUnitTest/DOM/VKP/Maatwerk/impl/BestelService/BestelEenheidLosseComponentenInBulkBepaler/Test.cls.xml
===================================================================
diff -u -r55877 -r55895
--- vhUnitTest/DOM/VKP/Maatwerk/impl/BestelService/BestelEenheidLosseComponentenInBulkBepaler/Test.cls.xml	(.../Test.cls.xml)	(revision 55877)
+++ vhUnitTest/DOM/VKP/Maatwerk/impl/BestelService/BestelEenheidLosseComponentenInBulkBepaler/Test.cls.xml	(.../Test.cls.xml)	(revision 55895)
@@ -3,8 +3,8 @@
 <Class name="vhUnitTest.DOM.VKP.Maatwerk.impl.BestelService.BestelEenheidLosseComponentenInBulkBepaler.Test">
 <Super>vhUnitTest.TestCase</Super>
 
-<Property name="DoosAfmetingenBodemBepaler">
-<Type>DOM.PM.Maatwerk.Calc.HF.impl.TAOR.Builder.HFVerpakkingv001.LosseComponenten.DoosAfmetingenBodemBepaler</Type>
+<Property name="DoosAfmetingenBepalerFactory">
+<Type>DOM.PM.Maatwerk.Calc.HF.impl.TAOR.Builder.HFVerpakkingv001.LosseComponenten.DoosAfmetingenBepalerFactory</Type>
 <Private>1</Private>
 </Property>
 
@@ -13,22 +13,25 @@
 <Implementation><![CDATA[
 	Do ##super(aTestName)
 	
-	Set ..DoosAfmetingenBodemBepaler = ##class(vhTest.Mock.DOM.PM.Maatwerk.Calc.HF.impl.TAOR.Builder.HFVerpakkingv001.LosseComponenten.DoosAfmetingenBodemBepaler).%New()
+	Set ..DoosAfmetingenBepalerFactory = ##class(vhTest.Mock.DOM.PM.Maatwerk.Calc.HF.impl.TAOR.Builder.HFVerpakkingv001.LosseComponenten.DoosAfmetingenBepalerFactory).%New()
 ]]></Implementation>
 </Method>
 
-<Method name="Test: Voor het bepalen van de BestelEenheid voor de bodem wordt GeefMaximaalAantalOnderdelen van de DoosAfmetingenBodemBepaler aangeroepen">
+<Method name="Test: Voor BestelEenheid voor bodem wordt MaakDoosAfmetingenBepaler van de DoosAfmetingenBepalerFactory aangeroepen en daarop GeefMaximaalAantalOnderdelen">
 <Implementation><![CDATA[
 	#dim LosseComponent As DOM.PM.Maatwerk.LadeInfo.LadeOnderdeel = ##class(vhTest.Dummy.DOM.PM.Maatwerk.LadeInfo.impl.TAX.Bodem).%New()
+	
 	#dim MaximaalAantalOnderdelen As TECH.Integer = 123
+	#dim DoosAfmetingenBepalerStub = ##class(vhTest.Mock.DOM.PM.Maatwerk.Calc.HF.impl.TAOR.Builder.HFVerpakkingv001.LosseComponenten.DoosAfmetingenBodemBepaler).%New()
+	Do DoosAfmetingenBepalerStub.IndienMethodCall("GeefMaximaalAantalOnderdelen", LosseComponent).DanReturn(MaximaalAantalOnderdelen)
 	
-	Do ..DoosAfmetingenBodemBepaler.VerwachtMethodCall("GeefMaximaalAantalOnderdelen", LosseComponent).ExactAantalKeer(1).DanReturn(MaximaalAantalOnderdelen)
+	Do ..DoosAfmetingenBepalerFactory.VerwachtMethodCall("MaakDoosAfmetingenBepaler", LosseComponent).ExactAantalKeer(1).DanReturn(DoosAfmetingenBepalerStub)
 	
 	#dim BestelEenheidLosseComponentenInBulkBepaler As DOM.VKP.Maatwerk.impl.BestelService.BestelEenheidBepaler.BestelEenheidLosseComponentenInBulkBepaler = ..GeefBestelEenheidLosseComponentenInBulkBepaler()
 	#dim BestelEenheid As TECH.Integer = BestelEenheidLosseComponentenInBulkBepaler.GeefBestelEenheidBodemLosseComponentenInBulk(LosseComponent)
 	
 	Do $$$AssertEquals(BestelEenheid, MaximaalAantalOnderdelen)
-	Do ..DoosAfmetingenBodemBepaler.Verifieer()
+	Do ..DoosAfmetingenBepalerFactory.Verifieer()
 ]]></Implementation>
 </Method>
 
@@ -208,7 +211,7 @@
 <Method name="GeefBestelEenheidLosseComponentenInBulkBepaler">
 <Private>1</Private>
 <ReturnType>DOM.VKP.Maatwerk.impl.BestelService.BestelEenheidBepaler.BestelEenheidLosseComponentenInBulkBepaler</ReturnType>
-<Implementation><![CDATA[	Quit ##class(DOM.VKP.Maatwerk.impl.BestelService.BestelEenheidBepaler.BestelEenheidLosseComponentenInBulkBepaler).%New(..DoosAfmetingenBodemBepaler)
+<Implementation><![CDATA[	Quit ##class(DOM.VKP.Maatwerk.impl.BestelService.BestelEenheidBepaler.BestelEenheidLosseComponentenInBulkBepaler).%New(..DoosAfmetingenBepalerFactory)
 ]]></Implementation>
 </Method>
 </Class>