Index: vhUnitTest/APPS/EC/impl/ConfiguratorService/WebshopKenmerkMogelijkhedenPostProcessor/LBX/Test.cls.xml
===================================================================
diff -u
--- vhUnitTest/APPS/EC/impl/ConfiguratorService/WebshopKenmerkMogelijkhedenPostProcessor/LBX/Test.cls.xml	(revision 0)
+++ vhUnitTest/APPS/EC/impl/ConfiguratorService/WebshopKenmerkMogelijkhedenPostProcessor/LBX/Test.cls.xml	(revision 32448)
@@ -0,0 +1,158 @@
+<?xml version="1.0" encoding="UTF-8"?>
+<Export generator="Cache" version="24">
+<Class name="vhUnitTest.APPS.EC.impl.ConfiguratorService.WebshopKenmerkMogelijkhedenPostProcessor.LBX.Test">
+<Super>vhUnitTest.DOM.PM.Maatwerk.LBX.Base</Super>
+
+<Property name="LBXKenmerken">
+<Type>APPS.PM.Maatwerk.dto.LBXKenmerken</Type>
+<Private>1</Private>
+</Property>
+
+<Property name="Personality">
+<Type>DOM.common.Personality</Type>
+<Private>1</Private>
+</Property>
+
+<Property name="PostProcessor">
+<Type>APPS.EC.impl.ConfiguratorService.WebshopKenmerkMogelijkhedenPostProcessor</Type>
+<Private>1</Private>
+</Property>
+
+<Method name="OnBeforeOneTest">
+<FormalSpec>aTestName:%String</FormalSpec>
+<Implementation><![CDATA[
+	Do ##super(aTestName)
+	
+	Set ..LBXKenmerken =  ##class(vhTest.Utils.APPS.PM.Maatwerk.dto.LBXKenmerken).StandaardLade()
+	Set ..Personality = ##class(DOM.common.VanHoeckePersonality).Instance()
+	Set ..PostProcessor = ##class(APPS.EC.impl.ConfiguratorService.WebshopKenmerkMogelijkhedenPostProcessor).%New()
+]]></Implementation>
+</Method>
+
+<Method name="Test: Mogelijke LadeKleuren indien BENELUX klant">
+<Implementation><![CDATA[
+	#dim MogelijkeWaarden As %ListOfDataTypes = ##class(DOM.PM.enu.LBXLadeKleur).ValueList()
+	#dim VerwachteMogelijkeWaarden As %ListOfDataTypes = MogelijkeWaarden
+	#dim LadeDiepteIterator As TECH.Iterator = ##class(DOM.PM.enu.LBXLadeDiepte).ValueListIterator()
+	
+	While (LadeDiepteIterator.HasNext()) {
+		#dim LadeDiepte As DOM.PM.enu.LBXLadeDiepte = LadeDiepteIterator.Next()
+		#dim LadeHoogteIterator As TECH.Iterator = ##class(DOM.PM.enu.LBXLadeHoogte).ValueListIterator()
+		
+		While (LadeHoogteIterator.HasNext()) {
+			#dim LadeHoogte As DOM.PM.enu.LBXLadeHoogte = LadeHoogteIterator.Next()
+			
+			Set ..LBXKenmerken.LadeHoogte = LadeHoogte
+			Set ..LBXKenmerken.LadeDiepte = LadeDiepte
+			
+			Do ..AssertMogelijkeWaarden(..GeefBelgischeOnderneming(), ..Enum.KenmerkNaam.LadeKleur, MogelijkeWaarden, VerwachteMogelijkeWaarden)
+		}
+	}
+]]></Implementation>
+</Method>
+
+<Method name="Test: Mogelijke LadeKleuren voor lade met LadeHoogte F en LadeDiepte 350 indien niet-BENELUX klant">
+<Implementation><![CDATA[
+	#dim MogelijkeWaarden As %ListOfDataTypes = ##class(DOM.PM.enu.LBXLadeKleur).ValueList()
+	#dim VerwachteMogelijkeWaarden As %ListOfDataTypes = ##class(TECH.ListUtils).CreateListOfDataTypes(..Enum.LadeKleur.Oriongrijs)
+	
+	Set ..LBXKenmerken.LadeHoogte = ..Enum.LadeHoogte.F
+	Set ..LBXKenmerken.LadeDiepte = ..Enum.LadeDiepte.LadeDiepte350
+	
+	Do ..AssertMogelijkeWaarden(..GeefNietBeneluxOnderneming(), ..Enum.KenmerkNaam.LadeKleur, MogelijkeWaarden, VerwachteMogelijkeWaarden)
+]]></Implementation>
+</Method>
+
+<Method name="Test: Mogelijke LadeKleuren voor lade met LadeHoogte F en LadeDiepte 400 indien niet-BENELUX klant">
+<Implementation><![CDATA[
+	#dim MogelijkeWaarden As %ListOfDataTypes = ##class(DOM.PM.enu.LBXLadeKleur).ValueList()
+	#dim VerwachteMogelijkeWaarden As %ListOfDataTypes = ##class(TECH.ListUtils).CreateListOfDataTypes(..Enum.LadeKleur.Oriongrijs, ..Enum.LadeKleur.Terrazwart)
+	
+	Set ..LBXKenmerken.LadeHoogte = ..Enum.LadeHoogte.F
+	Set ..LBXKenmerken.LadeDiepte = ..Enum.LadeDiepte.LadeDiepte400
+	
+	Do ..AssertMogelijkeWaarden(..GeefNietBeneluxOnderneming(), ..Enum.KenmerkNaam.LadeKleur, MogelijkeWaarden, VerwachteMogelijkeWaarden)
+]]></Implementation>
+</Method>
+
+<Method name="Test: Mogelijke LadeKleuren voor lade met LadeHoogte K en LadeDiepte 270 indien niet-BENELUX klant">
+<Implementation><![CDATA[
+	#dim MogelijkeWaarden As %ListOfDataTypes = ##class(DOM.PM.enu.LBXLadeKleur).ValueList()
+	#dim VerwachteMogelijkeWaarden As %ListOfDataTypes = ##class(TECH.ListUtils).CreateListOfDataTypes(..Enum.LadeKleur.Oriongrijs)
+	
+	Set ..LBXKenmerken.LadeHoogte = ..Enum.LadeHoogte.K
+	Set ..LBXKenmerken.LadeDiepte = ..Enum.LadeDiepte.LadeDiepte270
+	
+	Do ..AssertMogelijkeWaarden(..GeefNietBeneluxOnderneming(), ..Enum.KenmerkNaam.LadeKleur, MogelijkeWaarden, VerwachteMogelijkeWaarden)
+]]></Implementation>
+</Method>
+
+<Method name="Test: Mogelijke LadeKleuren voor lade met LadeHoogte K en LadeDiepte 300 indien niet-BENELUX klant">
+<Implementation><![CDATA[
+	#dim MogelijkeWaarden As %ListOfDataTypes = ##class(DOM.PM.enu.LBXLadeKleur).ValueList()
+	#dim VerwachteMogelijkeWaarden As %ListOfDataTypes = ##class(TECH.ListUtils).CreateListOfDataTypes(..Enum.LadeKleur.Oriongrijs)
+	
+	Set ..LBXKenmerken.LadeHoogte = ..Enum.LadeHoogte.K
+	Set ..LBXKenmerken.LadeDiepte = ..Enum.LadeDiepte.LadeDiepte300
+	
+	Do ..AssertMogelijkeWaarden(..GeefNietBeneluxOnderneming(), ..Enum.KenmerkNaam.LadeKleur, MogelijkeWaarden, VerwachteMogelijkeWaarden)
+]]></Implementation>
+</Method>
+
+<Method name="Test: Mogelijke LadeKleuren voor lade met LadeHoogte N en LadeDiepte 550 indien niet-BENELUX klant">
+<Implementation><![CDATA[
+	#dim MogelijkeWaarden As %ListOfDataTypes = ##class(DOM.PM.enu.LBXLadeKleur).ValueList()
+	#dim VerwachteMogelijkeWaarden As %ListOfDataTypes = ##class(TECH.ListUtils).CreateListOfDataTypes(..Enum.LadeKleur.Oriongrijs)
+	
+	Set ..LBXKenmerken.LadeHoogte = ..Enum.LadeHoogte.N
+	Set ..LBXKenmerken.LadeDiepte = ..Enum.LadeDiepte.LadeDiepte550
+	
+	Do ..AssertMogelijkeWaarden(..GeefNietBeneluxOnderneming(), ..Enum.KenmerkNaam.LadeKleur, MogelijkeWaarden, VerwachteMogelijkeWaarden)
+]]></Implementation>
+</Method>
+
+<Method name="AssertMogelijkeWaarden">
+<FormalSpec>Klant:DOM.VKP.VanHoeckeKlant,KenmerkNaam:DOM.PM.enu.LBXKenmerkNaam,MogelijkeWaarden:%ListOfDataTypes,VerwachteMogelijkeWaarden:%ListOfDataTypes</FormalSpec>
+<Private>1</Private>
+<Implementation><![CDATA[
+	#dim KenmerkMogelijkheden As APPS.PM.Maatwerk.dto.KenmerkMogelijkheden = ..MaakKenmerkMogelijkheden(KenmerkNaam, MogelijkeWaarden)
+	
+	Do ..PostProcessor.VerwerkKenmerkMogelijkheden(..LBXKenmerken, KenmerkMogelijkheden, Klant, ..Personality)
+	
+	Do $$$AssertEqualsList(KenmerkMogelijkheden.GeefMogelijkeWaarden(KenmerkNaam), VerwachteMogelijkeWaarden)
+]]></Implementation>
+</Method>
+
+<Method name="MaakKenmerkMogelijkheden">
+<FormalSpec>KenmerkNaam:DOM.PM.enu.LBXKenmerkNaam,MogelijkeWaarden:%ListOfDataTypes</FormalSpec>
+<Private>1</Private>
+<ReturnType>APPS.PM.Maatwerk.dto.KenmerkMogelijkheden</ReturnType>
+<Implementation><![CDATA[
+	#dim KenmerkMogelijkheden As APPS.PM.Maatwerk.dto.KenmerkMogelijkheden = ##class(APPS.PM.Maatwerk.dto.KenmerkMogelijkheden).%New()
+	#dim Iterator As TECH.Iterator = ##class(TECH.ListIterator).%New(MogelijkeWaarden)
+	
+	While (Iterator.HasNext()) {
+		Do KenmerkMogelijkheden.VoegToeMogelijkeWaarde(KenmerkNaam, Iterator.Next())	
+	}
+	
+	Quit KenmerkMogelijkheden
+]]></Implementation>
+</Method>
+
+<Method name="GeefBelgischeOnderneming">
+<Private>1</Private>
+<ReturnType>DOM.VKP.VanHoeckeKlant</ReturnType>
+<Implementation><![CDATA[	Quit ##class(vhTest.Data.DOM.VKP.VanHoeckeKlant).MaakBelgischeOnderneming()
+]]></Implementation>
+</Method>
+
+<Method name="GeefNietBeneluxOnderneming">
+<Private>1</Private>
+<ReturnType>DOM.VKP.VanHoeckeKlant</ReturnType>
+<Implementation><![CDATA[	Quit ##class(vhTest.Data.DOM.VKP.VanHoeckeKlant).MaakNietBENELUXOnderneming()
+]]></Implementation>
+</Method>
+</Class>
+
+
+</Export>