Index: vhUnitTest/TECH/Mail/TestMailAPI.cls.xml
===================================================================
diff -u -r1155 -r1578
--- vhUnitTest/TECH/Mail/TestMailAPI.cls.xml	(.../TestMailAPI.cls.xml)	(revision 1155)
+++ vhUnitTest/TECH/Mail/TestMailAPI.cls.xml	(.../TestMailAPI.cls.xml)	(revision 1578)
@@ -23,14 +23,48 @@
 		Do Mail.VoegToeOntvanger("ut@vanhoecke.be")
 		Do Mail.ZetInhoud("Een lijn als inhoud van de mail")
 		
-		#dim Message As %Net.MailMessage = Mail.GeefMailMessage()
+		Do $$$AssertEquals(Mail.GeefOnderwerp(),"["_$$$Server_"]"_" Unittest onderwerp")
+		Do $$$AssertContains(Mail.GeefOntvangers().GetAt(1),"@vanhoecke.be")
+
+		#dim MailInhoud As %Stream = Mail.GeefInhoud()
+		
+		// Merk op : 
+		//  Door het verplaatsen van de method Mail.GeefMailMessage() naar TECH.Mail.impl.SMTPVerzender 
+		//  wordt de "Intended Recipients" info niet meer hier toegevoegd, maar wel bij de Verzender (zie test hieronder) 
+		// 
+		;Do $$$AssertEquals(MailInhoud.ReadLine(),"Intended Recipients : (redirected by configitem vhLib.Mail_RedirectMailToDevelopment)")
+		;Do $$$AssertEquals(MailInhoud.ReadLine(),"  To  : ut@vanhoecke.be")
+		;Do $$$AssertEquals(MailInhoud.ReadLine(),"============================================================")
+		;Do $$$AssertEquals(MailInhoud.ReadLine(),"")
+		Do $$$AssertEquals(MailInhoud.ReadLine(),"Een lijn als inhoud van de mail")
+	}
+]]></Implementation>
+</Method>
+
+<Method name="TestGeefMailMessageVanDeSMTPVerzenderKlasse">
+<Description>
+De method GeefMailMessage() is verplaatst van TECH.Mail.Mail naar TECH.Mail.impl.SMTPVerzender 
+Dus deze test hoort eigenlijk thuis in een aparte UT-klasse</Description>
+<Implementation><![CDATA[
+	#dim Mail As TECH.Mail.Mail = ##class(TECH.Context).Instance().GeefMailAPI().MaakNieuwMail()
+	Set Verzender = ##class(TECH.Mail.impl.SMTPVerzender).%New()
+	
+	If $$$AssertTrue($IsObject(Mail),"Object Mail is aangemaakt."){
+		Do $$$AssertEquals(Mail.%ClassName(1),"TECH.Mail.impl.Mail")	
+		
+		Do Mail.ZetOnderwerp("Unittest onderwerp")
+		Do Mail.VoegToeOntvanger("ut@vanhoecke.be")
+		Do Mail.ZetInhoud("Een lijn als inhoud van de mail")
+		
+		#dim Message As %Net.MailMessage = Verzender.GeefMailMessage(Mail)   ; Deze method is (Quick-and-dirty) PUBLIC gemaakt om te kunnen unittesten.  Ooohhhh :-( 
 		Do $$$AssertEquals(Message.Subject,"["_$$$Server_"]"_" Unittest onderwerp")
 		Do $$$AssertContains(Message.To.GetAt(1),"@vanhoecke.be")
 		Do $$$AssertEquals(Message.TextData.ReadLine(),"Intended Recipients : (redirected by configitem vhLib.Mail_RedirectMailToDevelopment)")
 		Do $$$AssertEquals(Message.TextData.ReadLine(),"  To  : ut@vanhoecke.be")
 		Do $$$AssertEquals(Message.TextData.ReadLine(),"============================================================")
 		Do $$$AssertEquals(Message.TextData.ReadLine(),"")
 		Do $$$AssertEquals(Message.TextData.ReadLine(),"Een lijn als inhoud van de mail")
+		Do $$$AssertEquals(Message.TextData.ReadLine(),"")
 	}
 ]]></Implementation>
 </Method>