X-Git-Url: http://www.git.stargrave.org/?p=public-inbox.git;a=blobdiff_plain;f=t%2Fmda.t;h=fdba967204c310b333e406aa3f687776e5963be7;hp=ad6a09139c6f74503411a513f0b405736d99bbba;hb=23a4e44bedabe5b8b651346cabc2a870c5377a30;hpb=64aea34d06f71828b0bdd6ae177b9bcf22d752b4

diff --git a/t/mda.t b/t/mda.t
index ad6a0913..fdba9672 100644
--- a/t/mda.t
+++ b/t/mda.t
@@ -48,6 +48,7 @@ my $mime;
 
 local $ENV{GIT_COMMITTER_NAME} = eval {
 	use PublicInbox::MDA;
+	use PublicInbox::Address;
 	use Encode qw/encode/;
 	my $mbox = 't/utf8.mbox';
 	open(my $fh, '<', $mbox) or die "failed to open mbox: $mbox\n";
@@ -57,10 +58,9 @@ local $ENV{GIT_COMMITTER_NAME} = eval {
 	$msg = Email::MIME->new($msg->simple->as_string);
 
 	my $from = $msg->header('From');
-	my @from = Email::Address->parse($from);
-	my $author = $from[0]->name;
-	my $email = $from[0]->address;
-	my $date = $msg ->header('Date');
+	my $author = PublicInbox::Address::from_name($from);
+	my ($email) = PublicInbox::Address::emails($from);
+	my $date = $msg->header('Date');
 
 	is('El&#233;anor',
 		encode('us-ascii', my $tmp = $author, Encode::HTMLCREF),