view: do not escape first `@' in mailto: URLs

[public-inbox.git] / t / plack.t

diff --git a/t/plack.t b/t/plack.t
index e4dedce6a8444454c5d127d9feeddf11e66e2d75..a5fd54c9981c3c845b05262085e789ed6b867155 100644 (file)
--- a/t/plack.t
+++ b/t/plack.t
@@ -85,6 +85,7 @@ 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');
+       like($res->content, qr/mailto:me\@example/, 'no %40, per RFC 6068');
        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');