X-Git-Url: http://www.git.stargrave.org/?p=public-inbox.git;a=blobdiff_plain;f=t%2Ffeed.t;h=7d01e3e6524c50c491690bc100e460c9abc3de18;hp=63fcc443143f1f40e7e5463f5181da495c8fbc85;hb=4bd22e9528484c5d964ecba277fd6a7d5e023461;hpb=7c69497a0126cd613053d881d63586bead07dd0e diff --git a/t/feed.t b/t/feed.t index 63fcc443..7d01e3e6 100644 --- a/t/feed.t +++ b/t/feed.t @@ -1,28 +1,42 @@ -# Copyright (C) 2014, Eric Wong and all contributors -# License: AGPLv3 or later (https://www.gnu.org/licenses/agpl-3.0.txt) +# Copyright (C) 2014-2020 all contributors +# License: AGPL-3.0+ use strict; use warnings; use Test::More; -use Email::Simple; +use Email::MIME; use PublicInbox::Feed; -use File::Temp qw/tempdir/; -my $have_xml_feed = eval { require XML::Feed; 1 }; +use PublicInbox::Import; +use PublicInbox::Inbox; +my $have_xml_treepp = eval { require XML::TreePP; 1 }; +use PublicInbox::TestCommon; + +sub string_feed { + 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(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' ], + feedmax => 3, +}); +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 $pid = open(my $pipe, "|-"); - defined $pid or die "fork/pipe failed: $!\n"; - if ($pid == 0) { - exec("ssoma-mda", $git_dir); - } - - my $simple = Email::Simple->new(<new(< To: U Message-Id: <$i\@example.com> @@ -31,29 +45,49 @@ Date: Thu, 01 Jan 1970 00:00:00 +0000 > This is a long multi line quote so it should not be allowed to > show up in its entirty in the Atom feed. drop me +> I quote to much +> I quote to much +> I quote to much +> I quote to much +> I quote to much +> I quote to much +> I quote to much +> I quote to much +> I quote to much +> I quote to much +> I quote to much +> I quote to much +> I quote to much msg $i -> inline me here, short quote +> inline me here +> this is a short quote keep me EOF - print $pipe $simple->as_string or die "print failed: $!\n"; - close $pipe or die "close pipe failed: $!\n"; + like($im->add($mime), qr/\A:\d+/, 'added'); } + $im->done; +} +# spam check +{ # check initial feed { - my $feed = PublicInbox::Feed->generate({ - git_dir => $git_dir, - max => 3 - }); - if ($have_xml_feed) { - my $p = XML::Feed->parse(\$feed); - is($p->format, "Atom", "parsed atom feed"); - is(scalar $p->entries, 3, "parsed three entries"); + my $feed = string_feed({ -inbox => $ibx }); + SKIP: { + skip 'XML::TreePP missing', 3 unless $have_xml_treepp; + my $t = XML::TreePP->new->parse($feed); + like($t->{feed}->{-xmlns}, qr/\bAtom\b/, + 'looks like an an Atom feed'); + is(scalar @{$t->{feed}->{entry}}, 3, + 'parsed three entries'); + is($t->{feed}->{id}, 'mailto:test@example', + 'id is set to default'); } - unlike($feed, qr/drop me/, "long quoted text dropped"); + + like($feed, qr/drop me/, "long quoted text kept"); like($feed, qr/inline me here/, "short quoted text kept"); like($feed, qr/keep me/, "unquoted text saved"); } @@ -61,13 +95,7 @@ EOF # add a new spam message my $spam; { - my $pid = open(my $pipe, "|-"); - defined $pid or die "fork/pipe failed: $!\n"; - if ($pid == 0) { - exec("ssoma-mda", $git_dir); - } - - $spam = Email::Simple->new(<new(< To: U Message-Id: @@ -75,45 +103,38 @@ Subject: SPAM!!!!!!!! Date: Thu, 01 Jan 1970 00:00:00 +0000 EOF - print $pipe $spam->as_string or die "print failed: $!\n"; - close $pipe or die "close pipe failed: $!\n"; + $im->add($spam); + $im->done; } # check spam shows up { - my $spammy_feed = PublicInbox::Feed->generate({ - git_dir => $git_dir, - max => 3 - }); - if ($have_xml_feed) { - my $p = XML::Feed->parse(\$spammy_feed); - is($p->format, "Atom", "parsed atom feed"); - is(scalar $p->entries, 3, "parsed three entries"); + my $spammy_feed = string_feed({ -inbox => $ibx }); + SKIP: { + skip 'XML::TreePP missing', 2 unless $have_xml_treepp; + my $t = XML::TreePP->new->parse($spammy_feed); + like($t->{feed}->{-xmlns}, qr/\bAtom\b/, + 'looks like an an Atom feed'); + is(scalar @{$t->{feed}->{entry}}, 3, + 'parsed three entries'); } like($spammy_feed, qr/SPAM/s, "spam showed up :<"); } # nuke spam - { - my $pid = open(my $pipe, "|-"); - defined $pid or die "fork/pipe failed: $!\n"; - if ($pid == 0) { - exec("ssoma-rm", $git_dir); - } - print $pipe $spam->as_string or die "print failed: $!\n"; - close $pipe or die "close pipe failed: $!\n"; - } + $im->remove($spam); + $im->done; # spam no longer shows up { - my $feed = PublicInbox::Feed->generate({ - git_dir => $git_dir, - max => 3 - }); - if ($have_xml_feed) { - my $p = XML::Feed->parse(\$feed); - is($p->format, "Atom", "parsed atom feed"); - is(scalar $p->entries, 3, "parsed three entries"); + my $feed = string_feed({ -inbox => $ibx }); + SKIP: { + skip 'XML::TreePP missing', 2 unless $have_xml_treepp; + my $t = XML::TreePP->new->parse($feed); + like($t->{feed}->{-xmlns}, qr/\bAtom\b/, + 'looks like an an Atom feed'); + is(scalar @{$t->{feed}->{entry}}, 3, + 'parsed three entries'); } unlike($feed, qr/SPAM/, "spam gone :>"); }