Do ##class(vhUnitTest.Manager).RunTest("/Display=all","APPS.CRM.impl.TestInformeerderOverNieuweKlant") vhUnitTest.TestCase APPS.CRM.impl.InformeerderOverNieuweKlant vhUnitTest.DOM.PARTIJ.MockPartijAPI vhUnitTest.DOM.VKP.MockVerkoopAPI %String 321 %String 987654 %String K||987654 aTestName:%String %Status aTestName:%String %Status ", Mail.GeefVerzender() ) Do $$$AssertTrue( Mail.GeefOnderwerp() [ "Nieuwe Belgische consument geopend: 987654 TestNaam" ) Do $$$AssertEquals( Mail.GeefInhoud().ReadLine(), "Nieuwe Belgische consument geopend: 987654 TestNaam (TestGemeente)." ) #dim Bestemmelingen As %ListOfDataTypes = Mail.GeefOntvangers() Do $$$AssertEquals( 1, Bestemmelingen.Count() ) Do $$$AssertEquals( "DDS@vanhoecke.be", Bestemmelingen.GetAt(1) ) ]]> IsConsument:%Boolean,LandID:%String 1