Index: vhUnitTest/APPS/PM/TestKenmerkenService.cls.xml
===================================================================
diff -u -r1263 -r1377
--- vhUnitTest/APPS/PM/TestKenmerkenService.cls.xml	(.../TestKenmerkenService.cls.xml)	(revision 1263)
+++ vhUnitTest/APPS/PM/TestKenmerkenService.cls.xml	(.../TestKenmerkenService.cls.xml)	(revision 1377)
@@ -150,7 +150,7 @@
 	Do $$$AssertEquals(ProductenKenmerken.Kenmerken.GetAt(1).Kenmerken.GetAt(4).Waarden.GetAt(1),"Keuken","Er is een ingevulde eigenschap "_ProductenKenmerken.Kenmerken.GetAt(1).Kenmerken.GetAt(4).KenmerkNaam_" : "_ProductenKenmerken.Kenmerken.GetAt(1).Kenmerken.GetAt(4).Waarden.GetAt(1)_"")
 	; [Review WV  JBL Kenm]   wat een geflipte expression  :-P
 	;                         bestaat er geen method Product.GeefKenmerkViaNaam("MeubelToepassing")  i.p.v. GetAt(4)  ? 
-	
+
 	///Kenmerk wijzigen en wegschrijven
 	Set Waarden = ##class(%ListOfDataTypes).%New()
 	Do Waarden.Insert(NieuweWaarde)
@@ -163,6 +163,23 @@
 	///Opnieuw ophalen van kenmerken
 	Set ProductenKenmerken = KenmerkenService.GeefProductKenmerken(PRNrs, KenmerkGroepen)
 	Do $$$AssertEquals(ProductenKenmerken.Kenmerken.GetAt(1).Kenmerken.GetAt(4).Waarden.GetAt(1),NieuweWaarde,"Er is een ingevulde eigenschap "_ProductenKenmerken.Kenmerken.GetAt(1).Kenmerken.GetAt(4).KenmerkNaam_" : "_NieuweWaarde_"")
+
+	// We gaan nog eens opnieuw bewaren. Dit zou geen save mogen trigger => zelfde waarden is geen save.
+	
+	Set %HeeftModEventOntvangen = 0
+	Set ModifiedSubscription = ##class(TECH.PubSub.EventSubscription).%New("KenmerkenModifiedEvent",..%ClassName(1),"KenmerkenModEventListener")
+	Do ModifiedSubscription.%Save()
+	
+	Set Waarden = ##class(%ListOfDataTypes).%New()
+	Do Waarden.Insert(NieuweWaarde)
+	Set ProductenKenmerken.Kenmerken.GetAt(1).Kenmerken.GetAt(4).Waarden = Waarden
+	
+	Do KenmerkenService.BewaarProductenKenmerken(ProductenKenmerken)
+	
+	Do $$$AssertFalse(%HeeftModEventOntvangen,"De mod event werd niet opgegooid omdat er geen wijzigingen waren")
+	
+	Do ModifiedSubscription.%DeleteId(ModifiedSubscription.%Id())
+	Kill %HeeftModEventOntvangen
 ]]></Implementation>
 </Method>
 
@@ -210,6 +227,7 @@
 	Do $$$AssertFalse(%HeeftModEventOntvangen,"De bulk wijzig event is niet geraised door de rollback")
 
 	Do ModifiedSubscription.%DeleteId(ModifiedSubscription.%Id())
+	Kill %HeeftModEventOntvangen
 	
 	k ProductenKenmerken	
 
@@ -256,6 +274,7 @@
 	Do $$$AssertTrue(%HeeftModEventOntvangen,"De bulk wijzig event is opgevangen en had meerdere wijziging data objecten")
 
 	Do ModifiedSubscription.%DeleteId(ModifiedSubscription.%Id())
+	Kill %HeeftModEventOntvangen
 	
 	k ProductenKenmerken