X-Git-Url: http://www.git.stargrave.org/?a=blobdiff_plain;f=t%2Fplack.t;h=7f80f488aef9131582043eec14de8898ff5fe179;hb=ba1a1efbcd23ab472b3c5c030082a9064462680b;hp=20f5d8d5e96b25487859b149ae5bfd4d5ad41f8e;hpb=81ea7f0100f016ad8c66605b49230e876a1eb82d;p=public-inbox.git
diff --git a/t/plack.t b/t/plack.t
index 20f5d8d5..7f80f488 100644
--- a/t/plack.t
+++ b/t/plack.t
@@ -1,5 +1,5 @@
#!perl -w
-# Copyright (C) 2014-2021 all contributors
+# Copyright (C) all contributors
# License: AGPL-3.0+
use strict;
use v5.10.1;
@@ -13,7 +13,7 @@ my ($tmpdir, $for_destroy) = tmpdir();
my $pfx = 'http://example.com/test';
my $eml = eml_load('t/iso-2202-jp.eml');
# ensure successful message deliveries
-my $ibx = create_inbox('test-1', sub {
+my $ibx = create_inbox('u8-2', sub {
my ($im, $ibx) = @_;
my $addr = $ibx->{-primary_address};
$im->add($eml) or xbail '->add';
@@ -39,6 +39,8 @@ EOF
# multipart with attached patch + filename
$im->add(eml_load('t/plack-attached-patch.eml')) or BAIL_OUT '->add';
+ $im->add(eml_load('t/data/attached-mbox-with-utf8.eml')) or xbail 'add';
+
# multipart collapsed to single quoted-printable text/plain
$im->add(eml_load('t/plack-qp.eml')) or BAIL_OUT '->add';
my $crlf = <(GET($pfx . $path));
is(200, $res->code, "success for $path");
my $html = $res->content;
+ like($html, qr!\bhref="\Q../_/text/help/"!, 'help available');
like($html, qr!hihi - Me!, 'HTML returned');
- like($html, qr!over');
$path .= 'f/';
$res = $cb->(GET($pfx . $path));
@@ -178,6 +183,9 @@ my $c1 = sub {
$res = $cb->(GET($pfx . '/qp@example.com/'));
like($res->content, qr/\bhi = bye\b/, "HTML output decoded QP");
+ $res = $cb->(GET($pfx . '/attached-mbox-with-utf8@example/'));
+ like($res->content, qr/: Bjørn /, 'UTF-8 in mbox #1');
+ like($res->content, qr/: j Żen/, 'UTF-8 in mbox #2');
$res = $cb->(GET($pfx . '/blah@example.com/raw'));
is(200, $res->code, 'success response received for /*/raw');
@@ -243,7 +251,6 @@ my $c1 = sub {
'redirect from x40 MIDs works');
}
-
# dumb HTTP clone/fetch support
$path = '/test/info/refs';
my $req = HTTP::Request->new('GET' => $path);