diff options
Diffstat (limited to 'tests/it_mail.t')
| -rwxr-xr-x | tests/it_mail.t | 26 |
1 files changed, 13 insertions, 13 deletions
diff --git a/tests/it_mail.t b/tests/it_mail.t index 44ed30d..687480c 100755 --- a/tests/it_mail.t +++ b/tests/it_mail.t @@ -9,19 +9,19 @@ $mail = new it_mail(); is( $mail->addrlist_escape('éxample@example.com', true), 'éxample@example.com', - "Don't escape plain email addresses in email headers", + "Don't escape plain email addresses in email headers" ); is( $mail->header_escape('éxample@example.com'), '=?utf-8?Q?=C3=A9xample@example.com?=', - "Escape plain email in non-email headers", + "Escape plain email in non-email headers" ); is( $mail->addrlist_escape('Èxample User <èxample@example.com>', true), '=?utf-8?Q?=C3=88xample_User?= <èxample@example.com>', - "Escape name but not email in email headers", + "Escape name but not email in email headers" ); is( @@ -33,50 +33,50 @@ is( is( $mail->addrlist_escape('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_=C3=8Blse?= <sömeone@example.com>', - "Don't escape email addresses but escape realnames", + "Don't escape email addresses but escape realnames" ); is( $mail->addrlist_escape('"Alfred E. Neuman" <neuman@example.com>', true), '"Alfred E. Neuman" <neuman@example.com>', - "Don't remove quoting characters from realname", + "Don't remove quoting characters from realname" ); -$mail = new it_mail( +$mail = new it_mail(array( 'From' => 'Someone Ïmportant <ïmportant@search.ch>', 'To' => 'éxample@example.com, example@example.com, Sömeone Ëlse <sömeone@example.com>, "Alfred E. Neuman" <neuman@example.com>, "Schmitt, Sören" <schmitt@example.com>', 'Cc' => 'éxample@example.com, example@example.com, Sömeone Ëlse <sömeone@example.com>, "Alfred E. Neuman" <neuman@example.com>, "Schmitt, Sören" <schmitt@example.com>', 'Bcc' => 'éxample@example.com, example@example.com, Sömeone Ëlse <sömeone@example.com>, "Alfred E. Neuman" <neuman@example.com>, "Schmitt, Sören" <schmitt@example.com>', - 'Subject' => "§önÐë®z€ı¢ħèṇ", -); + 'Subject' => "§önÐë®z€ı¢ħèṇ" +)); is( $mail->to[0], 'éxample@example.com, example@example.com,=?utf-8?Q?S=C3=B6meone_=C3=8Blse?= <sömeone@example.com>, "Alfred E. Neuman" <neuman@example.com>,=?utf-8?Q?Schmitt,_S=C3=B6ren?= <schmitt@example.com>', - 'Escape To: field as addrlist', + 'Escape To: field as addrlist' ); is( $mail->cc[0], 'éxample@example.com, example@example.com,=?utf-8?Q?S=C3=B6meone_=C3=8Blse?= <sömeone@example.com>, "Alfred E. Neuman" <neuman@example.com>,=?utf-8?Q?Schmitt,_S=C3=B6ren?= <schmitt@example.com>', - 'Escape Cc: field as addrlist', + 'Escape Cc: field as addrlist' ); is( $mail->bcc[0], 'éxample@example.com, example@example.com,=?utf-8?Q?S=C3=B6meone_=C3=8Blse?= <sömeone@example.com>, "Alfred E. Neuman" <neuman@example.com>,=?utf-8?Q?Schmitt,_S=C3=B6ren?= <schmitt@example.com>', - 'Escape Bcc: field as addrlist', + 'Escape Bcc: field as addrlist' ); is( $mail->header_values[0], '=?utf-8?Q?Someone_=C3=8Fmportant?= <ïmportant@search.ch>', - 'Escape From: field as addrlist', + 'Escape From: field as addrlist' ); is( $mail->subject, "§önÐë®z€ı¢ħèṇ", - "Don't escape Subject: field on instanziation", + "Don't escape Subject: field on instanziation" ); |