Index: zJBLTestZoekKenmerken.mac.rou
===================================================================
diff -u
--- zJBLTestZoekKenmerken.mac.rou	(revision 0)
+++ zJBLTestZoekKenmerken.mac.rou	(revision 1579)
@@ -0,0 +1,43 @@
+Test
+ 
+	w "Zoek OL : prnr 315014 en 557372"
+	set aantalkeer = 10
+	Set totaaltijd = 0
+	for i=1:1:aantalkeer {
+		Set PRNrs = ##class(%ListOfDataTypes).%New()
+		Do PRNrs.Insert(315014)
+		Do PRNrs.Insert(557372)
+		Set KenmerkGroepen = ##class(%ListOfDataTypes).%New()
+		Do KenmerkGroepen.Insert("OL")
+		
+	 	Do StartTimer^vhLib
+		Set Result = ##class(APPS.PM.KenmerkenService).%New().GeefProductKenmerken(PRNrs,KenmerkGroepen)	
+		Do StopTimer^vhLib
+		Set Time = $$GetInterval^vhLib
+		//w Time,!
+		Set totaaltijd = totaaltijd + $$GetInterval^vhLib
+	}
+	
+	w $C(13,10),"gemiddelde : ",(totaaltijd/aantalkeer),!
+	
+	
+	w "Zoek alle groepen : prnr 315014 en 557372"
+	set aantalkeer = 10
+	Set totaaltijd = 0
+	for i=1:1:aantalkeer {
+		Set PRNrs = ##class(%ListOfDataTypes).%New()
+		Do PRNrs.Insert(315014)
+		Do PRNrs.Insert(557372)
+		Set KenmerkGroepen = ##class(%ListOfDataTypes).%New()
+		
+	 	Do StartTimer^vhLib
+		Set Result = ##class(APPS.PM.KenmerkenService).%New().GeefProductKenmerken(PRNrs,KenmerkGroepen)	
+		//w Result.Kenmerken.GetAt(1).KenmerkenGroepen.GetAt(1).Sets.GetAt(1).Kenmerken.GetAt(5).Naam,!
+		Do StopTimer^vhLib
+		Set Time = $$GetInterval^vhLib
+		//w Time,!
+		Set totaaltijd = totaaltijd + $$GetInterval^vhLib
+	}
+	
+	w $C(13,10),"gemiddelde : ",(totaaltijd/aantalkeer),!
+	
\ No newline at end of file