Index: vhUnitTest/TECH/Mail/impl/SMTPVerzender/TestMailMessageAanpasser.cls.xml
===================================================================
diff -u
--- vhUnitTest/TECH/Mail/impl/SMTPVerzender/TestMailMessageAanpasser.cls.xml	(revision 0)
+++ vhUnitTest/TECH/Mail/impl/SMTPVerzender/TestMailMessageAanpasser.cls.xml	(revision 2732)
@@ -0,0 +1,39 @@
+<?xml version="1.0" encoding="UTF-8"?>
+<Export generator="Cache" version="24">
+<Class name="vhUnitTest.TECH.Mail.impl.SMTPVerzender.TestMailMessageAanpasser">
+<Super>vhUnitTest.TestCase</Super>
+
+<Method name="Test: Verzender gebruikt MessageAanpasser">
+<Implementation><![CDATA[
+	Set MessageAanpasserMock = ##class(vhTest.Mock.TECH.Mail.impl.MailMessageAanpasser).%New()
+		Do MessageAanpasserMock.VerwachtMethodCall("MaakEmailAdressenAtVanhoeckeBe",$$$ElkeWaarde).DanDoeNiks()   /// Dees suckt langs alle kanten :-( 
+	Set Verzender = ##class(TECH.Mail.impl.SMTPVerzender).%New(MessageAanpasserMock)
+
+	Set Mail = ##class(TECH.Mail.impl.Mail).%New()
+	#dim Message As %Net.MailMessage = Verzender.GeefMailMessage(Mail)
+
+	Do MessageAanpasserMock.Verifieer()
+]]></Implementation>
+</Method>
+
+<Method name="Test: Geef MailMessage met aangepaste adressen">
+<Implementation><![CDATA[
+	// Dit is de integratie-test van de method hierboven "Test: Verzender gebruikt MessageAanpasser"()
+	// Die is echter Alles behalve goed, dus deze method voorlopig toch behouden, dat geeft toch iets meer vertrouwen 
+	
+	Set Mail = ##class(TECH.Mail.impl.Mail).%New()
+	Do Mail.ZetOmleiden(0)
+	Do Mail.ZetVerzender("UT_Test1")
+	Do Mail.VoegToeOntvanger("UT_Test2")
+	
+	Set Verzender = ##class(TECH.Mail.impl.SMTPVerzender).%New()
+	#dim Message As %Net.MailMessage = Verzender.GeefMailMessage(Mail)
+
+	Do $$$AssertEquals(Message.From,"UT_Test1@vanhoecke.be")
+	Do $$$AssertEquals(Message.To.GetAt(1),"UT_Test2@vanhoecke.be")
+]]></Implementation>
+</Method>
+</Class>
+
+
+</Export>