Index: vhUnitTest/TECH/Mail/impl/MailMessageAanpasser/MaakEmailAdressenAtVanhoeckeBe/Test.cls.xml
===================================================================
diff -u -r2778 -r2779
--- vhUnitTest/TECH/Mail/impl/MailMessageAanpasser/MaakEmailAdressenAtVanhoeckeBe/Test.cls.xml	(.../Test.cls.xml)	(revision 2778)
+++ vhUnitTest/TECH/Mail/impl/MailMessageAanpasser/MaakEmailAdressenAtVanhoeckeBe/Test.cls.xml	(.../Test.cls.xml)	(revision 2779)
@@ -67,7 +67,6 @@
 <Implementation><![CDATA[
 	Set ..MailMessage.Bcc = ##class(TECH.ListUtils).CreateListOfDataTypes("BlindCarbonCopy1","BlindCarbonCopy2")
 	
-	
 	Do ..Aanpasser.MaakEmailAdressenAtVanhoeckeBe(..MailMessage)
 	
 	if $$$AssertEquals(..MailMessage.Bcc.Count(),2) {
@@ -76,6 +75,40 @@
 	}
 ]]></Implementation>
 </Method>
+
+<Method name="Test: lege items in adres-velden worden niet overgenomen">
+<Implementation><![CDATA[
+	Set ..MailMessage.To = ##class(TECH.ListUtils).CreateListOfDataTypes("","Recipient","")
+	Set ..MailMessage.Cc = ##class(TECH.ListUtils).CreateListOfDataTypes("","CarbonCopy","")
+	Set ..MailMessage.Bcc = ##class(TECH.ListUtils).CreateListOfDataTypes("","BlindCarbonCopy","")
+	
+	Do ..Aanpasser.MaakEmailAdressenAtVanhoeckeBe(..MailMessage)
+	
+	If $$$AssertEquals(..MailMessage.To.Count(),1) {
+		Do $$$AssertEquals(..MailMessage.To.GetAt(1),"Recipient@vanhoecke.be")
+	}
+	If $$$AssertEquals(..MailMessage.Cc.Count(),1) {
+		Do $$$AssertEquals(..MailMessage.Cc.GetAt(1),"CarbonCopy@vanhoecke.be")
+	}
+	If $$$AssertEquals(..MailMessage.Bcc.Count(),1) {
+		Do $$$AssertEquals(..MailMessage.Bcc.GetAt(1),"BlindCarbonCopy@vanhoecke.be")
+	}
+]]></Implementation>
+</Method>
+
+<Method name="Test: adres-veld met uitsluitend lege items (of spaties) geeft een lege list">
+<Implementation><![CDATA[
+	Set ..MailMessage.To = ##class(TECH.ListUtils).CreateListOfDataTypes(" ","")
+	Set ..MailMessage.Cc = ##class(TECH.ListUtils).CreateListOfDataTypes(" ","")
+	Set ..MailMessage.Bcc = ##class(TECH.ListUtils).CreateListOfDataTypes(" ","")
+	
+	Do ..Aanpasser.MaakEmailAdressenAtVanhoeckeBe(..MailMessage)
+	
+	Do $$$AssertEquals(..MailMessage.To.Count(),0)
+	Do $$$AssertEquals(..MailMessage.Cc.Count(),0)
+	Do $$$AssertEquals(..MailMessage.Bcc.Count(),0)
+]]></Implementation>
+</Method>
 </Class>