Index: vhUnitTest/DOM/PM/impl/DataM/DataMMATCreator/GeefDimensieVoorKorttekst/Test.cls.xml
===================================================================
diff -u -r60867 -r60868
--- vhUnitTest/DOM/PM/impl/DataM/DataMMATCreator/GeefDimensieVoorKorttekst/Test.cls.xml	(.../Test.cls.xml)	(revision 60867)
+++ vhUnitTest/DOM/PM/impl/DataM/DataMMATCreator/GeefDimensieVoorKorttekst/Test.cls.xml	(.../Test.cls.xml)	(revision 60868)
@@ -34,23 +34,21 @@
 	Set ..HalffabItemsBoom = BerekeningService.BerekenHalffabItemsBoom(IngegevenKenmerken, ..BerekeningsSpecificatie)
 	
 	Set ..KostItem = ##class(DOM.PM.Maatwerk.Calc.Kost.SamengesteldKostItem).%New($$$DummyString)
+	
+	Set DataMMATBasisCreator = ##class(DOM.PM.impl.DataM.DataMMATBasisCreator).%New(..ProductSpecificatie, ..BerekeningsSpecificatie, ..HalffabItemsBoom, ..KostItem)
 ]]></Implementation>
 </Method>
 
 <Method name="Test: Geef dimensie voor kortekst in L en B formaat voor variant Basis">
 <Implementation><![CDATA[
 	#dim IngegevenKenmerken As DOM.PM.Maatwerk.Calc.Common.IngegevenKenmerken = ##class(vhTest.Utils.DOM.PM.Maatwerk.Calc.Common.impl.MATKenmerken).StandaardLade()
-	
 	Do ..OpzetDependencies(IngegevenKenmerken, ##class(DOM.PM.enu.Variant).Basis())
 	
 	#dim DimensieSeparator As %String = "B"
 	
 	Set DataMMATBasisCreator = ##class(DOM.PM.impl.DataM.DataMMATBasisCreator).%New(..ProductSpecificatie, ..BerekeningsSpecificatie, ..HalffabItemsBoom, ..KostItem)
 	#dim Dimensie = DataMMATBasisCreator.GeefDimensieVoorKorttekst(IngegevenKenmerken, DimensieSeparator)
 	
-	Do ##class(Tools.Wlip).%New(43).String("Dimensie"_Dimensie)
-	//Do $$$AssertEquals($$$Length(Dimensie),8)
-	Do $$$AssertEquals(1,1)
 	Do $$$AssertEquals(Dimensie,$J(IngegevenKenmerken.Diepte,3)_DimensieSeparator_$J($Normalize(IngegevenKenmerken.Breedte,-1),4))
 	Do $$$AssertEquals(Dimensie,"500B 600")
 ]]></Implementation>
@@ -59,23 +57,13 @@
 <Method name="Test: Geef dimensie voor kortekst in lengtexbreedte formaat voor variant Taor">
 <Implementation><![CDATA[
 	#dim IngegevenKenmerken As DOM.PM.Maatwerk.Calc.Common.IngegevenKenmerken = ##class(vhTest.Utils.DOM.PM.Maatwerk.Calc.Common.impl.MATKenmerken).StandaardLade()
-	
-	Set ProductSpecificatie = ##class(DOM.PM.Maatwerk.Calc.Common.ProductSpecificatie).%New(##class(DOM.PM.enu.Familie).Mat(), ##class(DOM.PM.enu.Variant).Taorbox(), IngegevenKenmerken)
-	Set BerekeningsSpecificatie = ##class(DOM.PM.Maatwerk.Calc.Common.BerekeningsSpecificatie).%New(1,"",##class(DOM.common.VanHoeckePersonality).Instance())
-	
-	Set BerekeningService = ##class(APPS.PM.Maatwerk.impl.BerekeningServiceIngegevenKenmerken).%New()
-	#dim HalffabItemsBoom As DOM.PM.Maatwerk.Calc.HF.HalffabItemsBoom = BerekeningService.BerekenHalffabItemsBoom(IngegevenKenmerken,BerekeningsSpecificatie)
-	
-	Set KostItem = ##class(DOM.PM.Maatwerk.Calc.Kost.SamengesteldKostItem).%New($$$DummyString)
-	
+	Do ..OpzetDependencies(IngegevenKenmerken, ##class(DOM.PM.enu.Variant).Taorbox())
+			
 	#dim DimensieSeparator As %String = "x"
 	
-	Set DataMMATBasisCreator = ##class(DOM.PM.impl.DataM.DataMMATBasisCreator).%New(ProductSpecificatie, BerekeningsSpecificatie, HalffabItemsBoom, KostItem)
+	Set DataMMATBasisCreator = ##class(DOM.PM.impl.DataM.DataMMATBasisCreator).%New(..ProductSpecificatie, ..BerekeningsSpecificatie, ..HalffabItemsBoom, ..KostItem)
 	#dim Dimensie = DataMMATBasisCreator.GeefDimensieVoorKorttekst(IngegevenKenmerken, DimensieSeparator)
 	
-	Do ##class(Tools.Wlip).%New(43).String("Dimensie"_Dimensie)
-	//Do $$$AssertEquals($$$Length(Dimensie),8)
-	Do $$$AssertEquals(1,1)
 	Do $$$AssertEquals(Dimensie,$J(IngegevenKenmerken.Diepte,3)_DimensieSeparator_$J($Normalize(IngegevenKenmerken.Breedte,-1),4))
 	Do $$$AssertEquals(Dimensie,"500x 600")
 ]]></Implementation>
@@ -84,23 +72,13 @@
 <Method name="Test: Geef dimensie voor kortekst in lengtexbreedte formaat voor variant Orgalux">
 <Implementation><![CDATA[
 	#dim IngegevenKenmerken As DOM.PM.Maatwerk.Calc.Common.IngegevenKenmerken = ##class(vhTest.Utils.DOM.PM.Maatwerk.Calc.Common.impl.MATKenmerken).StandaardLade()
+	Do ..OpzetDependencies(IngegevenKenmerken, ##class(DOM.PM.enu.Variant).OrgaluxOpMaat())
 	
-	Set ProductSpecificatie = ##class(DOM.PM.Maatwerk.Calc.Common.ProductSpecificatie).%New(##class(DOM.PM.enu.Familie).Mat(), ##class(DOM.PM.enu.Variant).OrgaluxOpMaat(), IngegevenKenmerken)
-	Set BerekeningsSpecificatie = ##class(DOM.PM.Maatwerk.Calc.Common.BerekeningsSpecificatie).%New(1,"",##class(DOM.common.VanHoeckePersonality).Instance())
-	
-	Set BerekeningService = ##class(APPS.PM.Maatwerk.impl.BerekeningServiceIngegevenKenmerken).%New()
-	#dim HalffabItemsBoom As DOM.PM.Maatwerk.Calc.HF.HalffabItemsBoom = BerekeningService.BerekenHalffabItemsBoom(IngegevenKenmerken,BerekeningsSpecificatie)
-	
-	Set KostItem = ##class(DOM.PM.Maatwerk.Calc.Kost.SamengesteldKostItem).%New($$$DummyString)
-	
 	#dim DimensieSeparator As %String = "x"
 	
-	Set DataMMATBasisCreator = ##class(DOM.PM.impl.DataM.DataMMATBasisCreator).%New(ProductSpecificatie, BerekeningsSpecificatie, HalffabItemsBoom, KostItem)
+	Set DataMMATBasisCreator = ##class(DOM.PM.impl.DataM.DataMMATBasisCreator).%New(..ProductSpecificatie, ..BerekeningsSpecificatie, ..HalffabItemsBoom, ..KostItem)
 	#dim Dimensie = DataMMATBasisCreator.GeefDimensieVoorKorttekst(IngegevenKenmerken, DimensieSeparator)
 	
-	Do ##class(Tools.Wlip).%New(43).String("Dimensie"_Dimensie)
-	//Do $$$AssertEquals($$$Length(Dimensie),8)
-	Do $$$AssertEquals(1,1)
 	Do $$$AssertEquals(Dimensie,$J(IngegevenKenmerken.Diepte,3)_DimensieSeparator_$J($Normalize(IngegevenKenmerken.Breedte,-1),4))
 	Do $$$AssertEquals(Dimensie,"500x 600")
 ]]></Implementation>