X-Git-Url: http://www.git.stargrave.org/?a=blobdiff_plain;f=t%2Fplack.t;h=a5fd54c9981c3c845b05262085e789ed6b867155;hb=refs%2Fheads%2Fmaster;hp=1cee286d63a61e157e53dc88c8ba0e9dec9564e4;hpb=bedc22c355d570ed07ff6600717a97226f791ff5;p=public-inbox.git

diff --git a/t/plack.t b/t/plack.t
index 1cee286d..7f80f488 100644
--- a/t/plack.t
+++ b/t/plack.t
@@ -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 = <<EOF;
@@ -181,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&#248;rn /, 'UTF-8 in mbox #1');
+	like($res->content, qr/: j &#379;en/, 'UTF-8 in mbox #2');
 
 	$res = $cb->(GET($pfx . '/blah@example.com/raw'));
 	is(200, $res->code, 'success response received for /*/raw');
@@ -246,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);