# This code is part of Perl distribution Mail-Message version 3.019. # The POD got stripped from this file by OODoc version 3.05. # For contributors see file ChangeLog. # This software is copyright (c) 2001-2025 by Mark Overmeer. # This is free software; you can redistribute it and/or modify it under # the same terms as the Perl 5 programming language system itself. # SPDX-License-Identifier: Artistic-1.0-Perl OR GPL-1.0-or-later package Mail::Message::Test;{ our $VERSION = '3.019'; } use base 'Exporter'; use strict; use warnings; use File::Copy qw/copy/; use List::Util qw/first/; use IO::File; # to overrule open() use Test::More; our @EXPORT = qw/compare_message_prints reproducable_text $raw_html_data $crlf_platform/; our $crlf_platform = $^O =~ m/mswin32/i; # # Compare the text of two messages, rather strict. # On CRLF platforms, the Content-Length may be different. # sub compare_message_prints($$$) { my ($first, $second, $label) = @_; if($crlf_platform) { s/Content-Length: (\d+)/Content-Length: /g for $first, $second; } is($first, $second, $label); } # # Strip message text down the things which are the same on all # platforms and all situations. # sub reproducable_text($) { my $text = shift; my @lines = split /^/m, $text; foreach (@lines) { s/((?:references|message-id|date|content-length)\: ).*/$1/i; s/boundary-\d+/boundary-/g; } join '', @lines; } # # A piece of HTML text which is used in some tests. # our $raw_html_data = <<'TEXT'; My home page

Life according to Brian

This is normal text, but not in a paragraph.

New paragraph in a bad way. And this is just a continuation. When texts get long, they must be auto-wrapped; and even that is working already.

Silly subsection at once

and another chapter

again a section

Normal paragraph, which contains an , some italics with linebreak and code

And now for the preformatted stuff
   it should stay as it was
      even   with   strange blanks
  and indentations

And back to normal text...

list item 1
1. list item 1.1
2. list item 1.2
list item 2

TEXT 1;