-# Copyright (C) 2014-2019 all contributors <meta@public-inbox.org>
+# Copyright (C) 2014-2020 all contributors <meta@public-inbox.org>
# License: AGPL-3.0+ <https://www.gnu.org/licenses/agpl-3.0.txt>
use strict;
use warnings;
like($mime->body_raw, qr/hi =3D bye=/, 'our test used QP correctly');
$im->add($mime);
+ my $crlf = <<EOF;
+From: Me
+ <me\@example.com>
+To: $addr
+Message-Id: <crlf\@example.com>
+Subject: carriage
+ return
+ in
+ long
+ subject
+Date: Fri, 02 Oct 1993 00:00:00 +0000
+
+:(
+EOF
+ $crlf =~ s/\n/\r\n/sg;
+ $im->add(Email::MIME->new($crlf));
+
$im->done;
}
}
});
+test_psgi($app, sub {
+ my ($cb) = @_;
+ my $res = $cb->(GET('http://example.com/test/crlf@example.com/'));
+ is($res->code, 200, 'retrieved CRLF as HTML');
+ unlike($res->content, qr/\r/, 'no CR in HTML');
+ $res = $cb->(GET('http://example.com/test/crlf@example.com/raw'));
+ is($res->code, 200, 'retrieved CRLF raw');
+ like($res->content, qr/\r/, 'CR preserved in raw message');
+});
+
# redirect with newsgroup
test_psgi($app, sub {
my ($cb) = @_;
like($body, qr/<title>test for public-inbox/,
"set title in XML feed");
like($body, qr/zzzzzz/, 'body included');
+ $res = $cb->(GET($pfx . '/description'));
+ like($res->content, qr/test for public-inbox/, 'got description');
});
test_psgi($app, sub {