]> Sergey Matveev's repositories - public-inbox.git/blob - t/feed.t
various documentation updates
[public-inbox.git] / t / feed.t
1 # Copyright (C) 2014, Eric Wong <normalperson@yhbt.net> and all contributors
2 # License: AGPLv3 or later (https://www.gnu.org/licenses/agpl-3.0.txt)
3 use strict;
4 use warnings;
5 use Test::More;
6 use Email::Simple;
7 use PublicInbox::Feed;
8 use File::Temp qw/tempdir/;
9 my $have_xml_feed = eval { require XML::Feed; 1 };
10
11 my $tmpdir = tempdir(CLEANUP => 1);
12 my $git_dir = "$tmpdir/gittest";
13
14 {
15         is(0, system(qw(git init -q --bare), $git_dir), "git init");
16         local $ENV{GIT_DIR} = $git_dir;
17
18         foreach my $i (1..6) {
19                 my $pid = open(my $pipe, "|-");
20                 defined $pid or die "fork/pipe failed: $!\n";
21                 if ($pid == 0) {
22                         exec("ssoma-mda", $git_dir);
23                 }
24
25                 my $simple = Email::Simple->new(<<EOF);
26 From: ME <me\@example.com>
27 To: U <u\@example.com>
28 Message-Id: <$i\@example.com>
29 Subject: zzz #$i
30 Date: Thu, 01 Jan 1970 00:00:00 +0000
31
32 > This is a long multi line quote so it should not be allowed to
33 > show up in its entirty in the Atom feed.  drop me
34 > I quote to much
35 > I quote to much
36 > I quote to much
37 > I quote to much
38
39 msg $i
40
41 > inline me here
42 > this is a short quote
43
44 keep me
45 EOF
46                 print $pipe $simple->as_string or die "print failed: $!\n";
47                 close $pipe or die "close pipe failed: $!\n";
48         }
49
50         # check initial feed
51         {
52                 my $feed = PublicInbox::Feed->generate({
53                         git_dir => $git_dir,
54                         max => 3
55                 });
56                 if ($have_xml_feed) {
57                         my $p = XML::Feed->parse(\$feed);
58                         is($p->format, "Atom", "parsed atom feed");
59                         is(scalar $p->entries, 3, "parsed three entries");
60                 }
61                 unlike($feed, qr/drop me/, "long quoted text dropped");
62                 like($feed, qr/inline me here/, "short quoted text kept");
63                 like($feed, qr/keep me/, "unquoted text saved");
64         }
65
66         # add a new spam message
67         my $spam;
68         {
69                 my $pid = open(my $pipe, "|-");
70                 defined $pid or die "fork/pipe failed: $!\n";
71                 if ($pid == 0) {
72                         exec("ssoma-mda", $git_dir);
73                 }
74
75                 $spam = Email::Simple->new(<<EOF);
76 From: SPAMMER <spammer\@example.com>
77 To: U <u\@example.com>
78 Message-Id: <this-is-spam\@example.com>
79 Subject: SPAM!!!!!!!!
80 Date: Thu, 01 Jan 1970 00:00:00 +0000
81
82 EOF
83                 print $pipe $spam->as_string or die "print failed: $!\n";
84                 close $pipe or die "close pipe failed: $!\n";
85         }
86
87         # check spam shows up
88         {
89                 my $spammy_feed = PublicInbox::Feed->generate({
90                         git_dir => $git_dir,
91                         max => 3
92                 });
93                 if ($have_xml_feed) {
94                         my $p = XML::Feed->parse(\$spammy_feed);
95                         is($p->format, "Atom", "parsed atom feed");
96                         is(scalar $p->entries, 3, "parsed three entries");
97                 }
98                 like($spammy_feed, qr/SPAM/s, "spam showed up :<");
99         }
100
101         # nuke spam
102         {
103                 my $pid = open(my $pipe, "|-");
104                 defined $pid or die "fork/pipe failed: $!\n";
105                 if ($pid == 0) {
106                         exec("ssoma-rm", $git_dir);
107                 }
108                 print $pipe $spam->as_string or die "print failed: $!\n";
109                 close $pipe or die "close pipe failed: $!\n";
110         }
111
112         # spam no longer shows up
113         {
114                 my $feed = PublicInbox::Feed->generate({
115                         git_dir => $git_dir,
116                         max => 3
117                 });
118                 if ($have_xml_feed) {
119                         my $p = XML::Feed->parse(\$feed);
120                         is($p->format, "Atom", "parsed atom feed");
121                         is(scalar $p->entries, 3, "parsed three entries");
122                 }
123                 unlike($feed, qr/SPAM/, "spam gone :>");
124         }
125 }
126
127 done_testing();