1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
|
use v5.12;
use warnings;
# This test graciously donated by Tatsuhiko Miyagawa. All praise MIYAGAWA!
use Test::More;
plan skip_all => "Encode and Encode::MIME::Header required for these tests"
unless eval { require Encode; require Encode::MIME::Header; 1 };
use Email::Address;
Encode->import;
Encode::MIME::Header->import;
my $name = "\x{30c6}\x{30b9}\x{30c8}"; # "Test" in Unicode Japanese
my $mime = encode("MIME-Header", $name);
my $addr = Email::Address->new($mime => 'foo@example.com');
like $addr->format, qr/^=\?UTF-8/;
unlike $addr->format, qr/^"=\?/;
done_testing;
|
