Index: vhUnitTest/TECH/Mail.cls.xml
===================================================================
diff -u -r1303 -r1304
--- vhUnitTest/TECH/Mail.cls.xml	(.../Mail.cls.xml)	(revision 1303)
+++ vhUnitTest/TECH/Mail.cls.xml	(.../Mail.cls.xml)	(revision 1304)
@@ -12,8 +12,13 @@
 	Set CacheNsLookUp = 1
 	Set NsLookUp = 1 
 	
+	
+	Set mail = "Joren.Blancquaert@skynet.12"
+	Do $$$AssertTrue('##class(TECH.Mail).Check(mail,NsLookUp,CacheNsLookUp),"Emailadres "_mail_" is goed getest.")	
 	Set mail = "Joren"
 	Do $$$AssertTrue('##class(TECH.Mail).Check(mail,NsLookUp,CacheNsLookUp),"Emailadres "_mail_" is goed getest.")
+	Set mail = "wv.vanhoecke@be"
+	Do $$$AssertTrue('##class(TECH.Mail).Check(mail,NsLookUp,CacheNsLookUp),"Emailadres "_mail_" is goed getest.")
 	Set mail = "JorenBlancquaert@"
 	Do $$$AssertTrue('##class(TECH.Mail).Check(mail,NsLookUp,CacheNsLookUp),"Emailadres "_mail_" is goed getest.")
 	Set mail = "Joren.Blancquaert@"