t/msg_iter.t

   1 # Copyright (C) 2016-2020 all contributors <meta@public-inbox.org>
   2 # License: AGPL-3.0+ <https://www.gnu.org/licenses/agpl-3.0.txt>
   3 use strict;
   4 use warnings;
   5 use Test::More;
   6 use Email::MIME;
   7 use PublicInbox::Hval qw(ascii_html);
   8 use_ok('PublicInbox::MsgIter');
   9
  10 {
  11         my $parts = [ Email::MIME->create(body => "a\n"),
  12                         Email::MIME->create(body => "b\n") ];
  13         my $mime = Email::MIME->create(parts => $parts,
  14                                 header_str => [ From => 'root@localhost' ]);
  15         my @parts;
  16         msg_iter($mime, sub {
  17                 my ($part, $level, @ex) = @{$_[0]};
  18                 my $s = $part->body_str;
  19                 $s =~ s/\s+//s;
  20                 push @parts, [ $s, $level, @ex ];
  21         });
  22         is_deeply(\@parts, [ [ qw(a 1 1) ], [ qw(b 1 2) ] ], 'order is fine');
  23 }
  24
  25 {
  26         my $parts = [ Email::MIME->create(body => 'a'),
  27                         Email::MIME->create(body => 'b') ];
  28         $parts = [ Email::MIME->create(parts => $parts,
  29                                 header_str => [ From => 'sub@localhost' ]),
  30                         Email::MIME->create(body => 'sig') ];
  31         my $mime = Email::MIME->create(parts => $parts,
  32                                 header_str => [ From => 'root@localhost' ]);
  33         my @parts;
  34         msg_iter($mime, sub {
  35                 my ($part, $level, @ex) = @{$_[0]};
  36                 my $s = $part->body_str;
  37                 $s =~ s/\s+//s;
  38                 push @parts, [ $s, $level, @ex ];
  39         });
  40         is_deeply(\@parts, [ [qw(a 2 1 1)], [qw(b 2 1 2)], [qw(sig 1 2)] ],
  41                 'nested part shows up properly');
  42 }
  43
  44 {
  45         my $f = 't/iso-2202-jp.mbox';
  46         my $mime = Email::MIME->new(do {
  47                 open my $fh, '<', $f or die "open($f): $!";
  48                 local $/;
  49                 <$fh>;
  50         });
  51         my $raw = '';
  52         msg_iter($mime, sub {
  53                 my ($part, $level, @ex) = @{$_[0]};
  54                 my ($s, $err) = msg_part_text($part, 'text/plain');
  55                 ok(!$err, 'no error');
  56                 $raw .= $s;
  57         });
  58         ok(length($raw) > 0, 'got non-empty message');
  59         is(index($raw, '$$$'), -1, 'no unescaped $$$');
  60 }
  61
  62 {
  63         my $f = 't/x-unknown-alpine.eml';
  64         my $mime = Email::MIME->new(do {
  65                 open my $fh, '<', $f or die "open($f): $!";
  66                 local $/;
  67                 binmode $fh;
  68                 <$fh>;
  69         });
  70         my $raw = '';
  71         msg_iter($mime, sub {
  72                 my ($part, $level, @ex) = @{$_[0]};
  73                 my ($s, $err) = msg_part_text($part, 'text/plain');
  74                 $raw .= $s;
  75         });
  76         like($raw, qr!^\thttps://!ms, 'tab expanded with X-UNKNOWN');
  77         like(ascii_html($raw), qr/&#8226; bullet point/s,
  78                 'got bullet point when X-UNKNOWN assumes UTF-8');
  79 }
  80
  81 done_testing();
  82 1;