|
Packit |
243254 |
use strict;
|
|
Packit |
243254 |
use Test;
|
|
Packit |
243254 |
|
|
Packit |
243254 |
BEGIN { plan tests => 4 }
|
|
Packit |
243254 |
|
|
Packit |
243254 |
use MIME::Charset qw(:info);
|
|
Packit |
243254 |
|
|
Packit |
243254 |
ok(body_encoding("iso-8859-2"), "Q", body_encoding("iso-8859-2"));
|
|
Packit |
243254 |
ok(canonical_charset("ANSI X3.4-1968"), "US-ASCII",
|
|
Packit |
243254 |
canonical_charset("ANSI X3.4-1968"));
|
|
Packit |
243254 |
ok(header_encoding("utf-8"), "S", header_encoding("utf-8"));
|
|
Packit |
243254 |
if (MIME::Charset::USE_ENCODE) {
|
|
Packit |
243254 |
ok(output_charset("shift_jis"), "ISO-2022-JP",
|
|
Packit |
243254 |
output_charset("shift_jis"));
|
|
Packit |
243254 |
} else {
|
|
Packit |
243254 |
ok(output_charset("shift_jis"), "SHIFT_JIS", output_charset("shift_jis"));
|
|
Packit |
243254 |
}
|