Index: vhUnitTest/AXimpl/AifMessage/EventHandler/ResponseLogger/Log/Test.cls.xml
===================================================================
diff -u -r35387 -r35414
--- vhUnitTest/AXimpl/AifMessage/EventHandler/ResponseLogger/Log/Test.cls.xml	(.../Test.cls.xml)	(revision 35387)
+++ vhUnitTest/AXimpl/AifMessage/EventHandler/ResponseLogger/Log/Test.cls.xml	(.../Test.cls.xml)	(revision 35414)
@@ -38,7 +38,7 @@
 ]]></Implementation>
 </Method>
 
-<Method name="Test: Foutief gedrag">
+<Method name="Test: Foutief gedrag - Fault met code">
 <Implementation><![CDATA[
 	do ##class(vhTest.Fake.TECH.DateTime.DateTimeAPI).Activeer()
 	
@@ -76,6 +76,42 @@
 ]]></Implementation>
 </Method>
 
+<Method name="Test: Foutief gedrag - Fault zonder code">
+<Implementation><![CDATA[
+	do ##class(vhTest.Fake.TECH.DateTime.DateTimeAPI).Activeer()
+	
+	#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 FaultMessageList = ##class(AXaif.Fault.AxdFaultMessageList).%New()
+	do ResponseMessage.Body.MessageParts.Fault.Reason.Text.SetAt("ErrorReason","EN-US")
+
+	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,"")
+	do $$$AssertEquals(FailedMessage.Error.Detail,"ErrorReason")
+	do $$$AssertEquals(FailedMessage.TimeStamp,"2011-06-30 09:15:00")
+	
+	do FailedMessageRepositoryMock.Verifieer()
+]]></Implementation>
+</Method>
+
 <Method name="GetStoredMessage">
 <Private>1</Private>
 <ReturnType>AXdata.AifMessage.Message</ReturnType>