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);