Index: vhUnitTest/APPS/Halux/common/impl/BatchService/VerwijderToeleveringenUitBatches/BatchServiceMock.cls.xml
===================================================================
diff -u
--- vhUnitTest/APPS/Halux/common/impl/BatchService/VerwijderToeleveringenUitBatches/BatchServiceMock.cls.xml	(revision 0)
+++ vhUnitTest/APPS/Halux/common/impl/BatchService/VerwijderToeleveringenUitBatches/BatchServiceMock.cls.xml	(revision 57038)
@@ -0,0 +1,22 @@
+<?xml version="1.0" encoding="UTF-8"?>
+<Export generator="Cache" version="24">
+<Class name="vhUnitTest.APPS.Halux.common.impl.BatchService.VerwijderToeleveringenUitBatches.BatchServiceMock">
+<Super>APPS.Halux.common.impl.BatchService,Tools.Mock.MockClassBase</Super>
+
+<UDLText name="T">
+<Content><![CDATA[
+// Alle nodige methods mogen mockable gemaakt worden, behalve de te testen method VerwijderToeleveringenUitBatches() 
+
+]]></Content>
+</UDLText>
+
+<Method name="GeefBatch">
+<FormalSpec>BatchID:%Integer</FormalSpec>
+<ReturnType>APPS.Halux.common.Batch</ReturnType>
+<Implementation><![CDATA[	quit ..VerwerkMethodCall("GeefBatch",BatchID)
+]]></Implementation>
+</Method>
+</Class>
+
+
+</Export>
Index: vhUnitTest/APPS/Halux/common/impl/BatchService/VerwijderToeleveringenUitBatches/Test.cls.xml
===================================================================
diff -u
--- vhUnitTest/APPS/Halux/common/impl/BatchService/VerwijderToeleveringenUitBatches/Test.cls.xml	(revision 0)
+++ vhUnitTest/APPS/Halux/common/impl/BatchService/VerwijderToeleveringenUitBatches/Test.cls.xml	(revision 57038)
@@ -0,0 +1,94 @@
+<?xml version="1.0" encoding="UTF-8"?>
+<Export generator="Cache" version="24">
+<Class name="vhUnitTest.APPS.Halux.common.impl.BatchService.VerwijderToeleveringenUitBatches.Test">
+<Super>vhUnitTest.TestCase</Super>
+
+<Method name="Test: Gegeven toelevering wordt gewist uit Batch">
+<Implementation><![CDATA[
+	Set BatchMock = ##class(vhTest.Mock.APPS.Halux.common.Batch).%New()
+	Do BatchMock.VerwachtMethodCall("GeefID").DanReturn("UT_12345")
+	Do BatchMock.VerwachtMethodCall("IsReedsGestart").DanReturn($$$False)
+	Do BatchMock.VerwachtMethodCall("VerwijderToeleveringViaID","222222").DanDoeNiks()
+	Do BatchMock.VerwachtMethodCall("Save",).DanDoeNiks()
+	
+	Set BatchServiceStub = ##class(vhUnitTest.APPS.Halux.common.impl.BatchService.VerwijderToeleveringenUitBatches.BatchServiceMock).%New()
+	Do BatchServiceStub.IndienMethodCall("GeefBatch","UT_12345").DanReturn(BatchMock)
+	#dim BatchService As APPS.Halux.common.impl.BatchService = BatchServiceStub   ; De te testen method "VerwijderToeleveringenUitBatches" staat op dezelfde klasse als de uit te mocken method "GeefBatch".
+	
+	#dim TeVerwijderenToeleveringenInBatch As %ArrayOfDataTypes = ..GeefTeVerwijderenToeleveringenInBatch()
+	Do BatchService.VerwijderToeleveringenUitBatches(TeVerwijderenToeleveringenInBatch)
+	
+	Do BatchMock.Verifieer()
+]]></Implementation>
+</Method>
+
+<Method name="Test: Batch reeds gestart, dan geen Verwijder-call uitvoeren">
+<Implementation><![CDATA[
+	Set BatchMock = ##class(vhTest.Mock.APPS.Halux.common.Batch).%New()
+	Do BatchMock.VerwachtMethodCall("GeefID").DanReturn("UT_12345")
+	Do BatchMock.VerwachtMethodCall("IsReedsGestart").DanReturn($$$True)
+	Do BatchMock.VerwachtMethodCall("VerwijderToeleveringViaID",$$$ElkeWaarde).ExactAantalKeer(0)
+	
+	Set BatchServiceStub = ##class(vhUnitTest.APPS.Halux.common.impl.BatchService.VerwijderToeleveringenUitBatches.BatchServiceMock).%New()
+	Do BatchServiceStub.IndienMethodCall("GeefBatch","UT_12345").DanReturn(BatchMock)
+	#dim BatchService As APPS.Halux.common.impl.BatchService = BatchServiceStub
+	
+	#dim TeVerwijderenToeleveringenInBatch As %ArrayOfDataTypes = ..GeefTeVerwijderenToeleveringenInBatch()
+	Do BatchService.VerwijderToeleveringenUitBatches(TeVerwijderenToeleveringenInBatch)
+	
+	Do BatchMock.Verifieer()
+]]></Implementation>
+</Method>
+
+<Method name="Test: Combinatie van 1 batch gestart en 1 batch nog niet">
+<Implementation><![CDATA[
+	Set BatchMock = ##class(vhTest.Mock.APPS.Halux.common.Batch).%New()
+	Do BatchMock.VerwachtMethodCall("GeefID").DanReturn("UT_12345")
+	Do BatchMock.VerwachtMethodCall("IsReedsGestart").DanReturn($$$False)
+	Do BatchMock.VerwachtMethodCall("VerwijderToeleveringViaID","222222").DanDoeNiks()
+	Do BatchMock.VerwachtMethodCall("Save",).DanDoeNiks()
+
+	Set BatchMockGestart = ##class(vhTest.Mock.APPS.Halux.common.Batch).%New()
+	Do BatchMockGestart.VerwachtMethodCall("GeefID").DanReturn("UT_12346")
+	Do BatchMockGestart.VerwachtMethodCall("IsReedsGestart").DanReturn($$$True)
+	Do BatchMockGestart.VerwachtMethodCall("VerwijderToeleveringViaID",$$$ElkeWaarde).ExactAantalKeer(0)
+	
+	Set BatchServiceStub = ##class(vhUnitTest.APPS.Halux.common.impl.BatchService.VerwijderToeleveringenUitBatches.BatchServiceMock).%New()
+	Do BatchServiceStub.IndienMethodCall("GeefBatch","UT_12345").DanReturn(BatchMock)
+	Do BatchServiceStub.IndienMethodCall("GeefBatch","UT_12346").DanReturn(BatchMockGestart)
+	#dim BatchService As APPS.Halux.common.impl.BatchService = BatchServiceStub
+	
+	#dim TeVerwijderenToeleveringenInBatch As %ArrayOfDataTypes = ..GeefTeVerwijderenToeleveringenInBatch2stuks()
+	Do BatchService.VerwijderToeleveringenUitBatches(TeVerwijderenToeleveringenInBatch)
+	
+	Do BatchMock.Verifieer()
+	Do BatchMockGestart.Verifieer()
+]]></Implementation>
+</Method>
+
+<Method name="GeefTeVerwijderenToeleveringenInBatch">
+<Private>1</Private>
+<ReturnType>%ArrayOfDataTypes</ReturnType>
+<Implementation><![CDATA[
+	Set TeVerwijderenToeleveringenInBatch = ##class(%ArrayOfDataTypes).%New()
+	Do TeVerwijderenToeleveringenInBatch.SetAt("UT_12345", "222222")
+	
+	Quit TeVerwijderenToeleveringenInBatch
+]]></Implementation>
+</Method>
+
+<Method name="GeefTeVerwijderenToeleveringenInBatch2stuks">
+<Private>1</Private>
+<ReturnType>%ArrayOfDataTypes</ReturnType>
+<Implementation><![CDATA[
+	Set TeVerwijderenToeleveringenInBatch = ##class(%ArrayOfDataTypes).%New()
+	Do TeVerwijderenToeleveringenInBatch.SetAt("UT_12345", "222222")
+	Do TeVerwijderenToeleveringenInBatch.SetAt("UT_12346", "222223")
+	
+	Quit TeVerwijderenToeleveringenInBatch
+]]></Implementation>
+</Method>
+</Class>
+
+
+</Export>