vhUnitTest.TestCase ") Do MailMock.VerwachtMethodCall("VoegToeOntvanger", RandomOntvanger) Do MailMock.VerwachtMethodCall("ZetOnderwerp", RandomOnderwerp) Do MailMock.VerwachtMethodCall("ZetInhoud", RandomInhoud) #dim MailApiMock As vhTest.Mock.TECH.Mail.MailAPI = ##class(vhTest.Mock.TECH.Mail.MailAPI).%New() Do MailApiMock.VerwachtMethodCall("MaakNieuwMail").DanReturn(MailMock) Do MailApiMock.VerwachtMethodCall("VerstuurMail", MailMock).DanDoeNiks() #dim LegacyFlow As BL.Legacy.FLOW = ##class(BL.Legacy.FLOW).%New(MailApiMock) Do LegacyFlow.VerstuurMail(RandomVerzenderNaam, RandomOntvanger, RandomOnderwerp, RandomInhoud) Do MailMock.Verifieer() Do MailApiMock.Verifieer() ]]>