merging 3.8.7!!!

[freeside.git] / rt / lib / t / regression / 06-mime_decoding.t

diff --git a/rt/lib/t/regression/06-mime_decoding.t b/rt/lib/t/regression/06-mime_decoding.t
deleted file mode 100644 (file)
index 2dca4f1..0000000
--- a/rt/lib/t/regression/06-mime_decoding.t
+++ /dev/null
@@ -1,64 +0,0 @@
-#!/usr/bin/perl
-use strict;
-use warnings;
-use Test::More tests => 7;
-
-use_ok("RT");
-
-RT::LoadConfig();
-RT::Init();
-
-use_ok('RT::I18N');
-
-diag q{'=' char in a leading part before an encoded part} if $ENV{TEST_VERBOSE};
-{
-    my $str = 'key="plain"; key="=?UTF-8?B?0LzQvtC5X9GE0LDQudC7LmJpbg==?="';
-    is(
-        RT::I18N::DecodeMIMEWordsToUTF8($str),
-        'key="plain"; key="мой_файл.bin"',
-        "right decoding"
-    );
-}
-
-diag q{not compliant with standards, but MUAs send such field when attachment has non-ascii in name}
-    if $ENV{TEST_VERBOSE};
-{
-    my $str = 'attachment; filename="=?UTF-8?B?0LzQvtC5X9GE0LDQudC7LmJpbg==?="';
-    is(
-        RT::I18N::DecodeMIMEWordsToUTF8($str),
-        'attachment; filename="мой_файл.bin"',
-        "right decoding"
-    );
-}
-
-diag q{'=' char in a trailing part after an encoded part} if $ENV{TEST_VERBOSE};
-{
-    my $str = 'attachment; filename="=?UTF-8?B?0LzQvtC5X9GE0LDQudC7LmJpbg==?="; some_prop="value"';
-    is(
-        RT::I18N::DecodeMIMEWordsToUTF8($str),
-        'attachment; filename="мой_файл.bin"; some_prop="value"',
-        "right decoding"
-    );
-}
-
-diag q{regression test for #5248 from rt3.fsck.com} if $ENV{TEST_VERBOSE};
-{
-    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),
-        qq{Subject: Re: [XXXXXX#269] [Comment] Frage zu XXXXXX--xxxxxx / Xxxxxüxxxxxxxxxx},
-        "right decoding"
-    );
-}
-
-diag q{newline and encoded file name} if $ENV{TEST_VERBOSE};
-{
-    my $str = qq{application/vnd.ms-powerpoint;\n\tname="=?ISO-8859-1?Q?Main_presentation.ppt?="};
-    is(
-        RT::I18N::DecodeMIMEWordsToUTF8($str),
-        qq{application/vnd.ms-powerpoint;\tname="Main presentation.ppt"},
-        "right decoding"
-    );
-}
-