Index: vhUnitTest/DOM/PM/KorttekstUtils/BepaalKorttekstTAOR/TestBodemKleurCode.cls.xml
===================================================================
diff -u -r31360 -r31365
--- vhUnitTest/DOM/PM/KorttekstUtils/BepaalKorttekstTAOR/TestBodemKleurCode.cls.xml	(.../TestBodemKleurCode.cls.xml)	(revision 31360)
+++ vhUnitTest/DOM/PM/KorttekstUtils/BepaalKorttekstTAOR/TestBodemKleurCode.cls.xml	(.../TestBodemKleurCode.cls.xml)	(revision 31365)
@@ -5,7 +5,6 @@
 
 <Method name="Test">
 <Implementation><![CDATA[
-	
 	do ..VerwachteWaarden.SetAt("NE", ..Enum.BodemKleur.NatuurEikenhout)
 	do ..VerwachteWaarden.SetAt("NN", ..Enum.BodemKleur.NatuurNotenhout)
 	do ..VerwachteWaarden.SetAt("ZY", ..Enum.BodemKleur.ZwartIngekleurdYaya)
@@ -14,8 +13,7 @@
 	do ..VerwachteWaarden.SetAt("N1", ..Enum.BodemKleur.TennesseeNoot)
 	do ..VerwachteWaarden.SetAt(" S", ..Enum.BodemKleur.Zwart)
 	do ..VerwachteWaarden.SetAt(" W", ..Enum.BodemKleur.Wit)
-	//do ..VerwachteWaarden.SetAt("XG", ..Enum.BodemKleur.OnyxGrijs)
-	// test op onyx grijs overslaan: data nog niet ingevuld door PM
+	do ..VerwachteWaarden.SetAt("XG", ..Enum.BodemKleur.OnyxGrijs)
 	
 	do ..AssertWaarden(..TAORKenmerken, ..GeefWaardenIterator(), ..Enum.KenmerkNaam.BodemKleur, 24, 25)
 ]]></Implementation>
@@ -24,12 +22,7 @@
 <Method name="GeefWaardenIterator">
 <Private>1</Private>
 <ReturnType>TECH.Iterator</ReturnType>
-<Implementation><![CDATA[
-	#dim Waarden As %ListOfDataTypes = ##class(DOM.PM.enu.TAORBodemKleur).ValueList()
-	
-	do ##class(TECH.ListUtils).RemoveItemFromList(..Enum.BodemKleur.OnyxGrijs, Waarden)
-
-	quit ##class(TECH.ListIterator).%New(Waarden)
+<Implementation><![CDATA[	quit ##class(DOM.PM.enu.TAORBodemKleur).ValueListIterator()
 ]]></Implementation>
 </Method>
 </Class>
Index: vhUnitTest/DOM/PM/KorttekstUtils/BepaalKorttekstTAOR/TestBuitenKleurCode.cls.xml
===================================================================
diff -u -r31360 -r31365
--- vhUnitTest/DOM/PM/KorttekstUtils/BepaalKorttekstTAOR/TestBuitenKleurCode.cls.xml	(.../TestBuitenKleurCode.cls.xml)	(revision 31360)
+++ vhUnitTest/DOM/PM/KorttekstUtils/BepaalKorttekstTAOR/TestBuitenKleurCode.cls.xml	(.../TestBuitenKleurCode.cls.xml)	(revision 31365)
@@ -4,6 +4,8 @@
 <Super>vhUnitTest.DOM.PM.KorttekstUtils.BepaalKorttekstTAOR.Base</Super>
 
 <Method name="Test">
+<Description>
+onyx grijs wordt nog niet getest: we hebben de kantenband nog niet</Description>
 <Implementation><![CDATA[
 	do ..VerwachteWaarden.SetAt("NE", ..Enum.LadeKleur.NatuurEikenhout)
 	do ..VerwachteWaarden.SetAt("NN", ..Enum.LadeKleur.NatuurNotenhout)
@@ -14,7 +16,6 @@
 	do ..VerwachteWaarden.SetAt(" S", ..Enum.LadeKleur.Zwart)
 	do ..VerwachteWaarden.SetAt(" W", ..Enum.LadeKleur.Wit)
 	//do ..VerwachteWaarden.SetAt("XG", ..Enum.LadeKleur.OnyxGrijs)
-	// test op onyx grijs overslaan: we hebben de kantenband nog niet + data nog niet ingevuld door PM
 		
 	do ..AssertWaarden(..TAORKenmerken, ..GeefWaardenIterator(), ..Enum.KenmerkNaam.LadeKleur, 22, 23)
 ]]></Implementation>