vhUnitTest.TestCase ... Response") set ReponseLogger = ##class(AXimpl.AifMessage.EventHandler.ResponseLogger).%New(MessageRepositoryMock,FailedMessageRepositoryMock) 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() do FailedMessageRepositoryMock.Verifieer() ]]> 1 AXdata.AifMessage.Message ... Request") quit StoredMessage ]]>