diff options
author | Eric Wong <e@80x24.org> | 2019-01-04 09:02:51 +0000 |
---|---|---|
committer | Eric Wong <e@80x24.org> | 2019-01-04 09:02:51 +0000 |
commit | 2acb572e34cabd06292bde615bdab54b3f54edd9 (patch) | |
tree | d6379129cb86a58ab74d623a9a71f983a65de59d /t | |
parent | 683634696f7704fdbb83100ca3912a9c20f99823 (diff) | |
download | public-inbox-2acb572e34cabd06292bde615bdab54b3f54edd9.tar.gz |
It is redundant with what is in t/plack.t
Diffstat (limited to 't')
-rw-r--r-- | t/cgi.t | 12 | ||||
-rw-r--r-- | t/plack.t | 7 |
2 files changed, 5 insertions, 14 deletions
@@ -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; @@ -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 { |