Index: vhUnitTest/AXimpl/ResponseProcessor/Verwerk/Test.cls.xml
===================================================================
diff -u -r42609 -r42612
--- vhUnitTest/AXimpl/ResponseProcessor/Verwerk/Test.cls.xml	(.../Test.cls.xml)	(revision 42609)
+++ vhUnitTest/AXimpl/ResponseProcessor/Verwerk/Test.cls.xml	(.../Test.cls.xml)	(revision 42612)
@@ -1,18 +1,90 @@
 <?xml version="1.0" encoding="UTF-8"?>
 <Export generator="Cache" version="24">
 <Class name="vhUnitTest.AXimpl.ResponseProcessor.Verwerk.Test">
-<Super>vhUnitTest.AXimpl.Processor.Verwerk.TestBase</Super>
+<Super>vhUnitTest.TestCase</Super>
 
-<Parameter name="Envelope">
-<Type>%String</Type>
-<Default>AXif.Dynamics.CustomerOut.Envelope</Default>
-</Parameter>
+<Property name="FileAPI">
+<Type>TECH.File.FileAPI</Type>
+<Private>1</Private>
+</Property>
 
-<Parameter name="ErrorPath">
-<Type>%String</Type>
-<Default>AX_IF_OUT_ErrorPath</Default>
-</Parameter>
+<Property name="XmlCorrelater">
+<Type>TECH.XMLCorrelater</Type>
+<Private>1</Private>
+</Property>
 
+<Property name="EventRaiser">
+<Type>AXimpl.EventRaiser</Type>
+<Private>1</Private>
+</Property>
+
+<Method name="OnBeforeOneTest">
+<FormalSpec>aTestName:%String</FormalSpec>
+<Implementation><![CDATA[
+	do ##super()
+	set ..FileAPI = ##class(vhTest.Fake.TECH.File.FileAPI).%New()
+	set ..XmlCorrelater = ##class(vhTest.Fake.TECH.XMLCorrelater).%New()
+	set ..EventRaiser = ##class(vhTest.Fake.AXimpl.EventRaiser).%New()
+]]></Implementation>
+</Method>
+
+<Method name="Test: Standaard gedrag">
+<Implementation><![CDATA[
+	#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("DeleteFile",Filename)
+	
+	#dim AifMessage = ##class(AXif.Dynamics.CustomerOut.Envelope).%New()
+	set XmlCorrelaterStub = ##class(vhTest.Mock.TECH.XMLCorrelater).%New()
+	do XmlCorrelaterStub.IndienMethodCall("GeefObjectVanBestand",Filename,"AXif.Dynamics.CustomerOut.Envelope","Envelope").DanReturn(AifMessage)
+	
+	set EventRaiserMock = ##class(vhTest.Mock.AXimpl.EventRaiser).%New()
+	do EventRaiserMock.VerwachtMethodCall("RaiseResponseReceivedEvent",AifMessage,..Matches.Stream(Stream))
+	
+	set ConfigOutStub = ##class(vhTest.Mock.AXimpl.ConfigOut).%New()
+	do ConfigOutStub.IndienMethodCall("GetEnvelopeViaSubPath", $$$ElkeWaarde).DanReturn(AifMessage.%ClassName(1))
+	
+	#dim ResponseProcesser As AXimpl.ResponseProcessor = ..InitResponseProcessor(FileAPIMock,XmlCorrelaterStub,EventRaiserMock,ConfigOutStub)
+	do ResponseProcesser.Verwerk(Filename)
+	
+	do FileAPIMock.Verifieer()
+	do EventRaiserMock.Verifieer()
+]]></Implementation>
+</Method>
+
+<Method name="Test: Bestand kan niet gecorreleerd worden">
+<Implementation><![CDATA[
+	do ##class(TECH.Config.ConfigMgr).Instance().ZetString("AX_IF_OUT_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,"AXif.Dynamics.CustomerOut.Envelope","Envelope").DanException(##class(TECH.Exceptions.StatusException).%New(##class(TECH.enu.ExceptionCode).GeneralError(),"",$$$ERROR()))
+	
+	set EventRaiserMock = ##class(vhTest.Mock.AXimpl.EventRaiser).%New()
+	do EventRaiserMock.VerwachtMethodCall("RaiseCorruptedResponseReceivedEvent",Filename,..Matches.Stream(Stream))
+	
+	set ConfigOutStub = ##class(vhTest.Mock.AXimpl.ConfigOut).%New()
+	do ConfigOutStub.IndienMethodCall("GetEnvelopeViaSubPath", Filename).DanReturn("%CacheString")
+	
+	#dim ResponseProcesser As AXimpl.ResponseProcessor = ..InitResponseProcessor(FileAPIMock,XmlCorrelaterStub,EventRaiserMock,ConfigOutStub)
+	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.EventRaiser=..EventRaiser,RequestGeneratorConfigStub:AXimpl.ConfigOut</FormalSpec>
 <Private>1</Private>