rt/t/mail/mime_decoding.t

   1 #!/usr/bin/perl
   2 use strict;
   3 use warnings;
   4 use RT::Test nodb => 1, tests => 9;
   5
   6 use_ok('RT::I18N');
   7
   8 diag q{'=' char in a leading part before an encoded part};
   9 {
  10     my $str = 'key="plain"; key="=?UTF-8?B?0LzQvtC5X9GE0LDQudC7LmJpbg==?="';
  11     is(
  12         RT::I18N::DecodeMIMEWordsToUTF8($str),
  13         'key="plain"; key="мой_файл.bin"',
  14         "right decoding"
  15     );
  16 }
  17
  18 diag q{not compliant with standards, but MUAs send such field when attachment has non-ascii in name};
  19 {
  20     my $str = 'attachment; filename="=?UTF-8?B?0LzQvtC5X9GE0LDQudC7LmJpbg==?="';
  21     is(
  22         RT::I18N::DecodeMIMEWordsToUTF8($str),
  23         'attachment; filename="мой_файл.bin"',
  24         "right decoding"
  25     );
  26 }
  27
  28 diag q{'=' char in a trailing part after an encoded part};
  29 {
  30     my $str = 'attachment; filename="=?UTF-8?B?0LzQvtC5X9GE0LDQudC7LmJpbg==?="; some_prop="value"';
  31     is(
  32         RT::I18N::DecodeMIMEWordsToUTF8($str),
  33         'attachment; filename="мой_файл.bin"; some_prop="value"',
  34         "right decoding"
  35     );
  36 }
  37
  38 diag q{regression test for #5248 from rt3.fsck.com};
  39 {
  40     my $str = qq{Subject: =?ISO-8859-1?Q?Re=3A_=5BXXXXXX=23269=5D_=5BComment=5D_Frag?=}
  41         . qq{\n =?ISO-8859-1?Q?e_zu_XXXXXX--xxxxxx_/_Xxxxx=FCxxxxxxxxxx?=};
  42     is(
  43         RT::I18N::DecodeMIMEWordsToUTF8($str),
  44         qq{Subject: Re: [XXXXXX#269] [Comment] Frage zu XXXXXX--xxxxxx / Xxxxxüxxxxxxxxxx},
  45         "right decoding"
  46     );
  47 }
  48
  49 diag q{newline and encoded file name};
  50 {
  51     my $str = qq{application/vnd.ms-powerpoint;\n\tname="=?ISO-8859-1?Q?Main_presentation.ppt?="};
  52     is(
  53         RT::I18N::DecodeMIMEWordsToUTF8($str),
  54         qq{application/vnd.ms-powerpoint;\tname="Main presentation.ppt"},
  55         "right decoding"
  56     );
  57 }
  58
  59 diag q{rfc2231};
  60 {
  61     my $str =
  62 "attachment; filename*=ISO-8859-1''%74%E9%73%74%2E%74%78%74";
  63     is(
  64         RT::I18N::DecodeMIMEWordsToEncoding( $str, 'utf-8', 'Content-Disposition' ),
  65         'attachment; filename="tést.txt"',
  66         'right decoding'
  67     );
  68 }
  69
  70 diag q{rfc2231 param continuations};
  71 {
  72     # XXX TODO: test various forms of the continuation stuff
  73     #       quotes around the values
  74     my $hdr = <<'.';
  75 inline;
  76  filename*0*=ISO-2022-JP'ja'%1b$B%3f7$7$$%25F%25%2d%259%25H%1b%28B;
  77  filename*1*=%20;
  78  filename*2*=%1b$B%25I%25%2d%25e%25a%25s%25H%1b%28B;
  79  filename*3=.txt
  80 .
  81     is(
  82         RT::I18N::DecodeMIMEWordsToEncoding( $hdr, 'utf-8', 'Content-Disposition' ),
  83         'inline; filename="新しいテキスト ドキュメント.txt"',
  84         'decoded continuations as one string'
  85     );
  86 }
  87
  88 diag q{canonicalize mime word encodings like gb2312};
  89 {
  90     my $str = qq{Subject: =?gb2312?B?1NrKwL3nuPe12Lmy09CzrN9eX1NpbXBsaWZpZWRfQ05fR0IyMzEyYQ==?=
  91         =?gb2312?B?dHRhY2hlbWVudCB0ZXN0IGluIENOIHNpbXBsaWZpZWQ=?=};
  92
  93     is(
  94         RT::I18N::DecodeMIMEWordsToUTF8($str),
  95         qq{Subject: 在世界各地共有超過_Simplified_CN_GB2312attachement test in CN simplified},
  96         "right decoding"
  97     );
  98 }
  99