diff options
Diffstat (limited to 't/mbox_reader.t')
| -rw-r--r-- | t/mbox_reader.t | 12 |
1 files changed, 8 insertions, 4 deletions
diff --git a/t/mbox_reader.t b/t/mbox_reader.t index e5f57d7b..14248a2d 100644 --- a/t/mbox_reader.t +++ b/t/mbox_reader.t @@ -113,10 +113,10 @@ EOM SKIP: { use PublicInbox::Spawn qw(popen_rd); - my $fh = popen_rd([ $^X, '-E', <<'' ]); -say "From x@y Fri Oct 2 00:00:00 1993"; + my $fh = popen_rd([ $^X, qw(-w -Mv5.12 -e), <<'' ]); +say 'From x@y Fri Oct 2 00:00:00 1993'; print "a: b\n\n", "x" x 70000, "\n\n"; -say "From x@y Fri Oct 2 00:00:00 2010"; +say 'From x@y Fri Oct 2 00:00:00 2010'; print "Final: bit\n\n", "Incomplete\n\n"; exit 1 @@ -138,7 +138,11 @@ EOM PublicInbox::MboxReader->$m($fh, sub { push @x, $_[0]->as_string }); - is_deeply(\@x, [], "messages in invalid $m"); + if ($m =~ /\Amboxcl/) { + is_deeply(\@x, [], "messages in invalid $m"); + } else { + is_deeply(\@x, [ "\n$html" ], "body-only $m"); + } is_deeply([grep(!/^W: leftover/, @w)], [], "no extra warnings besides leftover ($m)"); } |