Index: vhUnitTest/APPS/PM/Maatwerk/dto/KenmerkMogelijkheden/GeefMogelijkeWaarden/Test.cls.xml
===================================================================
diff -u
--- vhUnitTest/APPS/PM/Maatwerk/dto/KenmerkMogelijkheden/GeefMogelijkeWaarden/Test.cls.xml (revision 0)
+++ vhUnitTest/APPS/PM/Maatwerk/dto/KenmerkMogelijkheden/GeefMogelijkeWaarden/Test.cls.xml (revision 31194)
@@ -0,0 +1,13 @@
+
+
+
+vhUnitTest.APPS.PM.Maatwerk.dto.KenmerkMogelijkheden.TestBase
+
+
+
+
+
+
+
+
Index: APPS/PM/Maatwerk/dto/KenmerkMogelijkheden.cls.xml
===================================================================
diff -u -r31132 -r31194
--- APPS/PM/Maatwerk/dto/KenmerkMogelijkheden.cls.xml (.../KenmerkMogelijkheden.cls.xml) (revision 31132)
+++ APPS/PM/Maatwerk/dto/KenmerkMogelijkheden.cls.xml (.../KenmerkMogelijkheden.cls.xml) (revision 31194)
@@ -115,6 +115,13 @@
Do ..MogelijkeWaarden.SetAt(KenmerkWaardenLijst, KenmerkNaam)
]]>
+
+
+KenmerkNaam:TECH.String
+%ListOfDataTypes
+
+
Index: vhUnitTest/APPS/EC/impl/ConfiguratorService/KenmerkDomeinPostProcessor/VerwerkKenmerkMogelijkheden/TestTAORLadeKleurWaarden.cls.xml
===================================================================
diff -u -r31193 -r31194
--- vhUnitTest/APPS/EC/impl/ConfiguratorService/KenmerkDomeinPostProcessor/VerwerkKenmerkMogelijkheden/TestTAORLadeKleurWaarden.cls.xml (.../TestTAORLadeKleurWaarden.cls.xml) (revision 31193)
+++ vhUnitTest/APPS/EC/impl/ConfiguratorService/KenmerkDomeinPostProcessor/VerwerkKenmerkMogelijkheden/TestTAORLadeKleurWaarden.cls.xml (.../TestTAORLadeKleurWaarden.cls.xml) (revision 31194)
@@ -13,6 +13,11 @@
1
+
+APPS.EC.impl.ConfiguratorService.KenmerkDomeinPostProcessor
+1
+
+
DOM.VKP.VanHoeckeKlant
1
@@ -23,6 +28,14 @@
1
+
+
+
+
aTestName:%String
@@ -50,7 +64,7 @@
do VerwachteWaarden.Insert(..Enum.LadeKleur.Zwart)
do VerwachteWaarden.Insert(..Enum.LadeKleur.Wit)
- do ..Assert(VerwachteWaarden, VerwachteWaarden)
+ do ..AssertKleuren(VerwachteWaarden, ..Enum.KenmerkNaam.LadeKleur)
]]>
@@ -67,43 +81,16 @@
do VerwachteWaarden.Insert(..Enum.BodemKleur.Zwart)
do VerwachteWaarden.Insert(..Enum.BodemKleur.Wit)
- do ..Assert(VerwachteWaarden, VerwachteWaarden)
+ do ..AssertKleuren(VerwachteWaarden, ..Enum.KenmerkNaam.BodemKleur)
]]>
-
-1
-
-
-
-
-VerwachteLadeKleuren:%ListOfDataTypes,VerwachteBodemKleuren:%ListOfDataTypes
-1
-
-
-
VerwachteKleuren:%ListOfDataTypes,KenmerkNaam:TECH.String
1
0) {
- #dim Kleuren As List of %String = ..KenmerkMogelijkheden.MogelijkeWaarden.GetAt(KenmerkNaam).Waarden
- do $$$AssertEqualsList(Kleuren, VerwachteKleuren, KenmerkNaam)
- }
+ do ..KenmerkDomeinPostProcessor.VerwerkKenmerkMogelijkheden(..Kenmerken, ..KenmerkMogelijkheden, ..Klant, ..Personality)
+ do $$$AssertEqualsList(..KenmerkMogelijkheden.GeefMogelijkeWaarden(KenmerkNaam), VerwachteKleuren, KenmerkNaam)
]]>