Index: vhUnitTest/TECH/MailUtils.cls.xml =================================================================== diff -u -r957 -r1183 --- vhUnitTest/TECH/MailUtils.cls.xml (.../MailUtils.cls.xml) (revision 957) +++ vhUnitTest/TECH/MailUtils.cls.xml (.../MailUtils.cls.xml) (revision 1183) @@ -16,53 +16,55 @@ Set mail = "sjonslutter@xs4all.nl" Do $$$AssertTrue(##class(TECH.MailUtils).Check(mail,NsLookUp,CacheNsLookUp),"Emailadres "_mail_" is goed getest.") Set mail = "Joren.Blancquaert@skynet.12" - Do $$$AssertTrue('##class(TECH.MailUtils).Check(mail,NsLookUp,CacheNsLookUp),"Emailadres "_mail_" is goed getest.") + Do $$$AssertFalse(##class(TECH.MailUtils).Check(mail,NsLookUp,CacheNsLookUp),"Emailadres "_mail_" is goed getest.") Set mail = "Joren" - Do $$$AssertTrue('##class(TECH.MailUtils).Check(mail,NsLookUp,CacheNsLookUp),"Emailadres "_mail_" is goed getest.") + Do $$$AssertFalse(##class(TECH.MailUtils).Check(mail,NsLookUp,CacheNsLookUp),"Emailadres "_mail_" is goed getest.") Set mail = "wv.vanhoecke@be" - Do $$$AssertTrue('##class(TECH.MailUtils).Check(mail,NsLookUp,CacheNsLookUp),"Emailadres "_mail_" is goed getest.") + Do $$$AssertFalse(##class(TECH.MailUtils).Check(mail,NsLookUp,CacheNsLookUp),"Emailadres "_mail_" is goed getest.") Set mail = "JorenBlancquaert@" - Do $$$AssertTrue('##class(TECH.MailUtils).Check(mail,NsLookUp,CacheNsLookUp),"Emailadres "_mail_" is goed getest.") + Do $$$AssertFalse(##class(TECH.MailUtils).Check(mail,NsLookUp,CacheNsLookUp),"Emailadres "_mail_" is goed getest.") Set mail = "Joren.Blancquaert@" - Do $$$AssertTrue('##class(TECH.MailUtils).Check(mail,NsLookUp,CacheNsLookUp),"Emailadres "_mail_" is goed getest.") + Do $$$AssertFalse(##class(TECH.MailUtils).Check(mail,NsLookUp,CacheNsLookUp),"Emailadres "_mail_" is goed getest.") Set mail = "Joren_Blancquaert@ab.a" - Do $$$AssertTrue('##class(TECH.MailUtils).Check(mail,NsLookUp,CacheNsLookUp),"Emailadres "_mail_" is goed getest.") + Do $$$AssertFalse(##class(TECH.MailUtils).Check(mail,NsLookUp,CacheNsLookUp),"Emailadres "_mail_" is goed getest.") Set mail = "Joren_Blancq%uaert@ab.a" - Do $$$AssertTrue('##class(TECH.MailUtils).Check(mail,NsLookUp,CacheNsLookUp),"Emailadres "_mail_" is goed getest.") + Do $$$AssertFalse(##class(TECH.MailUtils).Check(mail,NsLookUp,CacheNsLookUp),"Emailadres "_mail_" is goed getest.") Set mail = "Joren.Blancquaert@ab.a" - Do $$$AssertTrue('##class(TECH.MailUtils).Check(mail,NsLookUp,CacheNsLookUp),"Emailadres "_mail_" is goed getest.") + Do $$$AssertFalse(##class(TECH.MailUtils).Check(mail,NsLookUp,CacheNsLookUp),"Emailadres "_mail_" is goed getest.") Set mail = "Joren.Blancquaert@ab_.a" - Do $$$AssertTrue('##class(TECH.MailUtils).Check(mail,NsLookUp,CacheNsLookUp),"Emailadres "_mail_" is goed getest.") + Do $$$AssertFalse(##class(TECH.MailUtils).Check(mail,NsLookUp,CacheNsLookUp),"Emailadres "_mail_" is goed getest.") Set mail = ".Joren.Blancquaert@skynet.be" - Do $$$AssertTrue('##class(TECH.MailUtils).Check(mail,NsLookUp,CacheNsLookUp),"Emailadres "_mail_" is goed getest.") + Do $$$AssertFalse(##class(TECH.MailUtils).Check(mail,NsLookUp,CacheNsLookUp),"Emailadres "_mail_" is goed getest.") Set mail = "Joren.Blancquaert.@skynet.be" - Do $$$AssertTrue('##class(TECH.MailUtils).Check(mail,NsLookUp,CacheNsLookUp),"Emailadres "_mail_" is goed getest.") + Do $$$AssertFalse(##class(TECH.MailUtils).Check(mail,NsLookUp,CacheNsLookUp),"Emailadres "_mail_" is goed getest.") Set mail = "Joren..Blancquaert@skynet.be" - Do $$$AssertTrue('##class(TECH.MailUtils).Check(mail,NsLookUp,CacheNsLookUp),"Emailadres "_mail_" is goed getest.") + Do $$$AssertFalse(##class(TECH.MailUtils).Check(mail,NsLookUp,CacheNsLookUp),"Emailadres "_mail_" is goed getest.") Set mail = "Joren.Blancquaert@skynet..be" - Do $$$AssertTrue('##class(TECH.MailUtils).Check(mail,NsLookUp,CacheNsLookUp),"Emailadres "_mail_" is goed getest.") + Do $$$AssertFalse(##class(TECH.MailUtils).Check(mail,NsLookUp,CacheNsLookUp),"Emailadres "_mail_" is goed getest.") Set mail = "Joren.Blancquaert@skynet.be" Do $$$AssertTrue(##class(TECH.MailUtils).Check(mail,NsLookUp,CacheNsLookUp),"Emailadres "_mail_" is goed getest.") Set mail = "Joren.Blancq.uaert@skynet.be" Do $$$AssertTrue(##class(TECH.MailUtils).Check(mail,NsLookUp,CacheNsLookUp),"Emailadres "_mail_" is goed getest.") Set mail = "Joren.Blancq.uae123rt@skynet.be" Do $$$AssertTrue(##class(TECH.MailUtils).Check(mail,NsLookUp,CacheNsLookUp),"Emailadres "_mail_" is goed getest.") Set mail = "Joren.Blancq.uae123rt@skynet.be.abc" - Do $$$AssertTrue('##class(TECH.MailUtils).Check(mail,NsLookUp,CacheNsLookUp),"Emailadres "_mail_" is goed getest.") + Do $$$AssertFalse(##class(TECH.MailUtils).Check(mail,NsLookUp,CacheNsLookUp),"Emailadres "_mail_" is goed getest.") Set mail = "Joren Blancquaert@skynet.be" - Do $$$AssertTrue('##class(TECH.MailUtils).Check(mail,NsLookUp,CacheNsLookUp),"Emailadres "_mail_" is goed getest.") + Do $$$AssertFalse(##class(TECH.MailUtils).Check(mail,NsLookUp,CacheNsLookUp),"Emailadres "_mail_" is goed getest.") Set mail = "Joren Blancquaert@skynet.be" - Do $$$AssertTrue('##class(TECH.MailUtils).Check(mail,NsLookUp,CacheNsLookUp),"Emailadres "_mail_" is goed getest.") + Do $$$AssertFalse(##class(TECH.MailUtils).Check(mail,NsLookUp,CacheNsLookUp),"Emailadres "_mail_" is goed getest.") Set mail = "JorenBlancquaert@sky net.be" - Do $$$AssertTrue('##class(TECH.MailUtils).Check(mail,NsLookUp,CacheNsLookUp),"Emailadres "_mail_" is goed getest.") + Do $$$AssertFalse(##class(TECH.MailUtils).Check(mail,NsLookUp,CacheNsLookUp),"Emailadres "_mail_" is goed getest.") Set mail = "~Joren.Blancquaert@skynet.be" Do $$$AssertTrue(##class(TECH.MailUtils).Check(mail,NsLookUp,CacheNsLookUp),"Emailadres "_mail_" is goed getest.") Set mail = "Joren.Blancquaert@skynet.be@skynet.be" - Do $$$AssertTrue('##class(TECH.MailUtils).Check(mail,NsLookUp,CacheNsLookUp),"Emailadres "_mail_" is goed getest.") + Do $$$AssertFalse(##class(TECH.MailUtils).Check(mail,NsLookUp,CacheNsLookUp),"Emailadres "_mail_" is goed getest.") Set mail = "Jorèn.Blancquaert@skynet.be@skynet.be" - Do $$$AssertTrue('##class(TECH.MailUtils).Check(mail,NsLookUp,CacheNsLookUp),"Emailadres "_mail_" is goed getest.") + Do $$$AssertFalse(##class(TECH.MailUtils).Check(mail,NsLookUp,CacheNsLookUp),"Emailadres "_mail_" is goed getest.") Set mail = "Joren.Blancquäert@skynet.be@skynet.be" - Do $$$AssertTrue('##class(TECH.MailUtils).Check(mail,NsLookUp,CacheNsLookUp),"Emailadres "_mail_" is goed getest.") + Do $$$AssertFalse(##class(TECH.MailUtils).Check(mail,NsLookUp,CacheNsLookUp),"Emailadres "_mail_" is goed getest.") + Set mail = "info@meubelen4you.be" + Do $$$AssertTrue(##class(TECH.MailUtils).Check(mail,NsLookUp,CacheNsLookUp),"Emailadres "_mail_" is goed getest.") ]]>