vhUnitTest.TestCase %String 1 %String MoetGefaaldeAxRequestMelden MoetGefaaldeAxRequestMelden:%Boolean,MoetGebruikerOpgehaaldWorden:%Boolean 1 ").DanDoeNiks() Do MailStub.IndienMethodCall("VoegToeOntvanger", EmailAdres).DanDoeNiks() Do MailStub.IndienMethodCall("ZetOnderwerp", $$$ElkeWaarde).DanDoeNiks() Do MailStub.IndienMethodCall("ZetInhoud", $$$ElkeWaarde).DanDoeNiks() #dim MailApiMock As vhTest.Mock.TECH.Mail.MailAPI = ##class(vhTest.Mock.TECH.Mail.MailAPI).%New() Do MailApiMock.VerwachtMethodCall("MaakNieuwMail").DanReturn(MailStub) Do MailApiMock.VerwachtMethodCall("VerstuurMail", MailStub).DanDoeNiks() #dim ExceptieMelder As AXimpl.RequestComposer.ExceptieMelder = ##class(AXimpl.RequestComposer.ExceptieMelder).%New(GebruikerApiMock, MailApiMock) Do ExceptieMelder.VerwittigGebruiker("RandomMessageId", "RandomAction") Do GebruikerMock.Verifieer() Do GebruikerApiMock.Verifieer() Do MailApiMock.Verifieer() ]]>