Commit | Line | Data |
742555bd |
1 | # |
7828f908 |
2 | # $Id: mime-name.t,v 1.1 2007/05/12 06:42:19 dankogai Exp $ |
742555bd |
3 | # This script is written in utf8 |
4 | # |
5 | BEGIN { |
6 | if ($ENV{'PERL_CORE'}){ |
7 | chdir 't'; |
8 | unshift @INC, '../lib'; |
9 | } |
10 | require Config; import Config; |
11 | if ($Config{'extensions'} !~ /\bEncode\b/) { |
12 | print "1..0 # Skip: Encode was not built\n"; |
13 | exit 0; |
14 | } |
15 | if (ord("A") == 193) { |
16 | print "1..0 # Skip: EBCDIC\n"; |
17 | exit 0; |
18 | } |
19 | $| = 1; |
20 | } |
21 | |
22 | use strict; |
23 | use warnings; |
24 | use Encode; |
25 | #use Test::More qw(no_plan); |
26 | use Test::More tests => 68; |
27 | |
28 | use_ok("Encode::MIME::Name"); |
29 | for my $canon ( sort keys %Encode::MIME::Name::MIME_NAME_OF ) { |
30 | my $enc = find_encoding($canon); |
31 | my $mime_name = $Encode::MIME::Name::MIME_NAME_OF{$canon}; |
32 | is $enc->mime_name, $mime_name, |
33 | qq(\$enc->mime_name("$canon") eq $mime_name); |
34 | } |
35 | |
36 | __END__; |