Index: vhUnitTest/TECH/MailUtils.cls.xml =================================================================== diff -u -r3152 -r3757 --- vhUnitTest/TECH/MailUtils.cls.xml (.../MailUtils.cls.xml) (revision 3152) +++ vhUnitTest/TECH/MailUtils.cls.xml (.../MailUtils.cls.xml) (revision 3757) @@ -35,35 +35,35 @@ Do $$$AssertFalse(##class(TECH.MailUtils).Check(mail,NsLookUp,CacheNsLookUp),"Emailadres "_mail_" is goed getest.") Set mail = "Joren.Blancquaert@ab_.a" Do $$$AssertFalse(##class(TECH.MailUtils).Check(mail,NsLookUp,CacheNsLookUp),"Emailadres "_mail_" is goed getest.") - Set mail = ".Joren.Blancquaert@skynet.be" + Set mail = ".Joren.Blancquaert@proximus.be" Do $$$AssertFalse(##class(TECH.MailUtils).Check(mail,NsLookUp,CacheNsLookUp),"Emailadres "_mail_" is goed getest.") - Set mail = "Joren.Blancquaert.@skynet.be" + Set mail = "Joren.Blancquaert.@proximus.be" Do $$$AssertFalse(##class(TECH.MailUtils).Check(mail,NsLookUp,CacheNsLookUp),"Emailadres "_mail_" is goed getest.") - Set mail = "Joren..Blancquaert@skynet.be" + Set mail = "Joren..Blancquaert@proximus.be" Do $$$AssertFalse(##class(TECH.MailUtils).Check(mail,NsLookUp,CacheNsLookUp),"Emailadres "_mail_" is goed getest.") - Set mail = "Joren.Blancquaert@skynet..be" + Set mail = "Joren.Blancquaert@proximus..be" Do $$$AssertFalse(##class(TECH.MailUtils).Check(mail,NsLookUp,CacheNsLookUp),"Emailadres "_mail_" is goed getest.") - Set mail = "Joren.Blancquaert@skynet.be" + Set mail = "Joren.Blancquaert@proximus.be" Do $$$AssertTrue(##class(TECH.MailUtils).Check(mail,NsLookUp,CacheNsLookUp),"Emailadres "_mail_" is goed getest.") - Set mail = "Joren.Blancq.uaert@skynet.be" + Set mail = "Joren.Blancq.uaert@proximus.be" Do $$$AssertTrue(##class(TECH.MailUtils).Check(mail,NsLookUp,CacheNsLookUp),"Emailadres "_mail_" is goed getest.") - Set mail = "Joren.Blancq.uae123rt@skynet.be" + Set mail = "Joren.Blancq.uae123rt@proximus.be" Do $$$AssertTrue(##class(TECH.MailUtils).Check(mail,NsLookUp,CacheNsLookUp),"Emailadres "_mail_" is goed getest.") - Set mail = "Joren.Blancq.uae123rt@skynet.be.abcd" + Set mail = "Joren.Blancq.uae123rt@proximus.be.abcd" Do $$$AssertFalse(##class(TECH.MailUtils).Check(mail,NsLookUp,CacheNsLookUp),"Emailadres "_mail_" is goed getest.") - Set mail = "Joren Blancquaert@skynet.be" + Set mail = "Joren Blancquaert@proximus.be" Do $$$AssertFalse(##class(TECH.MailUtils).Check(mail,NsLookUp,CacheNsLookUp),"Emailadres "_mail_" is goed getest.") - Set mail = "Joren Blancquaert@skynet.be" + Set mail = "Joren Blancquaert@proximus.be" Do $$$AssertFalse(##class(TECH.MailUtils).Check(mail,NsLookUp,CacheNsLookUp),"Emailadres "_mail_" is goed getest.") - Set mail = "JorenBlancquaert@sky net.be" + Set mail = "JorenBlancquaert@prox imus.be" Do $$$AssertFalse(##class(TECH.MailUtils).Check(mail,NsLookUp,CacheNsLookUp),"Emailadres "_mail_" is goed getest.") - Set mail = "~Joren.Blancquaert@skynet.be" + Set mail = "~Joren.Blancquaert@proximus.be" Do $$$AssertTrue(##class(TECH.MailUtils).Check(mail,NsLookUp,CacheNsLookUp),"Emailadres "_mail_" is goed getest.") - Set mail = "Joren.Blancquaert@skynet.be@skynet.be" + Set mail = "Joren.Blancquaert@proximus.be@proximus.be" Do $$$AssertFalse(##class(TECH.MailUtils).Check(mail,NsLookUp,CacheNsLookUp),"Emailadres "_mail_" is goed getest.") - Set mail = "Jorèn.Blancquaert@skynet.be@skynet.be" + Set mail = "Jorèn.Blancquaert@proximus.be@proximus.be" Do $$$AssertFalse(##class(TECH.MailUtils).Check(mail,NsLookUp,CacheNsLookUp),"Emailadres "_mail_" is goed getest.") - Set mail = "Joren.Blancquäert@skynet.be@skynet.be" + Set mail = "Joren.Blancquäert@proximus.be@proximus.be" Do $$$AssertFalse(##class(TECH.MailUtils).Check(mail,NsLookUp,CacheNsLookUp),"Emailadres "_mail_" is goed getest.") Set mail = "info@google.be" Do $$$AssertTrue(##class(TECH.MailUtils).Check(mail,NsLookUp,CacheNsLookUp),"Emailadres "_mail_" is goed getest.")