|
Packit |
243254 |
use strict;
|
|
Packit |
243254 |
use Test;
|
|
Packit |
243254 |
|
|
Packit |
243254 |
BEGIN { plan tests => 4 }
|
|
Packit |
243254 |
|
|
Packit |
243254 |
use MIME::Charset qw(:trans);
|
|
Packit |
243254 |
|
|
Packit |
243254 |
my $s = "Perl: \xe8\xa8\x80\xe8\xaa\x9e";
|
|
Packit |
243254 |
my $obj = MIME::Charset->new("utf-8");
|
|
Packit |
243254 |
ok($obj->encoded_header_len($s), 28, $obj->encoded_header_len($s));
|
|
Packit |
243254 |
ok($obj->encoded_header_len($s,"b"), 28, $obj->encoded_header_len($s,"b"));
|
|
Packit |
243254 |
ok($obj->encoded_header_len($s,"q"), 38, $obj->encoded_header_len($s,"q"));
|
|
Packit |
243254 |
ok($obj->encoded_header_len($s,"s"), 28, $obj->encoded_header_len($s,"s"));
|