Index: vhUnitTest/DOM/PM/Maatwerk/impl/IngegevenKenmerkenTypeAPI/GeefLadeOnderdeel/Test.cls.xml
===================================================================
diff -u
--- vhUnitTest/DOM/PM/Maatwerk/impl/IngegevenKenmerkenTypeAPI/GeefLadeOnderdeel/Test.cls.xml	(revision 0)
+++ vhUnitTest/DOM/PM/Maatwerk/impl/IngegevenKenmerkenTypeAPI/GeefLadeOnderdeel/Test.cls.xml	(revision 30961)
@@ -0,0 +1,114 @@
+<?xml version="1.0" encoding="UTF-8"?>
+<Export generator="Cache" version="24">
+<Class name="vhUnitTest.DOM.PM.Maatwerk.impl.IngegevenKenmerkenTypeAPI.GeefLadeOnderdeel.Test">
+<Super>vhUnitTest.TestCase</Super>
+
+<Property name="IngegevenKenmerkenTypeAPI">
+<Type>DOM.PM.Maatwerk.IngegevenKenmerkenTypeAPI</Type>
+<Private>1</Private>
+</Property>
+
+<Method name="OnBeforeOneTest">
+<FormalSpec>aTestName:%String</FormalSpec>
+<Implementation><![CDATA[
+	Do ##super(aTestName)
+	Set ..IngegevenKenmerkenTypeAPI = ##class(DOM.PM.Maatwerk.impl.IngegevenKenmerkenTypeAPI).%New()
+]]></Implementation>
+</Method>
+
+<Method name="TestTaorVolledig">
+<Implementation><![CDATA[
+	#dim TAORKenmerken As DOM.PM.Maatwerk.Calc.Common.impl.TAORKenmerken = ##class(vhTest.Utils.DOM.PM.Maatwerk.Calc.Common.impl.TAORKenmerken).StandaardLade()
+	Set TAORKenmerken.ProductieWijze = ##class(DOM.PM.enu.TAORProductieWijze).Volledig()
+	Do ..AssertLadeOnderdeel(TAORKenmerken, "")
+]]></Implementation>
+</Method>
+
+<Method name="TestTaorZijkant">
+<Implementation><![CDATA[
+	#dim TAORKenmerken As DOM.PM.Maatwerk.Calc.Common.impl.TAORKenmerken = ##class(vhTest.Utils.DOM.PM.Maatwerk.Calc.Common.impl.TAORKenmerken).StandaardLade()
+	Set TAORKenmerken.ProductieWijze = ##class(DOM.PM.enu.TAORProductieWijze).ZijkantRechts()
+	
+	#dim VerwachteWaarde As DOM.PM.Maatwerk.LadeInfo.enu.LadeOnderdeel = ##class(DOM.PM.Maatwerk.LadeInfo.enu.LadeOnderdeel).Zijkant()
+	Do ..AssertLadeOnderdeel(TAORKenmerken, VerwachteWaarde)
+]]></Implementation>
+</Method>
+
+<Method name="TestTaorRug">
+<Implementation><![CDATA[
+	#dim TAORKenmerken As DOM.PM.Maatwerk.Calc.Common.impl.TAORKenmerken = ##class(vhTest.Utils.DOM.PM.Maatwerk.Calc.Common.impl.TAORKenmerken).StandaardLade()
+	Set TAORKenmerken.ProductieWijze = ##class(DOM.PM.enu.TAORProductieWijze).Rug()
+	
+	#dim VerwachteWaarde As DOM.PM.Maatwerk.LadeInfo.enu.LadeOnderdeel = ##class(DOM.PM.Maatwerk.LadeInfo.enu.LadeOnderdeel).Rug()
+	Do ..AssertLadeOnderdeel(TAORKenmerken, VerwachteWaarde)
+]]></Implementation>
+</Method>
+
+<Method name="TestLegraboxRugMetHouders">
+<Implementation><![CDATA[
+	#dim LBXKenmerken As DOM.PM.Maatwerk.Calc.Common.impl.LBXKenmerken = ##class(vhTest.Utils.DOM.PM.Maatwerk.Calc.Common.impl.LBXKenmerken).CLade()
+	Set LBXKenmerken.ProductieWijze = ##class(DOM.PM.enu.LBXProductieWijze).RugMetHouders()
+	
+	#dim VerwachteWaarde As DOM.PM.Maatwerk.LadeInfo.enu.LadeOnderdeel = ##class(DOM.PM.Maatwerk.LadeInfo.enu.LadeOnderdeel).Rug()
+	Do ..AssertLadeOnderdeel(LBXKenmerken, VerwachteWaarde)
+]]></Implementation>
+</Method>
+
+<Method name="TestLegraboxBodemEnRug">
+<Implementation><![CDATA[
+	#dim LBXKenmerken As DOM.PM.Maatwerk.Calc.Common.impl.LBXKenmerken = ##class(vhTest.Utils.DOM.PM.Maatwerk.Calc.Common.impl.LBXKenmerken).CLade()
+	Set LBXKenmerken.ProductieWijze = ##class(DOM.PM.enu.LBXProductieWijze).BodemEnRug()
+
+	#dim Substrings = ##class(TECH.ListUtils).CreateListOfDataTypes("Nog geen implementatie voor ProductieWijze","bij method GeefLadeOnderdeel()",LBXKenmerken.ProductieWijze,LBXKenmerken.GeefVariant())
+	Do ..ZetVerwachteExceptie(##class(Tools.Test.VerwachteExceptie).%New(##class(TECH.Exceptions.UnimplementedException).%ClassName(1),Substrings))
+	
+	Do ..AssertLadeOnderdeel(LBXKenmerken, $$$DummyString)
+]]></Implementation>
+</Method>
+
+<Method name="TestTandemboxBodem">
+<Implementation><![CDATA[
+	#dim TBXKenmerken As DOM.PM.Maatwerk.Calc.Common.impl.TBXKenmerken = ##class(DOM.PM.Maatwerk.Calc.Common.impl.TBXKenmerken).%New()
+	Set TBXKenmerken.ProductieWijze = ##class(DOM.PM.enu.TBXProductieWijze).Bodem()
+
+	#dim VerwachteWaarde As DOM.PM.Maatwerk.LadeInfo.enu.LadeOnderdeel = ##class(DOM.PM.Maatwerk.LadeInfo.enu.LadeOnderdeel).Bodem()
+	Do ..AssertLadeOnderdeel(TBXKenmerken, VerwachteWaarde)
+]]></Implementation>
+</Method>
+
+<Method name="TestKaderdeur">
+<Implementation><![CDATA[
+	#dim Substrings = ##class(TECH.ListUtils).CreateListOfDataTypes("GeefLadeOnderdeel() is niet mogelijk voor AluKader")
+	Do ..ZetVerwachteExceptie(##class(Tools.Test.VerwachteExceptie).%New(##class(TECH.Exceptions.IllegalUsageException).%ClassName(1),Substrings))
+	
+	Do ..AssertLadeOnderdeel(##class(DOM.PM.Maatwerk.Calc.Common.impl.KADKenmerken).%New(), $$$DummyString)
+]]></Implementation>
+</Method>
+
+<Method name="TestOrgalux">
+<Implementation><![CDATA[
+	#dim Substrings = ##class(TECH.ListUtils).CreateListOfDataTypes("GeefLadeOnderdeel() is niet mogelijk voor Orgalux")
+	Do ..ZetVerwachteExceptie(##class(Tools.Test.VerwachteExceptie).%New(##class(TECH.Exceptions.IllegalUsageException).%ClassName(1),Substrings))
+	
+	Do ..AssertLadeOnderdeel(##class(DOM.PM.Maatwerk.Calc.Common.impl.OLMKenmerken).%New(), $$$DummyString)
+]]></Implementation>
+</Method>
+
+<Method name="TestMat">
+<Implementation><![CDATA[
+	#dim Substrings = ##class(TECH.ListUtils).CreateListOfDataTypes("GeefLadeOnderdeel() is niet mogelijk voor Mat")
+	Do ..ZetVerwachteExceptie(##class(Tools.Test.VerwachteExceptie).%New(##class(TECH.Exceptions.IllegalUsageException).%ClassName(1),Substrings))
+	
+	Do ..AssertLadeOnderdeel(##class(DOM.PM.Maatwerk.Calc.Common.impl.MATKenmerken).%New(), $$$DummyString)
+]]></Implementation>
+</Method>
+
+<Method name="AssertLadeOnderdeel">
+<FormalSpec>IngegevenKenmerken:DOM.PM.Maatwerk.Calc.Common.IngegevenKenmerken,VerwachteWaarde:DOM.PM.Maatwerk.LadeInfo.enu.LadeOnderdeel</FormalSpec>
+<Implementation><![CDATA[	Do $$$AssertEquals(..IngegevenKenmerkenTypeAPI.GeefLadeOnderdeel(IngegevenKenmerken),VerwachteWaarde)
+]]></Implementation>
+</Method>
+</Class>
+
+
+</Export>