Index: vhUnitTest/WSimpl/Vhisie4/OCC/OCCService/OCCKenmerkenConverter/Test.cls.xml
===================================================================
diff -u -r59607 -r59629
--- vhUnitTest/WSimpl/Vhisie4/OCC/OCCService/OCCKenmerkenConverter/Test.cls.xml	(.../Test.cls.xml)	(revision 59607)
+++ vhUnitTest/WSimpl/Vhisie4/OCC/OCCService/OCCKenmerkenConverter/Test.cls.xml	(.../Test.cls.xml)	(revision 59629)
@@ -18,7 +18,7 @@
 <Private>1</Private>
 </Property>
 
-<Property name="BlumNaarEconKenmerkenConverter">
+<Property name="BlumNaarEconKenmerkenConverterMock">
 <Type>WSimpl.Vhisie4.OCC.OCCService.OCCKenmerkenConverter.BlumNaarEconKenmerkenConverter</Type>
 <Private>1</Private>
 </Property>
@@ -28,8 +28,8 @@
 <Implementation><![CDATA[
 	Do ##super(aTestName)
 	
-	Set ..BlumNaarEconKenmerkenConverter = ##class(vhTest.Mock.WSimpl.Vhisie4.OCC.OCCService.OCCKenmerkenConverter.BlumNaarEconKenmerkenConverter).%New()
-	Set ..OCCKenmerkenConverter = ##class(WSimpl.Vhisie4.OCC.OCCService.OCCKenmerkenConverter).%New(..BlumNaarEconKenmerkenConverter)
+	Set ..BlumNaarEconKenmerkenConverterMock = ##class(vhTest.Mock.WSimpl.Vhisie4.OCC.OCCService.OCCKenmerkenConverter.BlumNaarEconKenmerkenConverter).%New()
+	Set ..OCCKenmerkenConverter = ##class(WSimpl.Vhisie4.OCC.OCCService.OCCKenmerkenConverter).%New(..BlumNaarEconKenmerkenConverterMock)
 ]]></Implementation>
 </Method>
 
@@ -125,24 +125,35 @@
 	Set OCCKenmerkenRequest = ##class(WS.Vhisie4.OCC.GeefNaarEconGeconverteerdeKenmerkenRequest).%New()
 	Set OCCKenmerkenRequest.BlumKenmerken = BlumKenmerken
 	
-	Set ..OCCKenmerkenConverter = ##class(WSimpl.Vhisie4.OCC.OCCService.OCCKenmerkenConverter).%New()
+	Do ..AssertVerwachtMethodCalls(BlumKenmerken)
+	
+	Set ..OCCKenmerkenConverter = ##class(WSimpl.Vhisie4.OCC.OCCService.OCCKenmerkenConverter).%New(..BlumNaarEconKenmerkenConverterMock)
 	#dim Resultaat As WS.Vhisie4.OCC.GeefNaarEconGeconverteerdeKenmerkenResponse = ..OCCKenmerkenConverter.ConverteerBlumKenmerkenNaarEconKenmerken(OCCKenmerkenRequest)
 	
 	Do $$$AssertEquals(Resultaat.EconKenmerken.Count(), 11)
-	Do $$$AssertEquals(Resultaat.EconKenmerken.GetAt("Data.Kenmerken.Corpusbreedte"), "600")
-	Do $$$AssertEquals(Resultaat.EconKenmerken.GetAt("Data.Kenmerken.Draagkracht"), ##class(DOM.PM.enu.LBXDraagkracht).Draagkracht40())
-	Do $$$AssertEquals(Resultaat.EconKenmerken.GetAt("Data.Kenmerken.Dwarsverdelingaantal"), "")
-	Do $$$AssertEquals(Resultaat.EconKenmerken.GetAt("Data.Kenmerken.Frontbevestiging"), ##class(DOM.PM.enu.LBXFrontBevestiging).EXPANDO())
-	Do $$$AssertEquals(Resultaat.EconKenmerken.GetAt("Data.Kenmerken.Geleidertechnologie"), ##class(DOM.PM.enu.LBXGeleiderTechnologie).BLUMOTION())
-	Do $$$AssertEquals(Resultaat.EconKenmerken.GetAt("Data.Kenmerken.Heeftzijstabilisering"), "false")
-	Do $$$AssertEquals(Resultaat.EconKenmerken.GetAt("Data.Kenmerken.Ladediepte"), ##class(DOM.PM.enu.LBXLadeDiepte).LadeDiepte500())
-	Do $$$AssertEquals(Resultaat.EconKenmerken.GetAt("Data.Kenmerken.Ladehoogte"), ##class(DOM.PM.enu.LBXLadeHoogte).M())
-	Do $$$AssertEquals(Resultaat.EconKenmerken.GetAt("Data.Kenmerken.Ladekleur"), ##class(DOM.PM.enu.LBXLadeKleur).Zijdewit())
-	;Do $$$AssertEquals(Resultaat.EconKenmerken.GetAt("Data.Kenmerken.Meenemerset"), ##class(APPS.PM.enu.LBXMeenemerSet).Zonder()) // TODO: Zie ConvertMeervoudigGebruik() in WSimpl.Vhisie4.OCC.OCCService.OCCKenmerkenConverter.BlumNaarEconKenmerkenConverter
-	Do $$$AssertEquals(Resultaat.EconKenmerken.GetAt("Data.Kenmerken.Toepassing"), ##class(DOM.PM.enu.LBXKlasse).Lade())
+	Do ..BlumNaarEconKenmerkenConverterMock.Verifieer()
 ]]></Implementation>
 </Method>
 
+<Method name="AssertVerwachtMethodCalls">
+<FormalSpec>BlumKenmerken:%ListOfObjects</FormalSpec>
+<Private>1</Private>
+<Implementation><![CDATA[
+	#dim BlumKenmerkenIterator As TECH.ListIterator = ##class(TECH.ListIterator).%New(BlumKenmerken)
+	#dim BlumKenmerk As WS.Vhisie4.OCC.dto.Kenmerk
+	#dim Count As %Integer = 1
+	
+	While (BlumKenmerkenIterator.HasNext()) {
+		Set BlumKenmerk = BlumKenmerkenIterator.Next()
+		Set EconKenmerk = ##class(WS.Vhisie4.OCC.dto.Kenmerk).%New()
+		Set EconKenmerk.Name = "Data.Kenmerken.Dummy"_Count
+		Set EconKenmerk.Value = "Whatever"
+		Do ..BlumNaarEconKenmerkenConverterMock.VerwachtMethodCall("ConvertBlumNaarEconKenmerk", BlumKenmerk).ExactAantalKeer(1).DanReturn(EconKenmerk)
+		Set Count = Count + 1
+	}
+]]></Implementation>
+</Method>
+
 <Method name="GeefRequestMetKenmerken">
 <FormalSpec>AantalKenmerken:%Integer,IsTestRequest:%Boolean=0</FormalSpec>
 <Private>1</Private>
@@ -165,7 +176,7 @@
 		Set Kenmerk.Value = ..#RandomKenmerkValue_Aantal
 		Do BlumKenmerken.Insert(Kenmerk)
 		
-		Do ..BlumNaarEconKenmerkenConverter.IndienMethodCall("ConvertBlumNaarEconKenmerk", Kenmerk).DanReturn(Kenmerk)
+		Do ..BlumNaarEconKenmerkenConverterMock.IndienMethodCall("ConvertBlumNaarEconKenmerk", Kenmerk).DanReturn(Kenmerk)
 	}
 	
 	Set OCCKenmerkenRequest.BlumKenmerken = BlumKenmerken