use utf8;
use Test::More tests => 1 + 2;
BEGIN {
use_ok('Email::MIME::RFC2047::Address');
};
my @tests = (
'"Group 1 (Test)": =?ISO-8859-1?Q?Keld_J=F8rn_Simonsen?= <keld@dkuug.dk>, =?ISO-8859-1?Q?Andr=E9?= Pirard <PIRARD@vm1.ulg.ac.be>;',
{
name => 'Group 1 (Test)',
mailbox_list => [
{ name => 'Keld Jørn Simonsen', address => 'keld@dkuug.dk' },
{ name => 'André Pirard', address => 'PIRARD@vm1.ulg.ac.be' },
],
},
'undisclosed-recipients:;',
{
name => 'undisclosed-recipients',
mailbox_list => [],
},
);
for(my $i=0; $i<@tests; $i+=2) {
my ($string, $expect) = ($tests[$i], $tests[$i+1]);
my $address = Email::MIME::RFC2047::Address->parse($string);
is_deeply($address, $expect, "parse address $string");
}