about summary refs log tree commit homepage
diff options
context:
space:
mode:
authorEric Wong <e@80x24.org>2019-01-04 09:02:51 +0000
committerEric Wong <e@80x24.org>2019-01-04 09:02:51 +0000
commit2acb572e34cabd06292bde615bdab54b3f54edd9 (patch)
treed6379129cb86a58ab74d623a9a71f983a65de59d
parent683634696f7704fdbb83100ca3912a9c20f99823 (diff)
downloadpublic-inbox-2acb572e34cabd06292bde615bdab54b3f54edd9.tar.gz
It is redundant with what is in t/plack.t
-rw-r--r--t/cgi.t12
-rw-r--r--t/plack.t7
2 files changed, 5 insertions, 14 deletions
diff --git a/t/cgi.t b/t/cgi.t
index 06519c3e..382c21fc 100644
--- a/t/cgi.t
+++ b/t/cgi.t
@@ -109,18 +109,6 @@ EOF
         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/<title>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 70cd20e5..1a719b41 100644
--- a/t/plack.t
+++ b/t/plack.t
@@ -135,9 +135,12 @@ EOF
                 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/<title>test for public-inbox/,
+                        "set title in XML feed");
+                like($body, qr/zzzzzz/, 'body included');
         });
 
         test_psgi($app, sub {