+local $ENV{GIT_COMMITTER_NAME} = eval {
+ use PublicInbox::MDA;
+ use Encode qw/encode/;
+ my $mbox = 't/utf8.mbox';
+ open(my $fh, '<', $mbox) or die "failed to open mbox: $mbox\n";
+ my $str = eval { local $/; <$fh> };
+ close $fh;
+ my $msg = Email::Filter->new(data => $str);
+ $msg = Email::MIME->new($msg->simple->as_string);
+ my ($author, $email, $date) = PublicInbox::MDA->author_info($msg);
+ is('Eléanor',
+ encode('us-ascii', my $tmp = $author, Encode::HTMLCREF),
+ 'HTML conversion is correct');
+ is($email, 'e@example.com', 'email parsed correctly');
+ is($date, 'Thu, 01 Jan 1970 00:00:00 +0000',
+ 'message date parsed correctly');
+ $author;
+};
+die $@ if $@;
+