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)
8 use File::Temp qw/tempdir/;
9 my $have_xml_feed = eval { require XML::Feed; 1 };
11 my $tmpdir = tempdir(CLEANUP => 1);
12 my $git_dir = "$tmpdir/gittest";
15 is(0, system(qw(git init -q --bare), $git_dir), "git init");
16 local $ENV{GIT_DIR} = $git_dir;
18 foreach my $i (1..6) {
19 my $pid = open(my $pipe, "|-");
20 defined $pid or die "fork/pipe failed: $!\n";
22 exec("ssoma-mda", $git_dir);
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>
30 Date: Thu, 01 Jan 1970 00:00:00 +0000
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
37 > inline me here, short quote
41 print $pipe $simple->as_string or die "print failed: $!\n";
42 close $pipe or die "close pipe failed: $!\n";
47 my $feed = PublicInbox::Feed->generate($git_dir, 3);
49 my $p = XML::Feed->parse(\$feed);
50 is($p->format, "Atom", "parsed atom feed");
51 is(scalar $p->entries, 3, "parsed three entries");
53 unlike($feed, qr/drop me/, "long quoted text dropped");
54 like($feed, qr/inline me here/, "short quoted text kept");
55 like($feed, qr/keep me/, "unquoted text saved");
58 # add a new spam message
61 my $pid = open(my $pipe, "|-");
62 defined $pid or die "fork/pipe failed: $!\n";
64 exec("ssoma-mda", $git_dir);
67 $spam = Email::Simple->new(<<EOF);
68 From: SPAMMER <spammer\@example.com>
69 To: U <u\@example.com>
70 Message-Id: <this-is-spam\@example.com>
72 Date: Thu, 01 Jan 1970 00:00:00 +0000
75 print $pipe $spam->as_string or die "print failed: $!\n";
76 close $pipe or die "close pipe failed: $!\n";
81 my $spammy_feed = PublicInbox::Feed->generate($git_dir, 3);
83 my $p = XML::Feed->parse(\$spammy_feed);
84 is($p->format, "Atom", "parsed atom feed");
85 is(scalar $p->entries, 3, "parsed three entries");
87 like($spammy_feed, qr/SPAM/s, "spam showed up :<");
92 my $pid = open(my $pipe, "|-");
93 defined $pid or die "fork/pipe failed: $!\n";
95 exec("ssoma-rm", $git_dir);
97 print $pipe $spam->as_string or die "print failed: $!\n";
98 close $pipe or die "close pipe failed: $!\n";
101 # spam no longer shows up
103 my $feed = PublicInbox::Feed->generate($git_dir, 3);
104 if ($have_xml_feed) {
105 my $p = XML::Feed->parse(\$feed);
106 is($p->format, "Atom", "parsed atom feed");
107 is(scalar $p->entries, 3, "parsed three entries");
109 unlike($feed, qr/SPAM/, "spam gone :>");