rt/t/api/i18n_mime_encoding.t

   1 use warnings;
   2 use strict;
   3
   4 use RT::Test nodata => 1, tests => undef;
   5 use RT::I18N;
   6 use Test::Warn;
   7
   8 diag "normal mime encoding conversion: utf8 => iso-8859-1";
   9 {
  10     my $mime = MIME::Entity->build(
  11         Type => 'text/plain; charset=utf-8',
  12         Data => ['À中文'],
  13     );
  14
  15     warning_like {
  16         RT::I18N::SetMIMEEntityToEncoding( $mime, 'iso-8859-1', );
  17     }
  18     [ qr/does not map to iso-8859-1/ ], 'got one "not map" error';
  19     is( $mime->stringify_body, 'À中文', 'body is not changed' );
  20     is( $mime->head->mime_attr('Content-Type'), 'application/octet-stream' );
  21 }
  22
  23 diag "mime encoding conversion: utf8 => iso-8859-1";
  24 {
  25     my $mime = MIME::Entity->build(
  26         Type => 'text/plain; charset=utf-8',
  27         Data => ['À中文'],
  28     );
  29     is( $mime->stringify_body, 'À中文', 'body is not changed' );
  30 }
  31
  32 done_testing;