]> git.donarmstrong.com Git - debbugs.git/blob - t/02_common.t
change convert_to_utf8 to attempt to fix doubly encoded things
[debbugs.git] / 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          );