Index: vhUnitTest/AXimpl/AifMessage/ResponseProcessor/Verwerk/Test.cls.xml
===================================================================
diff -u -r35230 -r35231
--- vhUnitTest/AXimpl/AifMessage/ResponseProcessor/Verwerk/Test.cls.xml	(.../Test.cls.xml)	(revision 35230)
+++ vhUnitTest/AXimpl/AifMessage/ResponseProcessor/Verwerk/Test.cls.xml	(.../Test.cls.xml)	(revision 35231)
@@ -30,11 +30,9 @@
 
 <Method name="Test: Standaard gedrag">
 <Implementation><![CDATA[
-	set Stream = ##class(%GlobalCharacterStream).%New()
-	do Stream.WriteLine("L1")
-	
+	#dim Stream As %Stream.Object = ..XmlStream()
 	#dim File As TECH.File.FileReader = ##class(vhTest.Fake.TECH.File.FileReader).%New(Stream)
-	#dim Filename As %String = "E:\file.txt"
+	#dim Filename As %String = "E:\File.txt"
 	
 	set FileAPIMock = ##class(vhTest.Mock.TECH.File.FileAPI).%New()
 	do FileAPIMock.VerwachtMethodCall("GeefFileReader",Filename).DanReturn(File)
@@ -55,13 +53,51 @@
 ]]></Implementation>
 </Method>
 
+<Method name="Test: Bestand kan niet gecorreleerd worden">
+<Implementation><![CDATA[
+	do ##class(TECH.Config.ConfigMgr).Instance().ZetString("AX_AIF_ErrorPath","E:\Errors",..#Applicatie)
+	
+	#dim Stream As %Stream.Object = ..XmlStream()
+	#dim File As TECH.File.FileReader = ##class(vhTest.Fake.TECH.File.FileReader).%New(Stream)
+	#dim Filename As %String = "E:\File.txt"
+	
+	set FileAPIMock = ##class(vhTest.Mock.TECH.File.FileAPI).%New()
+	do FileAPIMock.VerwachtMethodCall("GeefFileReader",Filename).DanReturn(File)
+	do FileAPIMock.VerwachtMethodCall("MoveFile",Filename,"E:\Errors\File.txt")
+	
+	set XmlCorrelaterStub = ##class(vhTest.Mock.TECH.XMLCorrelater).%New()
+	do XmlCorrelaterStub.IndienMethodCall("GeefObjectVanBestand",Filename,"AXaif.Message.Envelope","Envelope").DanException(##class(TECH.Exceptions.StatusException).%New(##class(TECH.enu.ExceptionCode).GeneralError(),"",$$$ERROR()))
+	
+	set EventRaiserMock = ##class(vhTest.Mock.AXimpl.AifMessage.EventRaiser).%New()
+	do EventRaiserMock.VerwachtMethodCall("RaiseCorruptedResponseReceivedEvent",Filename,..Matches.Stream(Stream))
+	
+	#dim ResponseProcesser As AXimpl.AifMessage.ResponseProcessor = ..InitResponseProcessor(FileAPIMock,XmlCorrelaterStub,EventRaiserMock)
+	do ResponseProcesser.Verwerk(Filename)
+	
+	do FileAPIMock.Verifieer()
+	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>
 <ReturnType>AXimpl.AifMessage.ResponseProcessor</ReturnType>
 <Implementation><![CDATA[	quit ##class(AXimpl.AifMessage.ResponseProcessor).%New(FileAPI,XmlCorrelater,EventRaiser)
 ]]></Implementation>
 </Method>
+
+<Method name="XmlStream">
+<Private>1</Private>
+<ReturnType>%Stream.Object</ReturnType>
+<Implementation><![CDATA[
+	set Stream = ##class(%GlobalCharacterStream).%New()
+	do Stream.WriteLine("<?xml version=""1.0"" encoding=""UTF-8""?>")
+	do Stream.WriteLine("<Envelope xmlns=""http://schemas.microsoft.com/dynamics/2011/01/documents/Message"">")
+	do Stream.WriteLine("</Envelope>")
+	quit Stream
+]]></Implementation>
+</Method>
 </Class>