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