Index: vhUnitTest/AXimpl/ResponseProcessor/Verwerk/Test.cls.xml
===================================================================
diff -u -r42608 -r42609
--- vhUnitTest/AXimpl/ResponseProcessor/Verwerk/Test.cls.xml	(.../Test.cls.xml)	(revision 42608)
+++ vhUnitTest/AXimpl/ResponseProcessor/Verwerk/Test.cls.xml	(.../Test.cls.xml)	(revision 42609)
@@ -1,90 +1,18 @@
 <?xml version="1.0" encoding="UTF-8"?>
 <Export generator="Cache" version="24">
 <Class name="vhUnitTest.AXimpl.ResponseProcessor.Verwerk.Test">
-<Super>vhUnitTest.TestCase</Super>
+<Super>vhUnitTest.AXimpl.Processor.Verwerk.TestBase</Super>
 
-<Property name="FileAPI">
-<Type>TECH.File.FileAPI</Type>
-<Private>1</Private>
-</Property>
+<Parameter name="Envelope">
+<Type>%String</Type>
+<Default>AXif.Dynamics.CustomerOut.Envelope</Default>
+</Parameter>
 
-<Property name="XmlCorrelater">
-<Type>TECH.XMLCorrelater</Type>
-<Private>1</Private>
-</Property>
+<Parameter name="ErrorPath">
+<Type>%String</Type>
+<Default>AX_IF_OUT_ErrorPath</Default>
+</Parameter>
 
-<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>