File: 02ooenclen.t

package info (click to toggle)
libmime-charset-perl 1.006.2-2
  • links: PTS, VCS
  • area: main
  • in suites: lenny
  • size: 200 kB
  • ctags: 40
  • sloc: perl: 627; makefile: 41
file content (13 lines) | stat: -rw-r--r-- 458 bytes parent folder | download | duplicates (8) 
1
2
3
4
5
6
7
8
9
10
11
12
13
 
use strict;
use Test;

BEGIN { plan tests => 4 }

use MIME::Charset qw(:trans);

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