diff options
Diffstat (limited to 'rt/t/mail/mime_decoding.t')
| -rw-r--r-- | rt/t/mail/mime_decoding.t | 54 |
1 files changed, 47 insertions, 7 deletions
diff --git a/rt/t/mail/mime_decoding.t b/rt/t/mail/mime_decoding.t index 8257aee80..7515e2c41 100644 --- a/rt/t/mail/mime_decoding.t +++ b/rt/t/mail/mime_decoding.t @@ -1,11 +1,11 @@ #!/usr/bin/perl use strict; use warnings; -use RT::Test nodata => 1, tests => 6; +use RT::Test nodb => 1, tests => 9; use_ok('RT::I18N'); -diag q{'=' char in a leading part before an encoded part} if $ENV{TEST_VERBOSE}; +diag q{'=' char in a leading part before an encoded part}; { my $str = 'key="plain"; key="=?UTF-8?B?0LzQvtC5X9GE0LDQudC7LmJpbg==?="'; is( @@ -15,8 +15,7 @@ diag q{'=' char in a leading part before an encoded part} if $ENV{TEST_VERBOSE}; ); } -diag q{not compliant with standards, but MUAs send such field when attachment has non-ascii in name} - if $ENV{TEST_VERBOSE}; +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==?="'; is( @@ -26,7 +25,7 @@ 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} if $ENV{TEST_VERBOSE}; +diag q{'=' char in a trailing part after an encoded part}; { my $str = 'attachment; filename="=?UTF-8?B?0LzQvtC5X9GE0LDQudC7LmJpbg==?="; some_prop="value"'; is( @@ -36,7 +35,7 @@ diag q{'=' char in a trailing part after an encoded part} if $ENV{TEST_VERBOSE}; ); } -diag q{regression test for #5248 from rt3.fsck.com} if $ENV{TEST_VERBOSE}; +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?=}; @@ -47,7 +46,7 @@ diag q{regression test for #5248 from rt3.fsck.com} if $ENV{TEST_VERBOSE}; ); } -diag q{newline and encoded file name} if $ENV{TEST_VERBOSE}; +diag q{newline and encoded file name}; { my $str = qq{application/vnd.ms-powerpoint;\n\tname="=?ISO-8859-1?Q?Main_presentation.ppt?="}; is( @@ -57,3 +56,44 @@ diag q{newline and encoded file name} if $ENV{TEST_VERBOSE}; ); } +diag q{rfc2231}; +{ + my $str = +"attachment; filename*=ISO-8859-1''%74%E9%73%74%2E%74%78%74"; + is( + RT::I18N::DecodeMIMEWordsToEncoding( $str, 'utf-8', 'Content-Disposition' ), + 'attachment; filename="tést.txt"', + 'right decoding' + ); +} + +diag q{rfc2231 param continuations}; +{ + # XXX TODO: test various forms of the continuation stuff + # quotes around the values + my $hdr = <<'.'; +inline; + filename*0*=ISO-2022-JP'ja'%1b$B%3f7$7$$%25F%25%2d%259%25H%1b%28B; + filename*1*=%20; + filename*2*=%1b$B%25I%25%2d%25e%25a%25s%25H%1b%28B; + filename*3=.txt +. + is( + RT::I18N::DecodeMIMEWordsToEncoding( $hdr, 'utf-8', 'Content-Disposition' ), + 'inline; filename="新しいテキスト ドキュメント.txt"', + 'decoded continuations as one string' + ); +} + +diag q{canonicalize mime word encodings like gb2312}; +{ + my $str = qq{Subject: =?gb2312?B?1NrKwL3nuPe12Lmy09CzrN9eX1NpbXBsaWZpZWRfQ05fR0IyMzEyYQ==?= + =?gb2312?B?dHRhY2hlbWVudCB0ZXN0IGluIENOIHNpbXBsaWZpZWQ=?=}; + + is( + RT::I18N::DecodeMIMEWordsToUTF8($str), + qq{Subject: 在世界各地共有超過_Simplified_CN_GB2312attachement test in CN simplified}, + "right decoding" + ); +} + |