diff options
Diffstat (limited to 'test/it_mail.t')
| -rwxr-xr-x | test/it_mail.t | 44 |
1 files changed, 22 insertions, 22 deletions
diff --git a/test/it_mail.t b/test/it_mail.t index 12b70d0..c267edd 100755 --- a/test/it_mail.t +++ b/test/it_mail.t @@ -6,19 +6,19 @@ $mail = new it_mail(); # # header_escape tests # -is( +is_( $mail->addrlist_encode('éxample@example.com', true), 'éxample@example.com', "Don't escape plain email addresses in email headers" ); -is( +is_( $mail->header_encode('éxample@example.com'), '=?utf-8?Q?=C3=A9xample@example.com?=', "Escape plain email in non-email headers" ); -is( +is_( $mail->header_encode('search.ch e-mail code d\'accès'), version_compare(PHP_VERSION, '7.2.11') < 0 ? '=?utf-8?B?c2VhcmNoLmNoIGUtbWFpbCBjb2RlIGQnYWNjw6hz?=' @@ -26,37 +26,37 @@ is( "Use base64 encoding when php iconv fails with quoted-printable (workaround for php bug #53891)" ); -is( +is_( $mail->addrlist_encode('Èxample User <èxample@example.com>', true), '=?utf-8?Q?=C3=88xample=20User?= <èxample@example.com>', "Escape name but not email in email headers" ); -is( +is_( $mail->addrlist_encode('Example User <example@example.com>', true), 'Example User <example@example.com>', "Don't escape characters that don't need escaping" ); -is( +is_( $mail->addrlist_encode('example@example.com, éxample@example.com, Sömeone Ëlse <sömeone@example.com>', true), 'example@example.com, éxample@example.com, =?utf-8?Q?S=C3=B6meone=20=C3=8Blse?= <sömeone@example.com>', "Don't escape email addresses but escape realnames" ); -is( +is_( $mail->addrlist_encode('"Alfred E. Neuman" <neuman@example.com>', true), '"Alfred E. Neuman" <neuman@example.com>', "Don't remove quoting characters from realname" ); -is( +is_( $mail->addrlist_encode('"Schmitt, Sören" <schmitt@example.com>', true), '=?utf-8?Q?"Schmitt,=20S=C3=B6ren"?= <schmitt@example.com>', "Don't remove quoting characters from realname when it contains a quotable character" ); -is( +is_( $mail->addrlist_encode('"Alfred E. Neuman" <t€st@sör.ch>', true), '"Alfred E. Neuman" <t€st@xn--sr-fka.ch>', "Convert domain in email to idn version" @@ -70,37 +70,37 @@ $mail = new it_mail([ 'Subject' => "§önÐë®z€ı¢ħèṇ" ]); -is( +is_( $mail->to[0], 'éxample@example.com, example@example.com, =?utf-8?Q?S=C3=B6meone=20=C3=8Blse?= <sömeone@example.com>, "Alfred E. Neuman" <neuman@example.com>, =?utf-8?Q?"Schmitt,=20S=C3=B6ren"?= <schmitt@example.com>', 'Escape To: field as addrlist' ); -is( +is_( $mail->cc[0], 'éxample@example.com, example@example.com, =?utf-8?Q?S=C3=B6meone=20=C3=8Blse?= <sömeone@example.com>, "Alfred E. Neuman" <neuman@example.com>, =?utf-8?Q?"Schmitt,=20S=C3=B6ren"?= <schmitt@example.com>', 'Escape Cc: field as addrlist' ); -is( +is_( $mail->bcc[0], 'éxample@example.com, example@example.com, =?utf-8?Q?S=C3=B6meone=20=C3=8Blse?= <sömeone@example.com>, "Alfred E. Neuman" <neuman@example.com>, =?utf-8?Q?"Schmitt,=20S=C3=B6ren"?= <schmitt@example.com>', 'Escape Bcc: field as addrlist' ); -is( +is_( $mail->header_values[0], '=?utf-8?Q?Someone=20=C3=8Fmportant?= <ïmportant@search.ch>', 'Escape From: field as addrlist' ); -is( +is_( $mail->subject, "§önÐë®z€ı¢ħèṇ", "Don't escape Subject: field on instanziation" ); -is( +is_( it_mail::address_error('neuman@example.com, <neuman@example.com>, "Neuman, Alfred E." <neuman@example.com>, aneuman, "<neuman@example>" <neuman@example.com>, " neumann@example.com", "www@search.ch".foo.bar@local.ch, test@sör.ch, müller@search.ch'), null, "Accept valid e-mail addresses" @@ -110,14 +110,14 @@ foreach (['neuman@example', '"neuman@example.com" <neuman@example>', '<neuma@exa { isnt(it_mail::address_error($email), null, "Reject invalid e-mail address $email"); foreach (it_mail::addrlist_split($email) as list($dummy, $email)) - is(it_mail::check_email($email), IT_MAIL_CHECKEMAIL_INVALID, "check_email rejects invalid email address $email too"); + is_(it_mail::check_email($email), IT_MAIL_CHECKEMAIL_INVALID, "check_email rejects invalid email address $email too"); } -is(it_mail::check_email('test@sör.ch'), IT_MAIL_CHECKEMAIL_OK, "check_email accepts valid email address with idn domain"); +is_(it_mail::check_email('test@sör.ch'), IT_MAIL_CHECKEMAIL_OK, "check_email accepts valid email address with idn domain"); -is(it_mail::email_split('test@sör.ch'), ['test', 'sör.ch'], 'email_split test@sör.ch'); -is(it_mail::email_split('"test@local.ch".foo.bar@search.ch'), ['"test@local.ch".foo.bar', 'search.ch'], 'email_split "test@local.ch".foo.bar@search.ch'); -is(it_mail::email_split('aneuman'), ['aneuman', ''], 'email_split aneuman'); +is_(it_mail::email_split('test@sör.ch'), ['test', 'sör.ch'], 'email_split test@sör.ch'); +is_(it_mail::email_split('"test@local.ch".foo.bar@search.ch'), ['"test@local.ch".foo.bar', 'search.ch'], 'email_split "test@local.ch".foo.bar@search.ch'); +is_(it_mail::email_split('aneuman'), ['aneuman', ''], 'email_split aneuman'); -is(it_mail::email_encode('test@sör.ch'), 'test@xn--sr-fka.ch', 'idn encode domain sör.ch'); -is(it_mail::email_encode('أحمد@مثال.آزمایشی'), 'أحمد@xn--mgbh0fb.xn--hgbk6aj7f53bba', 'idn encode domain ﻢﺛﺎﻟ.ﺁﺰﻣﺎﯿﺸﯾ'); +is_(it_mail::email_encode('test@sör.ch'), 'test@xn--sr-fka.ch', 'idn encode domain sör.ch'); +is_(it_mail::email_encode('أحمد@مثال.آزمایشی'), 'أحمد@xn--mgbh0fb.xn--hgbk6aj7f53bba', 'idn encode domain ﻢﺛﺎﻟ.ﺁﺰﻣﺎﯿﺸﯾ'); |