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