Index: vhUnitTest/Res/Perfion/Synchroniser/Vertalingen/VulPerfionTabel/Test.cls.xml
===================================================================
diff -u
--- vhUnitTest/Res/Perfion/Synchroniser/Vertalingen/VulPerfionTabel/Test.cls.xml	(revision 0)
+++ vhUnitTest/Res/Perfion/Synchroniser/Vertalingen/VulPerfionTabel/Test.cls.xml	(revision 61839)
@@ -0,0 +1,59 @@
+<?xml version="1.0" encoding="UTF-8"?>
+<Export generator="Cache" version="24">
+<Class name="vhUnitTest.Res.Perfion.Synchroniser.Vertalingen.VulPerfionTabel.Test">
+<Super>vhUnitTest.TestCase</Super>
+
+<Method name="Test met 0 vertalingen">
+<Implementation><![CDATA[
+	Set MockVertalingRepository = ##class(vhTest.Mock.Res.VertalingRepository).%New()
+	Set MockPerfionRepository = ##class(vhTest.Mock.Res.Perfion.Synchroniser.PerfionRepository).%New()
+	#dim VertalingenIterator As TECH.Iterator = ##class(vhTest.Utils.Res.Vertaling).MaakVertalingIterator(0)
+	
+	Do MockVertalingRepository.VerwachtMethodCall("GeefAlleVertalingenVoorPerfion").DanReturn(VertalingenIterator)
+	Do MockPerfionRepository.VerwachtMethodCall("MaakSleutelVoorPerfion",$$$ElkeWaarde).ExactAantalKeer(0)	
+	
+	Set Vertalingen = ##class(Res.Perfion.Synchroniser.Vertalingen).%New(,,MockVertalingRepository,,MockPerfionRepository)
+	Do Vertalingen.VulPerfionTabel()
+	
+	Do MockVertalingRepository.Verifieer()
+	Do MockPerfionRepository.Verifieer()
+]]></Implementation>
+</Method>
+
+<Method name="Test met 1 vertaling">
+<Implementation><![CDATA[
+	Set MockVertalingRepository = ##class(vhTest.Mock.Res.VertalingRepository).%New()
+	Set MockPerfionRepository = ##class(vhTest.Mock.Res.Perfion.Synchroniser.PerfionRepository).%New()
+	#dim VertalingenIterator As TECH.Iterator = ##class(vhTest.Utils.Res.Vertaling).MaakVertalingIterator(1)
+	
+	Do MockVertalingRepository.VerwachtMethodCall("GeefAlleVertalingenVoorPerfion").DanReturn(VertalingenIterator)
+	Do MockPerfionRepository.VerwachtMethodCall("MaakSleutelVoorPerfion",VertalingenIterator.Next().Intern).ExactAantalKeer(1)	
+	
+	Set Vertalingen = ##class(Res.Perfion.Synchroniser.Vertalingen).%New(,,MockVertalingRepository,,MockPerfionRepository)
+	Do Vertalingen.VulPerfionTabel()
+	
+	Do MockVertalingRepository.Verifieer()
+	Do MockPerfionRepository.Verifieer()
+]]></Implementation>
+</Method>
+
+<Method name="Test met 3 vertalingen">
+<Implementation><![CDATA[
+	Set MockVertalingRepository = ##class(vhTest.Mock.Res.VertalingRepository).%New()
+	Set MockPerfionRepository = ##class(vhTest.Mock.Res.Perfion.Synchroniser.PerfionRepository).%New()
+	#dim VertalingenIterator As TECH.Iterator = ##class(vhTest.Utils.Res.Vertaling).MaakVertalingIterator(3)
+	
+	Do MockVertalingRepository.VerwachtMethodCall("GeefAlleVertalingenVoorPerfion").DanReturn(VertalingenIterator)
+	Do MockPerfionRepository.VerwachtMethodCall("MaakSleutelVoorPerfion",VertalingenIterator.Next().Intern).ExactAantalKeer(3)	
+	
+	Set Vertalingen = ##class(Res.Perfion.Synchroniser.Vertalingen).%New(,,MockVertalingRepository,,MockPerfionRepository)
+	Do Vertalingen.VulPerfionTabel()
+	
+	Do MockVertalingRepository.Verifieer()
+	Do MockPerfionRepository.Verifieer()
+]]></Implementation>
+</Method>
+</Class>
+
+
+</Export>
Index: vhTest/Utils/Res/Vertaling.cls.xml
===================================================================
diff -u
--- vhTest/Utils/Res/Vertaling.cls.xml	(revision 0)
+++ vhTest/Utils/Res/Vertaling.cls.xml	(revision 61839)
@@ -0,0 +1,44 @@
+<?xml version="1.0" encoding="UTF-8"?>
+<Export generator="Cache" version="24">
+<Class name="vhTest.Utils.Res.Vertaling">
+<Super>TECH.RegisteredObject</Super>
+
+<Method name="MaakVertalingObject">
+<ClassMethod>1</ClassMethod>
+<FormalSpec>Groep:%String,Intern:%String,TextType:%String="L",Taal:%String="N",Vertaling:%String</FormalSpec>
+<Private>1</Private>
+<ReturnType>Res.Vertaling</ReturnType>
+<Implementation><![CDATA[
+	Set VertalingObject = ##class(Res.Vertaling).%New()
+	Do VertalingObject.TaalSetObjectId(Taal)
+ 	Do VertalingObject.GroepSetObjectId(Groep)
+ 	Set VertalingObject.Intern=Intern
+ 	Do VertalingObject.TypeSetObjectId(TextType)
+ 	Set VertalingObject.Vertaling=Vertaling
+ 	Quit VertalingObject
+]]></Implementation>
+</Method>
+
+<Method name="MaakVertalingIterator">
+<ClassMethod>1</ClassMethod>
+<FormalSpec>AantalVertalingen:TECH.Integer</FormalSpec>
+<ReturnType>TECH.Iterator</ReturnType>
+<Implementation><![CDATA[
+	#dim Vertaling As Res.Vertaling 
+	#dim VertalingenLijst As list Of Res.Vertaling = ##class(%ListOfObjects).%New()
+	
+	for i = 0:1:AantalVertalingen-1
+	{
+		Set Vertaling = ..MaakVertalingObject("TestGroep","TestSleutel","TestType","TestTaal","TestVertaling")
+		Do VertalingenLijst.Insert(Vertaling)
+	}
+	
+	Set VertalingenIterator = ##class(TECH.ListIterator).%New(VertalingenLijst)
+
+	Quit VertalingenIterator
+]]></Implementation>
+</Method>
+</Class>
+
+
+</Export>