diff options
author | Ivan Kohler <ivan@freeside.biz> | 2015-07-09 22:18:55 -0700 |
---|---|---|
committer | Ivan Kohler <ivan@freeside.biz> | 2015-07-09 22:27:04 -0700 |
commit | e131b1f71f08b69abb832c1687d1f29682d171f8 (patch) | |
tree | 490167e41d9fe05b760e7b21a96ee35a86f8edda /rt/t/mail/mime_decoding.t | |
parent | d05d7346bb2387fd9d0354923d577275c5c7f019 (diff) |
RT 4.2.11, ticket#13852
Diffstat (limited to 'rt/t/mail/mime_decoding.t')
-rw-r--r-- | rt/t/mail/mime_decoding.t | 177 |
1 files changed, 133 insertions, 44 deletions
diff --git a/rt/t/mail/mime_decoding.t b/rt/t/mail/mime_decoding.t index fbf884932..1126f1f84 100644 --- a/rt/t/mail/mime_decoding.t +++ b/rt/t/mail/mime_decoding.t @@ -1,14 +1,23 @@ use strict; use warnings; -use RT::Test nodb => 1, tests => 14; +use RT::Test nodb => 1, tests => undef; +use Test::LongString; +use Test::Warn; use_ok('RT::I18N'); diag q{'=' char in a leading part before an encoded part}; { my $str = 'key="plain"; key="=?UTF-8?B?0LzQvtC5X9GE0LDQudC7LmJpbg==?="'; + warnings_like { + is( + RT::I18N::DecodeMIMEWordsToUTF8($str), + 'key="plain"; key="мой_файл.bin"', + "right decoding" + ); + } [qr/DecodeMIMEWordsTo.*?called without field name/i]; is( - RT::I18N::DecodeMIMEWordsToUTF8($str), + RT::I18N::DecodeMIMEWordsToUTF8($str, 'content-disposition'), 'key="plain"; key="мой_файл.bin"', "right decoding" ); @@ -17,8 +26,15 @@ diag q{'=' char in a leading part before an encoded part}; diag q{not compliant with standards, but MUAs send such field when attachment has non-ascii in name}; { my $str = 'attachment; filename="=?UTF-8?B?0LzQvtC5X9GE0LDQudC7LmJpbg==?="'; + warnings_like { + is( + RT::I18N::DecodeMIMEWordsToUTF8($str), + 'attachment; filename="мой_файл.bin"', + "right decoding" + ); + } [qr/DecodeMIMEWordsTo.*?called without field name/i]; is( - RT::I18N::DecodeMIMEWordsToUTF8($str), + RT::I18N::DecodeMIMEWordsToUTF8($str, 'content-disposition'), 'attachment; filename="мой_файл.bin"', "right decoding" ); @@ -27,8 +43,15 @@ diag q{not compliant with standards, but MUAs send such field when attachment ha diag q{'=' char in a trailing part after an encoded part}; { my $str = 'attachment; filename="=?UTF-8?B?0LzQvtC5X9GE0LDQudC7LmJpbg==?="; some_prop="value"'; + warnings_like { + is( + RT::I18N::DecodeMIMEWordsToUTF8($str), + 'attachment; filename="мой_файл.bin"; some_prop="value"', + "right decoding" + ); + } [qr/DecodeMIMEWordsTo.*?called without field name/i]; is( - RT::I18N::DecodeMIMEWordsToUTF8($str), + RT::I18N::DecodeMIMEWordsToUTF8($str, 'content-disposition'), 'attachment; filename="мой_файл.bin"; some_prop="value"', "right decoding" ); @@ -36,12 +59,9 @@ diag q{'=' char in a trailing part after an encoded part}; diag q{adding quotes around mime words containing specials when word is already quoted}; { - my $str = <<"END"; -Content-Disposition: attachment; filename="=?iso-8859-1?Q?foobar,_?= - =?iso-8859-1?Q?barfoo.docx?=" -END - my $decoded = 'Content-Disposition: attachment; filename="foobar, barfoo.docx"'; - is( RT::I18N::DecodeMIMEWordsToUTF8($str), $decoded, "No added quotes" ); + my $str = 'attachment; filename="=?iso-8859-1?Q?foobar,_?=' . "\n" . '=?iso-8859-1?Q?barfoo.docx?="'; + my $decoded = 'attachment; filename="foobar, barfoo.docx"'; + is( RT::I18N::DecodeMIMEWordsToUTF8($str, 'content-disposition'), $decoded, "No added quotes" ); } diag q{regression test for #5248 from rt3.fsck.com}; @@ -49,7 +69,7 @@ diag q{regression test for #5248 from rt3.fsck.com}; my $str = qq{Subject: =?ISO-8859-1?Q?Re=3A_=5BXXXXXX=23269=5D_=5BComment=5D_Frag?=} . qq{\n =?ISO-8859-1?Q?e_zu_XXXXXX--xxxxxx_/_Xxxxx=FCxxxxxxxxxx?=}; is( - RT::I18N::DecodeMIMEWordsToUTF8($str), + RT::I18N::DecodeMIMEWordsToUTF8($str, 'Subject'), qq{Subject: Re: [XXXXXX#269] [Comment] Frage zu XXXXXX--xxxxxx / Xxxxxüxxxxxxxxxx}, "right decoding" ); @@ -58,9 +78,16 @@ diag q{regression test for #5248 from rt3.fsck.com}; diag q{newline and encoded file name}; { my $str = qq{application/vnd.ms-powerpoint;\n\tname="=?ISO-8859-1?Q?Main_presentation.ppt?="}; + warnings_like { + is( + RT::I18N::DecodeMIMEWordsToUTF8($str), + qq{application/vnd.ms-powerpoint;\tname="Main presentation.ppt"}, + "right decoding" + ); + } [qr/DecodeMIMEWordsTo.*?called without field name/i]; is( - RT::I18N::DecodeMIMEWordsToUTF8($str), - qq{application/vnd.ms-powerpoint;\tname="Main presentation.ppt"}, + RT::I18N::DecodeMIMEWordsToUTF8($str,'content-type'), + qq{application/vnd.ms-powerpoint; name="Main presentation.ppt"}, "right decoding" ); } @@ -97,54 +124,116 @@ inline; diag q{canonicalize mime word encodings like gb2312}; { my $str = qq{Subject: =?gb2312?B?1NrKwL3nuPe12Lmy09CzrN9eX1NpbXBsaWZpZWRfQ05fR0IyMzEyYQ==?= - =?gb2312?B?dHRhY2hlbWVudCB0ZXN0IGluIENOIHNpbXBsaWZpZWQ=?=}; +\t=?gb2312?B?dHRhY2hlbWVudCB0ZXN0IGluIENOIHNpbXBsaWZpZWQ=?=}; is( - RT::I18N::DecodeMIMEWordsToUTF8($str), + RT::I18N::DecodeMIMEWordsToUTF8($str, "Subject"), qq{Subject: 在世界各地共有超過_Simplified_CN_GB2312attachement test in CN simplified}, "right decoding" ); } - diag q{Whitespace between encoded words should be removed}; { - my $str = "=?utf-8?Q?=E3=82=AD?= =?utf-8?Q?=E3=83=A3?="; - is( - RT::I18N::DecodeMIMEWordsToUTF8($str), - "キャ", - "whitespace between encoded words is removed", - ); - - $str = "=?utf-8?Q?=E3=82=AD?= \n =?utf-8?Q?=E3=83=A3?="; - is( - RT::I18N::DecodeMIMEWordsToUTF8($str), - "キャ", - "newlines between encoded words also removed", - ); + warnings_like { + my $str = "=?utf-8?Q?=E3=82=AD?= =?utf-8?Q?=E3=83=A3?="; + is( + RT::I18N::DecodeMIMEWordsToUTF8($str), + "キャ", + "whitespace between encoded words is removed", + ); + + $str = "=?utf-8?Q?=E3=82=AD?= \n =?utf-8?Q?=E3=83=A3?="; + is( + RT::I18N::DecodeMIMEWordsToUTF8($str), + "キャ", + "newlines between encoded words also removed", + ); + } [(qr/DecodeMIMEWordsTo.*?called without field name/i) x 2]; } diag q{Multiple octets split across QP hunks are correctly reassembled}; { - # This passes even without explicit code to handle it because utf8 - # is perl's internal string encoding. - my $str = "=?utf-8?Q?=E3?= =?utf-8?Q?=82?= =?utf-8?Q?=AD?="; - is( - RT::I18N::DecodeMIMEWordsToUTF8($str), - "キ", - "UTF8 character split in three is successfully reassembled", - ); - - # Non-utf8 encodings thus also must be checked - $str = <<EOT; chomp $str; + warnings_like { + # This passes even without explicit code to handle it because utf8 + # is perl's internal string encoding. + my $str = "=?utf-8?Q?=E3?= =?utf-8?Q?=82?= =?utf-8?Q?=AD?="; + is( + RT::I18N::DecodeMIMEWordsToUTF8($str), + "キ", + "UTF8 character split in three is successfully reassembled", + ); + + # Non-utf8 encodings thus also must be checked + $str = <<EOT; chomp $str; =?gb2312?q?Chinese(gb2312)=20=20=C3=C0=B9=FA=C7=B0=CB=BE=B7=A8=B2=BF=B3?= =?gb2312?q?=A4=C3=E6=BC=FB=C8=F8=B4=EF=C4=B7=BA=F3=B3=C6=C6=E4=D7=B4=CC=AC?= =?gb2312?q?=BA=DC=BA=C3=20=20Chinese=20(gb2312)?= EOT - is( - RT::I18N::DecodeMIMEWordsToUTF8($str), - "Chinese(gb2312) 美国前司法部长面见萨达姆后称其状态很好 Chinese (gb2312)", - "gb2312 character is successfully reassembled", + is( + RT::I18N::DecodeMIMEWordsToUTF8($str), + "Chinese(gb2312) 美国前司法部长面见萨达姆后称其状态很好 Chinese (gb2312)", + "gb2312 character is successfully reassembled", + ); + } [(qr/DecodeMIMEWordsTo.*?called without field name/i) x 2]; +} + +diag "multiple mime words containing special chars already in quotes"; +{ + my $str = q{attachment; filename="=?ISO-2022-JP?B?Mi4bJEIlSyVlITwlOSVqJWohPCU5GyhC?= =?ISO-2022-JP?B?LnBkZg==?="}; + is_string( + RT::I18N::DecodeMIMEWordsToUTF8($str, 'Content-Disposition'), + q{attachment; filename="2.ニュースリリース.pdf"}, + "base64" ); + $str = q{attachment; filename="=?UTF-8?Q?2=2E=E3=83=8B=E3=83=A5=E3=83=BC=E3=82=B9=E3=83=AA=E3=83=AA?= =?UTF-8?Q?=E3=83=BC=E3=82=B9=2Epdf?="}; + is_string( + RT::I18N::DecodeMIMEWordsToUTF8($str, 'Content-Disposition'), + q{attachment; filename="2.ニュースリリース.pdf"}, + "QP" + ); } + +diag "mime word combined with text in quoted filename property"; +{ + my $str = q{attachment; filename="=?UTF-8?B?Q2VjaSBuJ2VzdCBwYXMgdW5l?= pipe.pdf"}; + is_string( + RT::I18N::DecodeMIMEWordsToUTF8($str, 'Content-Disposition'), + q{attachment; filename="Ceci n'est pas une pipe.pdf"}, + "base64" + ); + + $str = q{attachment; filename="=?UTF-8?B?Q2VjaSBuJ2VzdCBwYXMgdW5lLi4u?= pipe.pdf"}; + is_string( + RT::I18N::DecodeMIMEWordsToUTF8($str, 'Content-Disposition'), + q{attachment; filename="Ceci n'est pas une... pipe.pdf"}, + "base64" + ); + + $str = q{attachment; filename="=?UTF-8?Q?Ceci n'est pas une?= pipe.pdf"}; + is_string( + RT::I18N::DecodeMIMEWordsToUTF8($str, 'Content-Disposition'), + q{attachment; filename="Ceci n'est pas une pipe.pdf"}, + "QP" + ); + + $str = q{attachment; filename="=?UTF-8?Q?Ceci n'est pas une...?= pipe.pdf"}; + is_string( + RT::I18N::DecodeMIMEWordsToUTF8($str, 'Content-Disposition'), + q{attachment; filename="Ceci n'est pas une... pipe.pdf"}, + "QP" + ); +} + +diag "quotes in filename"; +{ + my $str = q{attachment; filename="=?UTF-8?B?YSAicXVvdGVkIiBmaWxl?="}; + is_string( + RT::I18N::DecodeMIMEWordsToUTF8($str, 'Content-Disposition'), + q{attachment; filename="a \"quoted\" file"}, + "quoted filename correctly decoded" + ); +} + +done_testing; |