Index: vhUnitTest/AXimpl/ResponseProcessor/Verwerk/Test.cls.xml
===================================================================
diff -u
--- vhUnitTest/AXimpl/ResponseProcessor/Verwerk/Test.cls.xml	(revision 0)
+++ vhUnitTest/AXimpl/ResponseProcessor/Verwerk/Test.cls.xml	(revision 42279)
@@ -0,0 +1,104 @@
+<?xml version="1.0" encoding="UTF-8"?>
+<Export generator="Cache" version="24">
+<Class name="vhUnitTest.AXimpl.ResponseProcessor.Verwerk.Test">
+<Super>vhUnitTest.TestCase</Super>
+
+<Property name="FileAPI">
+<Type>TECH.File.FileAPI</Type>
+<Private>1</Private>
+</Property>
+
+<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.AifMessage.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)
+	
+	set AifMessage = ##class(AXaif.Message.Envelope).%New()
+	set XmlCorrelaterStub = ##class(vhTest.Mock.TECH.XMLCorrelater).%New()
+	do XmlCorrelaterStub.IndienMethodCall("GeefObjectVanBestand",Filename,"AXaif.Message.Envelope","Envelope").DanReturn(AifMessage)
+	
+	set EventRaiserMock = ##class(vhTest.Mock.AXimpl.AifMessage.EventRaiser).%New()
+	do EventRaiserMock.VerwachtMethodCall("RaiseResponseReceivedEvent",AifMessage,..Matches.Stream(Stream))
+	
+	#dim ResponseProcesser As AXimpl.ResponseProcessor = ..InitResponseProcessor(FileAPIMock,XmlCorrelaterStub,EventRaiserMock)
+	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_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.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.EventRaiser=..EventRaiser</FormalSpec>
+<Private>1</Private>
+<ReturnType>AXimpl.ResponseProcessor</ReturnType>
+<Implementation><![CDATA[	quit ##class(AXimpl.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>
+
+
+</Export>
FishEye: Tag 42279 refers to a dead (removed) revision in file `vhUnitTest/AXimpl/AifMessage/ResponseProcessor/Verwerk/Test.cls.xml'.
FishEye: No comparison available.  Pass `N' to diff?