vhUnitTest.TestCase ... 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 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(" ... Response") set ReponseLogger = ##class(AXimpl.AifMessage.EventHandler.ResponseLogger).%New(MessageRepositoryMock) do ReponseLogger.Log(ResponseMessage,MessageStream) do $$$AssertEquals(StoredMessage.Status,"Processed") do $$$AssertEquals(StoredMessage.Action,"http://schemas.microsoft.com/dynamics/2008/01/services/GeneralJournalService/create") do $$$AssertEquals(StoredMessage.Request.TimeStamp,"2011-06-30 09:00:00") do $$$AssertEquals(StoredMessage.Request.Stream.Read()," ... Request") do $$$AssertEquals(StoredMessage.Response.Stream.Read()," ... Response") do $$$AssertEquals(StoredMessage.Response.TimeStamp,"2011-06-30 09:15:00") do MessageRepositoryMock.Verifieer() ]]>