Index: vhUnitTest/Res/VertalingRepository/Test.cls.xml
===================================================================
diff -u -r60854 -r61828
--- vhUnitTest/Res/VertalingRepository/Test.cls.xml	(.../Test.cls.xml)	(revision 60854)
+++ vhUnitTest/Res/VertalingRepository/Test.cls.xml	(.../Test.cls.xml)	(revision 61828)
@@ -37,6 +37,44 @@
 ]]></Implementation>
 </Method>
 
+<Method name="Test: GeefAlleVertalingenVoorPerfion gebruikt de juiste query en parameters">
+<Implementation><![CDATA[
+	#dim Filter As %String = "Groep = ? OR Groep = ?"
+	#dim TableName As %String = "Res.Vertaling"
+	#dim Statement As %String = "SELECT ID FROM " _TableName _" WHERE " _Filter
+	#dim Parameters As %List = $ListBuild("ALG", "TT")
+	Set DynamicQuery = ##class(TECH.DynamicQuery).%New(Statement,Parameters)
+	#dim QueryAPIMock As vhTest.Mock.TECH.Query.QueryAPI = ##class(vhTest.Mock.TECH.Query.QueryAPI).%New("")
+	Do QueryAPIMock.VerwachtMethodCall("GetResultSet",..Matches.Object((DynamicQuery))).DanReturn($$$True)
+	Set VertalingRepository = ##class(Res.VertalingRepository).%New(,QueryAPIMock)
+	
+	Do VertalingRepository.GeefAlleVertalingenVoorPerfion()
+	
+	Do QueryAPIMock.Verifieer()
+]]></Implementation>
+</Method>
+
+<Method name="aTest: VerwijderVertalingViaSleutel gebruikt de juiste query en parameters">
+<Implementation><![CDATA[
+	#dim Sleutel As %String = "DummySleutel"
+	#dim Filter As %String = "Intern = ?"
+	#dim TableName As %String = "Res.Vertaling"
+	#dim Statement As %String = "SELECT ID FROM " _TableName _" WHERE " _Filter
+	#dim Parameters As %List = $ListBuild(Sleutel)
+	Set DynamicQuery = ##class(TECH.DynamicQuery).%New(Statement,Parameters)
+	
+	#dim QueryAPIMock As vhTest.Mock.TECH.Query.QueryAPI = ##class(vhTest.Mock.TECH.Query.QueryAPI).%New("")
+	Do QueryAPIMock.VerwachtMethodCall("GetResultSet",..Matches.Object((DynamicQuery))).DanReturn($$$True)
+	#dim GatewayMock As vhTest.Mock.TECH.Persistent.impl.Gateway = ##class(vhTest.Mock.TECH.Persistent.impl.Gateway).%New("")
+	Do GatewayMock.VerwachtMethodCall("DeleteId","DummyID").DanReturn($$$True)
+	Set VertalingRepository = ##class(Res.VertalingRepository).%New(GatewayMock,QueryAPIMock)
+	
+	Do VertalingRepository.VerwijderVertalingViaSleutel(Sleutel)
+	
+	Do QueryAPIMock.Verifieer()
+]]></Implementation>
+</Method>
+
 <Method name="Test: VerwijderVertaling gebruikt de juiste query en parameters">
 <Implementation><![CDATA[
 	#dim Groep As %String = "RandomGroep"