1use strict;
2use Test;
3
4BEGIN { plan tests => 4 }
5
6use MIME::Charset qw(:info);
7
8my $obj;
9$obj = MIME::Charset->new("iso-8859-2");
10ok($obj->body_encoding, "Q", $obj->body_encoding);
11$obj = MIME::Charset->new("ANSI X3.4-1968");
12ok($obj->canonical_charset, "US-ASCII", $obj->canonical_charset);
13$obj = MIME::Charset->new("utf-8");
14ok($obj->header_encoding, "S", $obj->header_encoding);
15$obj = MIME::Charset->new("shift_jis");
16if (MIME::Charset::USE_ENCODE) {
17    ok($obj->output_charset, "ISO-2022-JP", $obj->output_charset);
18} else {
19    ok($obj->output_charset, "SHIFT_JIS", $obj->output_charset);
20}
21