Index: vhUnitTest/APPS/EC/impl/ConfiguratorService/InterneKenmerkDomeinPostProcessor/VerwerkKenmerkMogelijkheden/TAX/TestKleurenOptima.cls.xml
===================================================================
diff -u
--- vhUnitTest/APPS/EC/impl/ConfiguratorService/InterneKenmerkDomeinPostProcessor/VerwerkKenmerkMogelijkheden/TAX/TestKleurenOptima.cls.xml	(revision 0)
+++ vhUnitTest/APPS/EC/impl/ConfiguratorService/InterneKenmerkDomeinPostProcessor/VerwerkKenmerkMogelijkheden/TAX/TestKleurenOptima.cls.xml	(revision 39898)
@@ -0,0 +1,119 @@
+<?xml version="1.0" encoding="UTF-8"?>
+<Export generator="Cache" version="24">
+<Class name="vhUnitTest.APPS.EC.impl.ConfiguratorService.InterneKenmerkDomeinPostProcessor.VerwerkKenmerkMogelijkheden.TAX.TestKleurenOptima">
+<Super>vhUnitTest.DOM.PM.Maatwerk.TAX.Base</Super>
+
+<Property name="Kenmerken">
+<Type>APPS.PM.Maatwerk.dto.IngegevenKenmerken</Type>
+<Private>1</Private>
+</Property>
+
+<Property name="KenmerkMogelijkheden">
+<Type>APPS.PM.Maatwerk.dto.KenmerkMogelijkheden</Type>
+<Private>1</Private>
+</Property>
+
+<Property name="KenmerkDomeinPostProcessor">
+<Type>APPS.EC.impl.ConfiguratorService.KenmerkDomeinPostProcessor</Type>
+<Private>1</Private>
+</Property>
+
+<Property name="Personality">
+<Type>DOM.common.Personality</Type>
+<Private>1</Private>
+</Property>
+
+<Method name="OnBeforeAllTests">
+<Implementation><![CDATA[
+	do ##super()
+	set ..KenmerkDomeinPostProcessor = ##class(APPS.EC.impl.ConfiguratorService.InterneKenmerkDomeinPostProcessor).%New()
+]]></Implementation>
+</Method>
+
+<Method name="OnBeforeOneTest">
+<FormalSpec>aTestName:%String</FormalSpec>
+<Implementation><![CDATA[
+	do ##super(aTestName)
+	
+	set ..Kenmerken = ##class(APPS.PM.Maatwerk.dto.TAORKenmerken).%New()
+	set ..KenmerkMogelijkheden = ##class(APPS.PM.Maatwerk.dto.KenmerkMogelijkheden).%New()
+	set ..Personality = ##class(vhTest.Dummy.DOM.common.Personality).%New()
+
+	do ..KenmerkMogelijkheden.ZetMogelijkeWaarden(..Enum.KenmerkNaam.LadeKleur, ##class(DOM.PM.enu.TAORLadeKleur).ValueList())
+	do ..KenmerkMogelijkheden.ZetMogelijkeWaarden(..Enum.KenmerkNaam.LadeBinnenKleur, ##class(DOM.PM.enu.TAORLadeKleur).ValueList())
+	do ..KenmerkMogelijkheden.ZetMogelijkeWaarden(..Enum.KenmerkNaam.BodemKleur, ##class(DOM.PM.enu.TAORBodemKleur).ValueList())
+]]></Implementation>
+</Method>
+
+<Method name="TestLadeKleuren">
+<Implementation><![CDATA[
+	#dim VerwachteWaarden As List of DOM.PM.enu.TAORLadeKleur = ##class(%ListOfDataTypes).%New()
+	
+	do VerwachteWaarden.Insert(..Enum.LadeKleur.NatuurEikenhout)
+	do VerwachteWaarden.Insert(..Enum.LadeKleur.NatuurNotenhout)
+	do VerwachteWaarden.Insert(..Enum.LadeKleur.ZwartIngekleurdYaya)
+	do VerwachteWaarden.Insert(..Enum.LadeKleur.BardolinoEik)
+	do VerwachteWaarden.Insert(..Enum.LadeKleur.NebraskaEikenhout)
+	do VerwachteWaarden.Insert(..Enum.LadeKleur.TennesseeNoot)
+	do VerwachteWaarden.Insert(..Enum.LadeKleur.Zwart)
+	do VerwachteWaarden.Insert(..Enum.LadeKleur.Wit)
+	do VerwachteWaarden.Insert(..Enum.LadeKleur.OnyxGrijs)
+	do VerwachteWaarden.Insert(..Enum.LadeKleur.Dakar)
+	
+	do ..AssertKleuren(VerwachteWaarden, ..Enum.KenmerkNaam.LadeKleur)
+]]></Implementation>
+</Method>
+
+<Method name="TestLadeBinnenKleuren">
+<Implementation><![CDATA[
+	#dim VerwachteWaarden As List of DOM.PM.enu.TAORLadeKleur = ##class(%ListOfDataTypes).%New()
+
+	do VerwachteWaarden.Insert(..Enum.LadeKleur.NatuurEikenhout)
+	do VerwachteWaarden.Insert(..Enum.LadeKleur.NatuurNotenhout)
+	do VerwachteWaarden.Insert(..Enum.LadeKleur.ZwartIngekleurdYaya)
+	do VerwachteWaarden.Insert(..Enum.LadeKleur.BardolinoEik)
+	do VerwachteWaarden.Insert(..Enum.LadeKleur.NebraskaEikenhout)
+	do VerwachteWaarden.Insert(..Enum.LadeKleur.TennesseeNoot)
+	do VerwachteWaarden.Insert(..Enum.LadeKleur.Zwart)
+	do VerwachteWaarden.Insert(..Enum.LadeKleur.Wit)
+	do VerwachteWaarden.Insert(..Enum.LadeKleur.OnyxGrijs)
+	do VerwachteWaarden.Insert(..Enum.LadeKleur.Dakar)
+
+	do ..AssertKleuren(VerwachteWaarden, ..Enum.KenmerkNaam.LadeBinnenKleur)
+]]></Implementation>
+</Method>
+
+<Method name="TestBodemKleuren">
+<Implementation><![CDATA[
+	#dim VerwachteWaarden As List of DOM.PM.enu.TAORBodemKleur = ##class(%ListOfDataTypes).%New()
+	
+	do VerwachteWaarden.Insert(..Enum.BodemKleur.NatuurEikenhout)
+	do VerwachteWaarden.Insert(..Enum.BodemKleur.NatuurNotenhout)
+	do VerwachteWaarden.Insert(..Enum.BodemKleur.ZwartIngekleurdYaya)
+	do VerwachteWaarden.Insert(..Enum.BodemKleur.BardolinoEik)
+	do VerwachteWaarden.Insert(..Enum.BodemKleur.NebraskaEikenhout)
+	do VerwachteWaarden.Insert(..Enum.LadeKleur.TennesseeNoot)
+	do VerwachteWaarden.Insert(..Enum.BodemKleur.Zwart)
+	do VerwachteWaarden.Insert(..Enum.BodemKleur.Wit)
+	do VerwachteWaarden.Insert(..Enum.BodemKleur.OnyxGrijs)
+	do VerwachteWaarden.Insert(..Enum.BodemKleur.Dakar)
+
+	do ..AssertKleuren(VerwachteWaarden, ..Enum.KenmerkNaam.BodemKleur)
+]]></Implementation>
+</Method>
+
+<Method name="AssertKleuren">
+<FormalSpec>VerwachteKleuren:%ListOfDataTypes,KenmerkNaam:TECH.String</FormalSpec>
+<Private>1</Private>
+<Implementation><![CDATA[
+	#dim KlantStub As vhTest.Mock.DOM.VKP.VanHoeckeKlant = ##class(vhTest.Mock.DOM.VKP.VanHoeckeKlant).%New()
+	Do KlantStub.IndienMethodCall("GeefID").DanReturn(##class(DOM.VKP.enu.Klant).OptimaPack())
+	
+	Do ..KenmerkDomeinPostProcessor.VerwerkKenmerkMogelijkheden(..Kenmerken, ..KenmerkMogelijkheden, KlantStub, ..Personality)
+	do $$$AssertEqualsList(..KenmerkMogelijkheden.GeefMogelijkeWaarden(KenmerkNaam), VerwachteKleuren, KenmerkNaam)
+]]></Implementation>
+</Method>
+</Class>
+
+
+</Export>