Index: vhUnitTest/APPS/TRANSP/Stapeling/impl/ColliOpPalletStapelaar/Optibox/ResponseProcessor/Verwerk/Test.cls.xml
===================================================================
diff -u -r36219 -r36424
--- vhUnitTest/APPS/TRANSP/Stapeling/impl/ColliOpPalletStapelaar/Optibox/ResponseProcessor/Verwerk/Test.cls.xml	(.../Test.cls.xml)	(revision 36219)
+++ vhUnitTest/APPS/TRANSP/Stapeling/impl/ColliOpPalletStapelaar/Optibox/ResponseProcessor/Verwerk/Test.cls.xml	(.../Test.cls.xml)	(revision 36424)
@@ -110,6 +110,38 @@
 ]]></Implementation>
 </Method>
 
+<Method name="Test: Indien niet alle pakketten geladen zijn wordt een error event gegooid">
+<Implementation><![CDATA[
+	#dim Stream As %Stream.Object = ..XmlStream()
+	#dim FileReader As TECH.File.FileReader = ##class(vhTest.Fake.TECH.File.FileReader).%New(Stream)
+
+	#dim FileUtilsMock As vhTest.Mock.TECH.File.impl.FileUtils = ##class(vhTest.Mock.TECH.File.impl.FileUtils).%New()
+	#dim Filename As %String = "E:\File.xml"
+	
+	set FileAPIMock = ##class(vhTest.Mock.TECH.File.FileAPI).%New()
+	do FileAPIMock.IndienMethodCall("GeefFileReader",Filename).DanReturn(FileReader)
+	do FileAPIMock.IndienMethodCall("GeefFileUtils").DanReturn(FileUtilsMock)
+	do FileUtilsMock.IndienMethodCall("Delete",Filename).DanDoeNiks()
+	
+	#dim Message As APPS.TRANSP.Stapeling.impl.ColliOpPalletStapelaar.Optibox.XML.Response.cubeiq = ##class(APPS.TRANSP.Stapeling.impl.ColliOpPalletStapelaar.Optibox.XML.Response.cubeiq).%New()
+	#dim UnloadedPackage As APPS.TRANSP.Stapeling.impl.ColliOpPalletStapelaar.Optibox.XML.Response.unloadedpackage = ##class(APPS.TRANSP.Stapeling.impl.ColliOpPalletStapelaar.Optibox.XML.Response.unloadedpackage).%New()
+	Do Message.unloadedpackages.Insert(UnloadedPackage)
+
+	set XmlCorrelaterStub = ##class(vhTest.Mock.TECH.XMLCorrelater).%New()
+	do XmlCorrelaterStub.IndienMethodCall("GeefObjectVanBestand","E:\File.xml","APPS.TRANSP.Stapeling.impl.ColliOpPalletStapelaar.Optibox.XML.Response.cubeiq", "cubeiq").DanReturn(Message)
+	
+	set EventRaiserMock = ##class(vhTest.Mock.APPS.TRANSP.Stapeling.impl.ColliOpPalletStapelaar.Optibox.EventRaiser).%New()
+	do EventRaiserMock.IndienMethodCall("RaiseResponseRecievedEvent",$$$ElkeWaarde).DanDoeNiks()
+
+	do EventRaiserMock.VerwachtMethodCall("RaiseCorruptedResponseReceivedEvent",Filename, ..Matches.Stream(Stream))
+
+	#dim ResponseProcesser As APPS.TRANSP.Stapeling.impl.ColliOpPalletStapelaar.Optibox.ResponseProcessor = ..InitResponseProcessor(FileAPIMock,XmlCorrelaterStub,EventRaiserMock)
+	do ResponseProcesser.Verwerk(Filename)
+	
+	do EventRaiserMock.Verifieer()
+]]></Implementation>
+</Method>
+
 <Method name="InitResponseProcessor">
 <FormalSpec>FileAPI:TECH.File.FileAPI=..FileAPI,XmlCorrelater:TECH.XMLCorrelater=..XmlCorrelater,EventRaiser:AXimpl.AifMessage.EventRaiser=..EventRaiser</FormalSpec>
 <Private>1</Private>