diff options
| author | David Flatz | 2016-02-03 18:00:43 +0100 |
|---|---|---|
| committer | David Flatz | 2016-02-03 18:00:43 +0100 |
| commit | eb55ac5cea8ad3720505645600e6d854d737603a (patch) | |
| tree | 1959078c4af862f91da902f5ec65bb52f98ea998 /tests/it_mail.t | |
| parent | d384e10b385431fe647ce481c7f57ce76e43c6c7 (diff) | |
| download | itools-eb55ac5cea8ad3720505645600e6d854d737603a.tar.gz itools-eb55ac5cea8ad3720505645600e6d854d737603a.tar.bz2 itools-eb55ac5cea8ad3720505645600e6d854d737603a.zip | |
don't split addrlist at comma when the comma is inside a quoted string, this should fix mails to people with umlauts and comma in realname
Diffstat (limited to 'tests/it_mail.t')
| -rwxr-xr-x | tests/it_mail.t | 14 |
1 files changed, 7 insertions, 7 deletions
diff --git a/tests/it_mail.t b/tests/it_mail.t index 1762788..44ed30d 100755 --- a/tests/it_mail.t +++ b/tests/it_mail.t @@ -32,7 +32,7 @@ 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>', + '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", ); @@ -45,27 +45,27 @@ is( $mail = new it_mail( '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>', - 'Cc' => 'éxample@example.com, example@example.com, Sömeone Ëlse <sömeone@example.com>, "Alfred E. Neuman" <neuman@example.com>', - 'Bcc' => 'éxample@example.com, example@example.com, Sömeone Ëlse <sömeone@example.com>, "Alfred E. Neuman" <neuman@example.com>', + '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€ı¢ħèṇ", ); 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>', + 'é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', ); 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>', + 'é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', ); 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>', + 'é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', ); |