Index: vhUnitTest/APPS/PM/TestKenmerkenService.cls.xml
===================================================================
diff -u -r1519 -r1539
--- vhUnitTest/APPS/PM/TestKenmerkenService.cls.xml	(.../TestKenmerkenService.cls.xml)	(revision 1519)
+++ vhUnitTest/APPS/PM/TestKenmerkenService.cls.xml	(.../TestKenmerkenService.cls.xml)	(revision 1539)
@@ -122,15 +122,15 @@
 			Do $$$AssertEquals(KenmerkMeta.Mogelijkheden.Count(),42,"Aantal mogelijkheden voor BOWeten is correct.")
 			Do $$$AssertTrue(KenmerkMeta.Mogelijkheden.Find("TIPS_Brooddoos_zonder_toebehoor") '= "","Tip 'TIPS_Brooddoos_zonder_toebehoor' is gevonden als mogelijkheid bij BOWeten")
 			Do $$$AssertTrue('KenmerkMeta.IsReadOnly,"BOWeten is niet Read Only.")
-			Do $$$AssertTrue('KenmerkMeta.NieuweWaardeToegelaten,"BOWeten mag nieuwe waarden hebben.")
+			Do $$$AssertTrue(KenmerkMeta.NieuweWaardeToegelaten,"BOWeten mag nieuwe waarden hebben.")
 			Do $$$AssertTrue('KenmerkMeta.SuggereerGeenWaarden,"BOWeten mag waarden suggereren.")
 		}
 		If (KenmerkMeta.Naam = "ProductSorteerSleutel"){
 			
 			Do $$$AssertTrue(KenmerkMeta.Mogelijkheden.Count()>0,"ProductSorteerSleutel heeft geen mogelijkheden.")
-			Do $$$AssertTrue('KenmerkMeta.IsReadOnly,"ProductSorteerSleutel is niet Read Only.")
+			Do $$$AssertTrue(KenmerkMeta.IsReadOnly,"ProductSorteerSleutel is Read Only.")
 			Do $$$AssertTrue('KenmerkMeta.NieuweWaardeToegelaten,"ProductSorteerSleutel mag nieuwe waarden hebben.")
-			Do $$$AssertTrue('KenmerkMeta.SuggereerGeenWaarden,"ProductSorteerSleutel mag geen waarden suggereren.")
+			Do $$$AssertTrue(KenmerkMeta.SuggereerGeenWaarden,"ProductSorteerSleutel mag waarden suggereren.")
 		}
 	}
 ]]></Implementation>
@@ -183,7 +183,6 @@
 	Do Waarden.Insert(NieuweWaarde)
 	Set Kenmerken.GetAt(4).Waarden = Waarden
 	
-	/// Set ProductenKenmerken.Kenmerken.GetAt(1).KenmerkenGroepen.GetAt(1).Sets.GetAt(1).Kenmerken = Kenmerken
 	Do KenmerkenService.BewaarProductenKenmerken(ProductenKenmerken)
 	
 	Do $$$AssertFalse(%HeeftModEventOntvangen,"De mod event werd niet opgegooid omdat er geen wijzigingen waren")
@@ -205,7 +204,6 @@
 	Set NieuweWaarde = "GewijzigdeMeubelToepassing2"
 	Set KenmerkenService = ##class(APPS.PM.KenmerkenService).%New()
 	
-	
 	Set PRNrs = ##class(%ListOfDataTypes).%New()
 	Do PRNrs.Insert(1002)
 	
@@ -230,7 +228,6 @@
 	Set ..ErrorMsg=""
 	Set $ZTRAP = "Catch"
 		  
-	/// Set ProductenKenmerken.Kenmerken.GetAt(1).KenmerkenGroepen.GetAt(1).Sets.GetAt(1).Kenmerken = Kenmerken
 	Do KenmerkenService.BewaarProductenKenmerken(ProductenKenmerken)
 	GoTo Catch
 Catch Set $ZTRAP = ""