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) ]]>