File: 02enclen.t

package info (click to toggle)
libmime-charset-perl 1.011.1-1
  • links: PTS, VCS
  • area: main
  • in suites: jessie-kfreebsd
  • size: 316 kB
  • sloc: perl: 2,665; makefile: 2
file content (11 lines) | stat: -rw-r--r-- 363 bytes parent folder | download | duplicates (8) 
1
2
3
4
5
6
7
8
9
10
11
 
use strict;
use Test;

BEGIN { plan tests => 3 }

use MIME::Charset qw(:trans);

my $s = "Perl: \xe8\xa8\x80\xe8\xaa\x9e";
ok(encoded_header_len($s,"b","utf-8"), 28, encoded_header_len($s,"b","utf-8"));
ok(encoded_header_len($s,"q","utf-8"), 38, encoded_header_len($s,"q","utf-8"));
ok(encoded_header_len($s,"s","utf-8"), 28, encoded_header_len($s,"s","utf-8"));