1# 2# $Id: mime-name.t,v 1.3 2017/10/06 22:21:53 dankogai Exp $ 3# This script is written in utf8 4# 5BEGIN { 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 22use strict; 23use warnings; 24use Encode; 25#use Test::More qw(no_plan); 26use Test::More tests => 281; 27 28BEGIN { 29 use_ok("Encode::MIME::Name"); 30} 31 32for my $canon ( sort keys %Encode::MIME::Name::MIME_NAME_OF ) { 33 my $enc = find_encoding($canon); 34 my $mime_name = $Encode::MIME::Name::MIME_NAME_OF{$canon}; 35 is $enc->mime_name, $mime_name, 36 qq(find_encoding($canon)->mime_name eq $mime_name); 37 is $enc->name, $canon, 38 qq(find_encoding($canon)->name eq $canon); 39} 40for my $mime_name ( sort keys %Encode::MIME::Name::ENCODE_NAME_OF ) { 41 my $enc = find_mime_encoding($mime_name); 42 my $canon = $Encode::MIME::Name::ENCODE_NAME_OF{$mime_name}; 43 my $mime_name = $Encode::MIME::Name::MIME_NAME_OF{$canon}; 44 is $enc->mime_name, $mime_name, 45 qq(find_mime_encoding($mime_name)->mime_name eq $mime_name); 46 is $enc->name, $canon, 47 qq(find_mime_encoding($mime_name)->name eq $canon); 48} 49 50ok find_encoding("utf8"); 51ok find_encoding("UTF8"); 52ok find_encoding("utf-8-strict"); 53ok find_encoding("utf-8"); 54ok find_encoding("UTF-8"); 55 56ok not find_mime_encoding("utf8"); 57ok not find_mime_encoding("UTF8"); 58ok not find_mime_encoding("utf-8-strict"); 59ok find_mime_encoding("utf-8"); 60ok find_mime_encoding("UTF-8"); 61 62__END__; 63