t/cgi.t | 12 ------------
t/plack.t | 7 +++++--
diff --git a/t/cgi.t b/t/cgi.t
index 06519c3e6164e29bed022df425aebdf8fe21f266..382c21fc52e263da108eb6316498799b98f6d563 100644
--- a/t/cgi.t
+++ b/t/cgi.t
@@ -109,18 +109,6 @@ like($res->{head}, qr/Status:\s*206/i, "info/refs partial past end OK");
is($res->{body}, substr($orig, 5), 'partial body OK past end');
}
-# atom feeds
-{
- local $ENV{HOME} = $home;
- my $res = cgi_run("/test/atom.xml");
- like($res->{body}, qr/
test for public-inbox/,
- "set title in XML feed");
- like($res->{body},
- qr!http://test\.example\.com/test/blah\@example\.com/!,
- "link id set");
- like($res->{body}, qr/what\?/, "reply included");
-}
-
# message-id pages
{
local $ENV{HOME} = $home;
diff --git a/t/plack.t b/t/plack.t
index 70cd20e53306ab5bdfec34ac2d99fc1bf3c91f45..1a719b41c6f2f7c4ffb73e03dacce3f8fcf93475 100644
--- a/t/plack.t
+++ b/t/plack.t
@@ -135,9 +135,12 @@ test_psgi($app, sub {
my ($cb) = @_;
my $res = $cb->(GET($pfx . '/atom.xml'));
is(200, $res->code, 'success response received for atom');
- like($res->content,
- qr!link\s+href="\Q$pfx\E/blah\@example\.com/"!s,
+ my $body = $res->content;
+ like($body, qr!link\s+href="\Q$pfx\E/blah\@example\.com/"!s,
'atom feed generated correct URL');
+ like($body, qr/test for public-inbox/,
+ "set title in XML feed");
+ like($body, qr/zzzzzz/, 'body included');
});
test_psgi($app, sub {