remove Email::Address dependency

[public-inbox.git] / t / mda.t

diff --git a/t/mda.t b/t/mda.t
index ad6a09139c6f74503411a513f0b405736d99bbba..fdba967204c310b333e406aa3f687776e5963be7 100644 (file)
--- 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),