vhUnitTest.TestCase ... Response") Set MailFake = ##class(vhTest.Fake.TECH.Mail.Mail).%New() Set MailApiMock = ##class(vhTest.Mock.TECH.Mail.MailAPI).%New() Do MailApiMock.IndienMethodCall("MaakNieuwMail").DanReturn(MailFake) Do MailApiMock.VerwachtMethodCall("VerstuurMail",MailFake).ExactAantalKeer(0) set ReponseLogger = ##class(AXimpl.AifMessage.EventHandler.ResponseLogger).%New(MessageRepositoryMock,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 MessageRepositoryMock.Verifieer() do FailedMessageRepositoryMock.Verifieer() do MailApiMock.Verifieer() ]]> 1 AXdata.AifMessage.Message ... Request") quit StoredMessage ]]>