diff options
Diffstat (limited to 't')
| -rw-r--r-- | t/iso-2202-jp.mbox | 10 | ||||
| -rw-r--r-- | t/msg_iter.t | 18 |
2 files changed, 28 insertions, 0 deletions
diff --git a/t/iso-2202-jp.mbox b/t/iso-2202-jp.mbox new file mode 100644 index 00000000..1a8e1974 --- /dev/null +++ b/t/iso-2202-jp.mbox @@ -0,0 +1,10 @@ +From historical@ruby-dev Thu Jan 1 00:00:00 1970 +Message-Id: <199707281508.AAA24167@hoyogw.example> +Date: Tue, 29 Jul 97 00:08:29 +0900 +From: matz@example.com +Subject: [ruby-dev:4] +To: ruby-dev@example +Mime-Version: 1.0 +Content-Type: text/plain; charset=ISO-2022-JP + +|$B$1$$$8$e!w:#$O%U%j!<(B(^^;;;$B$G$9(B. diff --git a/t/msg_iter.t b/t/msg_iter.t index f6fd3bb0..f9b586f1 100644 --- a/t/msg_iter.t +++ b/t/msg_iter.t @@ -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; |