File: 02_common.t

package info (click to toggle)
debbugs 2.6.4
  • links: PTS, VCS
  • area: main
  • in suites: forky, sid, trixie
  • size: 1,800 kB
  • sloc: perl: 19,270; makefile: 81; sh: 75
file content (15 lines) | stat: -rw-r--r-- 333 bytes parent folder | download 
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
 
# -*- mode: cperl;-*-

use Test::More tests => 3;
use Encode qw(decode_utf8);

use_ok('Debbugs::Common');
use_ok('Debbugs::UTF8');
is_deeply(Debbugs::UTF8::encode_utf8_structure(
          {a => decode_utf8('föö'),
	   b => [map {decode_utf8($_)} qw(blëh bl♥h)],
	  }),
	  {a => 'föö',
	   b => [qw(blëh bl♥h)],
	  },
	 );