t/02_common.t

   1 # -*- mode: cperl;-*-
   2
   3 use Test::More tests => 2;
   4 use Encode qw(decode_utf8);
   5
   6 use_ok('Debbugs::Common');
   7 is_deeply(Debbugs::Common::encode_utf8_structure(
   8           {a => decode_utf8('föö'),
   9            b => [map {decode_utf8($_)} qw(blëh bl♥h)],
  10           }),
  11           {a => 'föö',
  12            b => [qw(blëh bl♥h)],
  13           },
  14          );