4 use RT::Test nodata => 1, tests => 11;
15 for my $charset ( keys %map ) {
16 is( RT::I18N::_CanonicalizeCharset($charset),
17 $map{$charset}, "$charset => $map{$charset}" );
18 is( RT::I18N::_CanonicalizeCharset( uc $charset ),
19 $map{$charset}, uc( $charset ) . " => $map{$charset}" );
22 my $mime = MIME::Entity->build(
23 Type => 'text/plain; charset=gb2312',
24 Data => [Encode::encode("gbk", Encode::decode( "UTF-8", "法新社倫敦11日電"))],
27 RT::I18N::SetMIMEEntityToUTF8($mime);
28 is( $mime->stringify_body, '法新社倫敦11日電', 'gb2312 => gbk in mail' );