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