X-Git-Url: http://www.git.stargrave.org/?a=blobdiff_plain;f=t%2Ffeed.t;h=cdbc88cd92cd6a51d5a02ea0960323bf31940cfb;hb=af0b0fb7a454470a32c452119d0392e0dedb3fe1;hp=ffd5ca7e71f86dc9a37ba5d1865dc38e11619f5a;hpb=4bebfa0c80ad7f4596a7dca98b39121470a42af0;p=public-inbox.git diff --git a/t/feed.t b/t/feed.t index ffd5ca7e..cdbc88cd 100644 --- a/t/feed.t +++ b/t/feed.t @@ -1,9 +1,9 @@ -# Copyright (C) 2014-2020 all contributors +# Copyright (C) 2014-2021 all contributors # License: AGPL-3.0+ use strict; use warnings; use Test::More; -use Email::MIME; +use PublicInbox::Eml; use PublicInbox::Feed; use PublicInbox::Import; use PublicInbox::Inbox; @@ -35,10 +35,8 @@ my $im = PublicInbox::Import->new($git, $ibx->{name}, 'test@example'); { $im->init_bare; - local $ENV{GIT_DIR} = $git_dir; - foreach my $i (1..6) { - my $mime = Email::MIME->new(<new(< To: U Message-Id: <$i\@example.com> @@ -77,7 +75,7 @@ EOF { # check initial feed { - my $feed = string_feed({ -inbox => $ibx }); + my $feed = string_feed({ ibx => $ibx }); SKIP: { skip 'XML::TreePP missing', 3 unless $have_xml_treepp; my $t = XML::TreePP->new->parse($feed); @@ -97,7 +95,7 @@ EOF # add a new spam message my $spam; { - $spam = Email::MIME->new(<new(< To: U Message-Id: @@ -111,7 +109,7 @@ EOF # check spam shows up { - my $spammy_feed = string_feed({ -inbox => $ibx }); + my $spammy_feed = string_feed({ ibx => $ibx }); SKIP: { skip 'XML::TreePP missing', 2 unless $have_xml_treepp; my $t = XML::TreePP->new->parse($spammy_feed); @@ -129,7 +127,7 @@ EOF # spam no longer shows up { - my $feed = string_feed({ -inbox => $ibx }); + my $feed = string_feed({ ibx => $ibx }); SKIP: { skip 'XML::TreePP missing', 2 unless $have_xml_treepp; my $t = XML::TreePP->new->parse($feed);