treewide: run update-copyrights from gnulib for 2019

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

diff --git a/t/msg_iter.t b/t/msg_iter.t
index 7ade6e41424f7b71a0b99234a86c9fd738c10f57..de9c39fa6742d9b7dff39029be556ca0e3fad55d 100644 (file)
--- a/t/msg_iter.t
+++ b/t/msg_iter.t
@@ -1,4 +1,4 @@
-# Copyright (C) 2016 all contributors <meta@public-inbox.org>
+# Copyright (C) 2016-2020 all contributors <meta@public-inbox.org>
 # License: AGPL-3.0+ <https://www.gnu.org/licenses/agpl-3.0.txt>
 use strict;
 use warnings;
@@ -40,5 +40,23 @@ use_ok('PublicInbox::MsgIter');
                'nested part shows up properly');
 }
 
+{
+       my $f = 't/iso-2202-jp.mbox';
+       my $mime = Email::MIME->new(do {
+               open my $fh, '<', $f or die "open($f): $!";
+               local $/;
+               <$fh>;
+       });
+       my $raw = '';
+       msg_iter($mime, sub {
+               my ($part, $level, @ex) = @{$_[0]};
+               my ($s, $err) = msg_part_text($part, 'text/plain');
+               ok(!$err, 'no error');
+               $raw .= $s;
+       });
+       ok(length($raw) > 0, 'got non-empty message');
+       is(index($raw, '$$$'), -1, 'no unescaped $$$');
+}
+
 done_testing();
 1;