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