t/02_common.t

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