X-Git-Url: http://www.git.stargrave.org/?a=blobdiff_plain;f=t%2Ffeed.t;h=ec8a5a42e9ae3ee635a6f592e64e8789efd66bfb;hb=55b707d788ce13696e4411389583e720ea6dab01;hp=eb1f35fb0158e6aa357b4f07cde8927040b8a300;hpb=fece7fca6aeac74410a813cffcb0da338017d0ed;p=public-inbox.git diff --git a/t/feed.t b/t/feed.t index eb1f35fb..ec8a5a42 100644 --- a/t/feed.t +++ b/t/feed.t @@ -5,25 +5,29 @@ use warnings; use Test::More; use Email::MIME; use PublicInbox::Feed; -use PublicInbox::Git; use PublicInbox::Import; -use PublicInbox::Config; use PublicInbox::Inbox; -use File::Temp qw/tempdir/; my $have_xml_feed = eval { require XML::Feed; 1 }; -require './t/common.perl'; +use PublicInbox::TestCommon; sub string_feed { - stream_to_string(PublicInbox::Feed::generate($_[0])); + my $res = PublicInbox::Feed::generate($_[0]); + my $body = $res->[2]; + my $str = ''; + while (defined(my $chunk = $body->getline)) { + $str .= $chunk; + } + $body->close; + $str; } -my $tmpdir = tempdir('pi-feed-XXXXXX', TMPDIR => 1, CLEANUP => 1); +my ($tmpdir, $for_destroy) = tmpdir(); my $git_dir = "$tmpdir/gittest"; my $ibx = PublicInbox::Inbox->new({ address => 'test@example', name => 'testbox', inboxdir => $git_dir, - url => 'http://example.com/test', + url => [ 'http://example.com/test' ], feedmax => 3, }); my $git = $ibx->git;