X-Git-Url: http://www.git.stargrave.org/?a=blobdiff_plain;f=t%2Freply.t;h=0b8e1f38f720b6c2e9d631df4c71878d80f2acbf;hb=af0b0fb7a454470a32c452119d0392e0dedb3fe1;hp=719b4e47565f06d3365ae43562e3c4ffcf657e4a;hpb=666844ae42b5b17fd2e9b7ea6cf04727487b5322;p=public-inbox.git diff --git a/t/reply.t b/t/reply.t index 719b4e47..0b8e1f38 100644 --- a/t/reply.t +++ b/t/reply.t @@ -1,9 +1,9 @@ -# Copyright (C) 2017 all contributors +# Copyright (C) 2017-2021 all contributors # License: AGPL-3+ use strict; use warnings; use Test::More; -use Email::MIME; +use PublicInbox::Eml; use_ok 'PublicInbox::Reply'; my @q = ( @@ -19,7 +19,7 @@ while (@q) { is($res, $expect, "quote $input => $res"); } -my $mime = Email::MIME->new(<<'EOF'); +my $mime = PublicInbox::Eml->new(<<'EOF'); From: from To: to Cc: cc@example.com @@ -76,4 +76,9 @@ $exp = [ is_deeply($arg, $exp, 'address obfuscation works'); is($link, '', 'no mailto: link given'); +$ibx->{replyto} = ':none=dead list'; +$ibx->{obfuscate} = 1; +($arg, $link) = PublicInbox::Reply::mailto_arg_link($ibx, $hdr); +is($$arg, 'dead list', ':none= works'); + done_testing();