X-Git-Url: http://www.git.stargrave.org/?a=blobdiff_plain;f=t%2Ffeed.t;h=cdbc88cd92cd6a51d5a02ea0960323bf31940cfb;hb=af0b0fb7a454470a32c452119d0392e0dedb3fe1;hp=cfa09a7c68eae9549668c40b07589d8b20d6c3c4;hpb=a3cf35c675217ea60a461dd9be7cc5b55c2d5280;p=public-inbox.git diff --git a/t/feed.t b/t/feed.t index cfa09a7c..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; @@ -34,11 +34,9 @@ my $git = $ibx->git; my $im = PublicInbox::Import->new($git, $ibx->{name}, 'test@example'); { - is(0, system(qw(git init -q --bare), $git_dir), "git init"); - local $ENV{GIT_DIR} = $git_dir; - + $im->init_bare; 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);