From b6974dbc81665427413020414a668ddb742e68f9 Mon Sep 17 00:00:00 2001 From: Eric Wong Date: Tue, 14 Jun 2016 06:54:57 +0000 Subject: nntp: do not double-encode UTF-8 body Or whatever the appropriate Perl terminology, is... And we will need to do something appropriate for other encodings, too. I still barely understand Perl Unicode despite attempting to understand the docs over the years.. --- t/nntpd.t | 2 ++ 1 file changed, 2 insertions(+) (limited to 't') diff --git a/t/nntpd.t b/t/nntpd.t index 5f4ba57b..5875b737 100644 --- a/t/nntpd.t +++ b/t/nntpd.t @@ -175,6 +175,8 @@ EOF is_deeply($n->head(1), $n->head(''), 'HEAD OK'); is_deeply($n->body(1), $n->body(''), 'BODY OK'); + is($n->body(1)->[0], "This is a test message for El\xc3\xa9anor\n", + 'body really matches'); my $art = $n->article(1); is(ref($art), 'ARRAY', 'got array for ARTICLE'); is_deeply($art, $n->article(''), 'ARTICLE OK'); -- cgit v1.2.3-24-ge0c7