# Copyright (C) 2014-2015 all contributors # License: AGPLv3 or later (https://www.gnu.org/licenses/agpl-3.0.txt) use strict; use warnings; use Test::More; use Email::MIME; use PublicInbox::Feed; use PublicInbox::Git; use PublicInbox::Import; use File::Temp qw/tempdir/; my $tmpdir = tempdir('pi-http-XXXXXX', TMPDIR => 1, CLEANUP => 1); my $git_dir = "$tmpdir/gittest"; my $git = PublicInbox::Git->new($git_dir); my $im = PublicInbox::Import->new($git, 'tester', 'test@example'); # setup { is(0, system(qw(git init -q --bare), $git_dir), "git init"); my $prev = ""; 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 $mid = "<$i\@example.com>"; my $mid_line = "Message-ID: $mid"; if ($prev) { $mid_line .= "In-Reply-To: $prev"; } $prev = $mid; my $mime = Email::MIME->new(< To: U $mid_line Subject: zzz #$i 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 msg $i > inline me here, short quote keep me EOF like($im->add($mime), qr/\A:\d+\z/, 'inserted message'); } $im->done; } # check HTML index { use IO::File; my $cb = PublicInbox::Feed::generate_html_index({ git_dir => $git_dir, max => 3 }); require 't/common.perl'; like(stream_to_string($cb), qr/html/, "feed is valid HTML :)"); } done_testing();