Index: AXimpl/ResponseProcessor.cls.xml
===================================================================
diff -u -r42610 -r42612
--- AXimpl/ResponseProcessor.cls.xml	(.../ResponseProcessor.cls.xml)	(revision 42610)
+++ AXimpl/ResponseProcessor.cls.xml	(.../ResponseProcessor.cls.xml)	(revision 42612)
@@ -18,7 +18,7 @@
 <Private>1</Private>
 </Property>
 
-<Property name="ConfigOut">
+<Property name="RequestGeneratorConfig">
 <Type>AXimpl.ConfigOut</Type>
 <Private>1</Private>
 </Property>
@@ -33,7 +33,7 @@
 	set ..FileAPI = $$$Inject(FileAPI,##class(TECH.File.impl.FileAPI).%New())
 	set ..XmlCorrelater = $$$Inject(XmlCorrelater,##class(TECH.XMLCorrelater).%New())
 	set ..EventRaiser = $$$Inject(EventRaiser,##class(AXimpl.EventRaiser).%New())
-	set ..ConfigOut = $$$Inject(RequestGeneratorConfig,##class(AXimpl.ConfigOut).%New())
+	set ..RequestGeneratorConfig = $$$Inject(RequestGeneratorConfig,##class(AXimpl.ConfigOut).%New())
 	quit $$$OK
 ]]></Implementation>
 </Method>
@@ -42,7 +42,7 @@
 <FormalSpec>FullFilename:%String</FormalSpec>
 <Implementation><![CDATA[
 	try {
-		#dim KlasseNaam As %String = ..ConfigOut.GetEnvelopeViaSubPath(##class(TECH.StringUtils).Replace(FullFilename,##class(TECH.Config.ConfigMgr).Instance().GeefString("AX_IF_OUT_RequestPath"),""))
+		#dim KlasseNaam As %String = ..RequestGeneratorConfig.GetEnvelopeViaSubPath(##class(TECH.StringUtils).Replace(FullFilename,##class(TECH.Config.ConfigMgr).Instance().GeefString("AX_IF_OUT_RequestPath"),""))
 		#dim Message As %CacheString = ..XmlCorrelater.GeefObjectVanBestand(FullFilename,KlasseNaam,"Envelope")
 		do ..EventRaiser.RaiseResponseReceivedEvent(Message,..FileAPI.GeefFileReader(FullFilename).GeefStream())
 		
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>
FishEye: Tag 42612 refers to a dead (removed) revision in file `vhUnitTest/AXimpl/Processor/Verwerk/TestBase.cls.xml'.
FishEye: No comparison available.  Pass `N' to diff?