t/02_common.t

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