Index: vhUnitTest/AXimpl/AifMessage/EventHandler/ResponseLogger/Log/Test.cls.xml
===================================================================
diff -u -r35255 -r35386
--- vhUnitTest/AXimpl/AifMessage/EventHandler/ResponseLogger/Log/Test.cls.xml	(.../Test.cls.xml)	(revision 35255)
+++ vhUnitTest/AXimpl/AifMessage/EventHandler/ResponseLogger/Log/Test.cls.xml	(.../Test.cls.xml)	(revision 35386)
@@ -3,31 +3,27 @@
 <Class name="vhUnitTest.AXimpl.AifMessage.EventHandler.ResponseLogger.Log.Test">
 <Super>vhUnitTest.TestCase</Super>
 
-<Method name="Test">
+<Method name="Test: Standaard gedrag">
 <Implementation><![CDATA[
 	do ##class(vhTest.Fake.TECH.DateTime.DateTimeAPI).Activeer()
 	
+	#dim StoredMessage As AXdata.AifMessage.Message = ..GetStoredMessage()
 	
-	set StoredMessage = ##class(AXdata.AifMessage.Message).%New()
-	set StoredMessage.Command = "SalesInvoice/Create"
-	set StoredMessage.Action = "http://schemas.microsoft.com/dynamics/2008/01/services/GeneralJournalService/create"
-	set StoredMessage.Status = "Pending"
-	set StoredMessage.Request.GUID = "{123456-ABC-1234567}"
-	set StoredMessage.Request.TimeStamp = "2011-06-30 09:00:00"
-	do StoredMessage.Request.Stream.Write("<?xml version=""1.0"" encoding=""UTF-8""?> ... Request")
-			
 	set MessageRepositoryMock = ##class(vhTest.Mock.AX.AifMessage.MessageRepository).%New()
 	do MessageRepositoryMock.VerwachtMethodCall("GeefViaRequestGuid","{123456-ABC-1234567}").DanReturn(StoredMessage)
 	do MessageRepositoryMock.VerwachtMethodCall("Bewaar",StoredMessage)
 	
+	set FailedMessageRepositoryMock = ##class(vhTest.Mock.AX.AifMessage.FailedMessageRepository).%New()
+	do FailedMessageRepositoryMock.VerwachtMethodCall("Maak").ExactAantalKeer(0)
+		
 	set ResponseMessage = ##class(AXaif.Message.Envelope).%New()
 	set ResponseMessage.Header.MessageId = "{654321-ABC-7654321}"
 	set ResponseMessage.Header.RequestMessageId = "{123456-ABC-1234567}"
 
 	set MessageStream = ##class(%GlobalCharacterStream).%New()
 	do MessageStream.Write("<?xml version=""1.0"" encoding=""UTF-8""?> ... Response")
 	
-	set ReponseLogger = ##class(AXimpl.AifMessage.EventHandler.ResponseLogger).%New(MessageRepositoryMock)
+	set ReponseLogger = ##class(AXimpl.AifMessage.EventHandler.ResponseLogger).%New(MessageRepositoryMock,FailedMessageRepositoryMock)
 	do ReponseLogger.Log(ResponseMessage,MessageStream)
 	
 	do $$$AssertEquals(StoredMessage.Status,"Processed")
@@ -38,8 +34,59 @@
 	do $$$AssertEquals(StoredMessage.Response.TimeStamp,"2011-06-30 09:15:00")
 	
 	do MessageRepositoryMock.Verifieer()
+	do FailedMessageRepositoryMock.Verifieer()
 ]]></Implementation>
 </Method>
+
+<Method name="Test: Foutief gedrag">
+<Implementation><![CDATA[
+	#dim StoredMessage As AXdata.AifMessage.Message = ..GetStoredMessage()
+	set MessageRepositoryStub = ##class(vhTest.Mock.AX.AifMessage.MessageRepository).%New()
+	do MessageRepositoryStub.IndienMethodCall("GeefViaRequestGuid","{123456-ABC-1234567}").DanReturn(StoredMessage)
+	do MessageRepositoryStub.IndienMethodCall("Bewaar",StoredMessage)
+	
+	set FailedMessageRepositoryMock = ##class(vhTest.Mock.AX.AifMessage.FailedMessageRepository).%New()
+	
+	set FailedMessage = ##class(AXdata.AifMessage.FailedMessage).%New()
+	do FailedMessageRepositoryMock.VerwachtMethodCall("Maak").DanReturn(FailedMessage)
+	do FailedMessageRepositoryMock.VerwachtMethodCall("Bewaar",FailedMessage)
+		
+	set ResponseMessage = ##class(AXaif.Message.Envelope).%New()
+	set ResponseMessage.Header.MessageId = "{654321-ABC-7654321}"
+	set ResponseMessage.Header.RequestMessageId = "{123456-ABC-1234567}"
+	set ResponseMessage.Body.MessageParts.Fault.Code = "Error"
+	
+	set FaultMessageList = ##class(AXaif.Fault.AxdFaultMessageList).%New()
+	do FaultMessageList.FaultMessage.SetAt("ErrorDetail","Error")
+	do ResponseMessage.Body.MessageParts.Fault.Detail.FaultMessageList.Insert(FaultMessageList)
+
+	set MessageStream = ##class(%GlobalCharacterStream).%New()
+	
+	set ReponseLogger = ##class(AXimpl.AifMessage.EventHandler.ResponseLogger).%New(MessageRepositoryStub,FailedMessageRepositoryMock)
+	do ReponseLogger.Log(ResponseMessage,MessageStream)
+	
+	do $$$AssertEquals(FailedMessage.Message,StoredMessage)
+	do $$$AssertEquals(FailedMessage.Error.Code,"Error")
+	do $$$AssertEquals(FailedMessage.Error.Detail,"ErrorDetail")
+	
+	do FailedMessageRepositoryMock.Verifieer()
+]]></Implementation>
+</Method>
+
+<Method name="GetStoredMessage">
+<Private>1</Private>
+<ReturnType>AXdata.AifMessage.Message</ReturnType>
+<Implementation><![CDATA[
+	set StoredMessage = ##class(AXdata.AifMessage.Message).%New()
+	set StoredMessage.Command = "SalesInvoice/Create"
+	set StoredMessage.Action = "http://schemas.microsoft.com/dynamics/2008/01/services/GeneralJournalService/create"
+	set StoredMessage.Status = "Pending"
+	set StoredMessage.Request.GUID = "{123456-ABC-1234567}"
+	set StoredMessage.Request.TimeStamp = "2011-06-30 09:00:00"
+	do StoredMessage.Request.Stream.Write("<?xml version=""1.0"" encoding=""UTF-8""?> ... Request")
+	quit StoredMessage
+]]></Implementation>
+</Method>
 </Class>