BASE . LOG,
'file_id' => $LOG_FILE_ID,
// add file date
'print_file_date' => true,
// set debug and print flags
'debug_all' => $DEBUG_ALL ?? false,
'echo_all' => $ECHO_ALL ?? false,
'print_all' => $PRINT_ALL ?? false,
]);
print "";
print "TEST CLASS: HTML/ELEMENTS";
print "";
print '';
// regex get
print "S::GETEMAILREGEX(0): " . Email::getEmailRegex(0) . "
";
print "S::GETEMAILREGEX(2): " . Email::getEmailRegex(2) . "
";
print "S::GETEMAILREGEX(7): " . Email::getEmailRegex(7) . "
";
print "S::GETEMAILREGEX(8 invalid): " . Email::getEmailRegex(8) . "
";
print "S::GETEMAILREGEXCHECK: " . DgS::printAr(Email::getEmailRegexCheck()) . "
";
print "S::GETEMAILREGEXERRORMESSAGE " . Dgs::printAr(Email::getEmailRegexErrorMessage(1)) . "
";
$email = [
'foo@bar.org',
'foo@i.softbank.ne.jp'
];
foreach ($email as $s_email) {
print "S::EMAIL: $s_email: " . Email::getEmailType($s_email) . "
";
print "S::EMAIL SHORT: $s_email: " . Email::getEmailType($s_email, true) . "
";
}
$email = [
'test@test.com',
'',
'-@-',
'.test@test.com',
'test@t_est.com',
'test@@test.com',
'test@test..com',
'test@@test..com',
'test@test.',
'test@test.j',
];
foreach ($email as $s_email) {
print "S::CHECKEMAIL: " . $s_email . ": " . (Email::checkEmail($s_email) ? 'Yes' : 'No') . "
";
print "S::CHECKEMAILFULL: " . $s_email . ": " . Dgs::printAr(Email::checkEmailFull($s_email)) . "
";
print "S::CHECKEMAILFULL(true): " . $s_email . ": " . Dgs::printAr(Email::checkEmailFull($s_email, true)) . "
";
}
// error message
print $log->printErrorMsg();
print "";
// __END__