-# Copyright (C) 2014, Eric Wong <normalperson@yhbt.net> and all contributors
+# Copyright (C) 2014-2015 all contributors <meta@public-inbox.org>
# License: AGPLv3 or later (https://www.gnu.org/licenses/agpl-3.0.txt)
use strict;
use warnings;
exec("ssoma-mda", $git_dir);
}
my $mid = "<$i\@example.com>";
- my $mid_line = "Message-ID: $mid\n";
+ my $mid_line = "Message-ID: $mid";
if ($prev) {
- $mid_line .= "In-Reply-To: $prev\n";
+ $mid_line .= "In-Reply-To: $prev";
}
$prev = $mid;
my $simple = Email::Simple->new(<<EOF);
# check HTML index
{
- my $feed = PublicInbox::Feed->generate_html_index({
+ use IO::File;
+ my $cb = PublicInbox::Feed::generate_html_index({
git_dir => $git_dir,
max => 3
});
- like($feed, qr/html/, "feed is valid HTML :)");
+ require 't/common.perl';
+ like(stream_to_string($cb), qr/html/, "feed is valid HTML :)");
}
done_testing();