vhUnitTest.TestCase vhTest.Mock.AX.AifMessage.MessageRepository 1 AXdata.AifMessage.Message 1 AXdata.AifMessage.FailedMessage 1 AXif.Common.Fault.MessageParts.AxdFaultMessageList 1 vhTest.Mock.AX.AifMessage.FailedMessageRepository 1 AXaif.Message.Envelope 1 %GlobalCharacterStream 1 vhTest.Fake.TECH.Mail.Mail 1 vhTest.Mock.TECH.Mail.MailAPI 1 aTestName:%String ... Response") Do ..MailApiMock.VerwachtMethodCall("VerstuurMail",..MailFake).ExactAantalKeer(0) set ReponseLogger = ##class(AXimpl.AifMessage.EventHandler.ResponseLogger).%New(..MessageRepositoryStub,..FailedMessageRepositoryMock,..MailApiMock) 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 ..MessageRepositoryStub.Verifieer() do ..FailedMessageRepositoryMock.Verifieer() do ..MailApiMock.Verifieer() ]]> 1 AXdata.AifMessage.Message ... Request") quit StoredMessage ]]>