Index: vhUnitTest/APPS/Halux/PPS/Document/impl/common/BatchNaarObjective/Converter/DomRollenNaarObjectiveLbx/Test.cls.xml
===================================================================
diff -u -r71513 -r71514
--- vhUnitTest/APPS/Halux/PPS/Document/impl/common/BatchNaarObjective/Converter/DomRollenNaarObjectiveLbx/Test.cls.xml	(.../Test.cls.xml)	(revision 71513)
+++ vhUnitTest/APPS/Halux/PPS/Document/impl/common/BatchNaarObjective/Converter/DomRollenNaarObjectiveLbx/Test.cls.xml	(.../Test.cls.xml)	(revision 71514)
@@ -2,6 +2,139 @@
 <Export generator="Cache" version="24">
 <Class name="vhUnitTest.APPS.Halux.PPS.Document.impl.common.BatchNaarObjective.Converter.DomRollenNaarObjectiveLbx.Test">
 <Super>vhUnitTest.TestCase</Super>
+
+<Property name="Converter">
+<Type>APPS.Halux.PPS.Document.impl.common.BatchNaarObjective.Converter.DomRollenNaarObjective</Type>
+<Private>1</Private>
+</Property>
+
+<Property name="DomKenmerken">
+<Type>DOM.PM.Maatwerk.Calc.Common.impl.LBXKenmerken</Type>
+<Private>1</Private>
+</Property>
+
+<Method name="OnBeforeAllTests">
+<Implementation><![CDATA[
+	Do ##super()
+	
+	Set ..Converter = ##class(APPS.Halux.PPS.Document.impl.common.BatchNaarObjective.Converter.DomRollenNaarObjective).%New()
+]]></Implementation>
+</Method>
+
+<Method name="OnBeforeOneTest">
+<FormalSpec>aTestCase:%String</FormalSpec>
+<Implementation><![CDATA[
+	Set ..DomKenmerken = ##class(vhTest.Utils.DOM.PM.Maatwerk.Calc.Common.impl.LBXKenmerken).LegeKenmerken()
+ 	Do ##super(aTestCase)
+]]></Implementation>
+</Method>
+
+<Method name="Test: LBX rolnamen &apos;Rug_X&apos;, &apos;Rug_Y&apos; en &apos;Rug_M&apos; worden &apos;RugHout&apos; indien RugWandMateriaal &apos;Hout&apos; is en de toepassing een lade">
+<Implementation><![CDATA[
+	#dim VerwachtteRolNaam As %String = "RugHout"
+	Set ..DomKenmerken.RugWandMateriaal = ##class(DOM.PM.enu.LBXRugWandMateriaal).Hout()
+	Set ..DomKenmerken.Klasse = ##class(DOM.PM.enu.LBXKlasse).Lade()
+	
+	Do ..AssertRolnaam("Rug.X", VerwachtteRolNaam, ..DomKenmerken)
+	Do ..AssertRolnaam("Rug.Y", VerwachtteRolNaam, ..DomKenmerken)
+	Do ..AssertRolnaam("Rug.M", VerwachtteRolNaam, ..DomKenmerken)
+]]></Implementation>
+</Method>
+
+<Method name="Test: LBX rolnamen &apos;Rug_X&apos;, &apos;Rug_Y&apos; en &apos;Rug_M&apos; blijven behouden indien het niet gaat om een standaardlade of SST">
+<Implementation><![CDATA[
+	Set ..DomKenmerken.RugWandMateriaal = ##class(DOM.PM.enu.LBXRugWandMateriaal).Hout()
+	Set ..DomKenmerken.Klasse = ##class(DOM.PM.enu.LBXKlasse).Spoelbak()
+	
+	Do ..AssertRolnaam("Rug.X", "Rug.X", ..DomKenmerken)
+	Do ..AssertRolnaam("Rug.Y", "Rug.Y", ..DomKenmerken)
+	Do ..AssertRolnaam("Rug.M", "Rug.M", ..DomKenmerken)
+]]></Implementation>
+</Method>
+
+<Method name="Test: LBX rolnamen &apos;Rug_X&apos;, &apos;Rug_Y&apos; en &apos;Rug_M&apos; worden &apos;RugStaal&apos; indien RugWandMateriaal &apos;Staal&apos;">
+<Implementation><![CDATA[
+	#dim VerwachtteRolNaam As %String = "RugStaal"
+	
+	Set ..DomKenmerken.RugWandMateriaal = ##class(DOM.PM.enu.LBXRugWandMateriaal).Staal()
+	Set ..DomKenmerken.Klasse = ##class(DOM.PM.enu.LBXKlasse).Spoelbak()
+	
+	Do ..AssertRolnaam("Rug.X", VerwachtteRolNaam, ..DomKenmerken)
+	Do ..AssertRolnaam("Rug.Y", VerwachtteRolNaam, ..DomKenmerken)
+	Do ..AssertRolnaam("Rug.M", VerwachtteRolNaam, ..DomKenmerken)
+]]></Implementation>
+</Method>
+
+<Method name="Test: LBX rolnamen &apos;Sifonkap_Z1&apos; en &apos;Sifonkap_Z2&apos; worden &apos;Sifonkap&apos;">
+<Implementation><![CDATA[
+	#dim VerwachtteRolNaam As %String = "Sifonkap"
+	
+	Do ..AssertRolnaam("Sifonkap.Z1", VerwachtteRolNaam, ..DomKenmerken)
+	Do ..AssertRolnaam("Sifonkap.Z2", VerwachtteRolNaam, ..DomKenmerken)
+]]></Implementation>
+</Method>
+
+<Method name="Test: LBX rolnamen &apos;Geleider_Links&apos; en &apos;Geleider_Rechts&apos; worden &apos;Geleider&apos;">
+<Implementation><![CDATA[
+	#dim VerwachtteRolNaam As %String = "Geleider"
+	
+	Do ..AssertRolnaam("Geleider.Links", VerwachtteRolNaam, ..DomKenmerken)
+	Do ..AssertRolnaam("Geleider.Rechts", VerwachtteRolNaam, ..DomKenmerken)
+]]></Implementation>
+</Method>
+
+<Method name="Test: LBX rolnamen &apos;RugWandHouder_Links&apos; en &apos;RugWandHouder_Rechts&apos; worden &apos;RugWandHouder&apos;">
+<Implementation><![CDATA[
+	#dim VerwachtteRolNaam As %String = "RugWandHouder"
+	
+	Do ..AssertRolnaam("RugWandHouder.Links", VerwachtteRolNaam, ..DomKenmerken)
+	Do ..AssertRolnaam("RugWandHouder.Rechts", VerwachtteRolNaam, ..DomKenmerken)
+]]></Implementation>
+</Method>
+
+<Method name="Test: LBX rolnamen &apos;FrontHouder_Links&apos; en &apos;FrontHouder_Rechts&apos; worden &apos;FrontHouder&apos;">
+<Implementation><![CDATA[
+	#dim VerwachtteRolNaam As %String = "FrontHouder"
+	
+	Do ..AssertRolnaam("FrontHouder.Links", VerwachtteRolNaam, ..DomKenmerken)
+	Do ..AssertRolnaam("FrontHouder.Rechts", VerwachtteRolNaam, ..DomKenmerken)
+]]></Implementation>
+</Method>
+
+<Method name="Test: LBX rolnamen &apos;Boxcap_Links&apos; en &apos;Boxcap_Rechts&apos; worden &apos;Boxcap&apos;">
+<Implementation><![CDATA[
+	#dim VerwachtteRolNaam As %String = "Boxcap"
+	
+	Do ..AssertRolnaam("Boxcap.Links", VerwachtteRolNaam, ..DomKenmerken)
+	Do ..AssertRolnaam("Boxcap.Rechts", VerwachtteRolNaam, ..DomKenmerken)
+]]></Implementation>
+</Method>
+
+<Method name="Test: LBX rolnamen &apos;AfdekkapRugWandHouder_Links&apos; en &apos;AfdekkapRugWandHouder_Rechts&apos; worden &apos;AfdekkapRugWandHouder&apos;">
+<Implementation><![CDATA[
+	#dim VerwachtteRolNaam As %String = "AfdekkapRugWandHouder"
+	
+	Do ..AssertRolnaam("AfdekkapRugWandHouder.Links", VerwachtteRolNaam, ..DomKenmerken)
+	Do ..AssertRolnaam("AfdekkapRugWandHouder.Rechts", VerwachtteRolNaam, ..DomKenmerken)
+]]></Implementation>
+</Method>
+
+<Method name="Test: LBX rolnamen &apos;AfdekkapFrontHouderBinnen_Links&apos; en &apos;AfdekkapFrontHouderBinnen_Rechts&apos; worden &apos;AfdekkapFrontHouderBinnen&apos;">
+<Implementation><![CDATA[
+	#dim VerwachtteRolNaam As %String = "AfdekkapFrontHouderBinnen"
+	
+	Do ..AssertRolnaam("AfdekkapFrontHouderBinnen.Links", VerwachtteRolNaam, ..DomKenmerken)
+	Do ..AssertRolnaam("AfdekkapFrontHouderBinnen.Rechts", VerwachtteRolNaam, ..DomKenmerken)
+]]></Implementation>
+</Method>
+
+<Method name="AssertRolnaam">
+<FormalSpec>TeConverterenRolNaam:%String,VerwachtteRolNaam:%String,DomKenmerken:DOM.PM.Maatwerk.Calc.Common.impl.LBXKenmerken</FormalSpec>
+<Implementation><![CDATA[
+	#dim GeconverteerdeRolnaam As %String = ..Converter.Converteer(TeConverterenRolNaam, DomKenmerken)
+	Do $$$AssertEquals(GeconverteerdeRolnaam, VerwachtteRolNaam)
+]]></Implementation>
+</Method>
 </Class>