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