From 6284eee462a7845c648e259ff40c6643eed7bfb3 Mon Sep 17 00:00:00 2001 From: Eric Wong Date: Wed, 23 Apr 2014 01:05:56 +0000 Subject: feed: add tests for element setting We need to ensure this works This follows commit bd8fd095067b79a0d2a40bbca2b27b923d02b3f8 ("feed: fix address when multiple addresses exist") --- t/feed.t | 27 +++++++++++++++++++++++++++ 1 file changed, 27 insertions(+) (limited to 't/feed.t') diff --git a/t/feed.t b/t/feed.t index 379f8d39..3e1c6d7b 100644 --- a/t/feed.t +++ b/t/feed.t @@ -5,6 +5,7 @@ use warnings; use Test::More; use Email::Simple; use PublicInbox::Feed; +use PublicInbox::Config; use File::Temp qw/tempdir/; my $have_xml_feed = eval { require XML::Feed; 1 }; @@ -46,7 +47,10 @@ EOF print $pipe $simple->as_string or die "print failed: $!\n"; close $pipe or die "close pipe failed: $!\n"; } +} +# spam check +{ # check initial feed { my $feed = PublicInbox::Feed->generate({ @@ -58,6 +62,8 @@ EOF my $p = XML::Feed->parse(\$feed); is($p->format, "Atom", "parsed atom feed"); is(scalar $p->entries, 3, "parsed three entries"); + is($p->id, 'public-inbox@example.com', + "id is set to default"); } unlike($feed, qr/drop me/, "long quoted text dropped"); like($feed, qr/inline me here/, "short quoted text kept"); @@ -127,4 +133,25 @@ EOF } } +# check pi_config +{ + foreach my $addr (('a@example.com'), ['a@example.com','b@localhost']) { + my $feed = PublicInbox::Feed->generate({ + git_dir => $git_dir, + max => 3, + listname => 'asdf', + pi_config => bless({ + 'publicinbox.asdf.address' => $addr, + }, 'PublicInbox::Config'), + }); + SKIP: { + skip 'XML::Feed missing', 3 unless $have_xml_feed; + my $p = XML::Feed->parse(\$feed); + is($p->id, 'a@example.com', "ID is set correctly"); + is($p->format, "Atom", "parsed atom feed"); + is(scalar $p->entries, 3, "parsed three entries"); + } + } +} + done_testing(); -- cgit v1.2.3-24-ge0c7