/usr/share/perl5/Mail/Message/Test.pm is in libmail-message-perl 3.006-1.
This file is owned by root:root, with mode 0o644.
The actual contents of the file can be viewed below.
1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 23 24 25 26 27 28 29 30 31 32 33 34 35 36 37 38 39 40 41 42 43 44 45 46 47 48 49 50 51 52 53 54 55 56 57 58 59 60 61 62 63 64 65 66 67 68 69 70 71 72 73 74 75 76 77 78 79 80 81 82 83 84 85 86 87 88 89 90 91 92 93 94 95 96 97 98 99 100 101 102 103 104 105 106 107 108 109 110 111 112 113 | # Copyrights 2001-2018 by [Mark Overmeer].
# For other contributors see ChangeLog.
# See the manual pages for details on the licensing terms.
# Pod stripped from pm file by OODoc 2.02.
# This code is part of distribution Mail-Message. Meta-POD processed with
# OODoc into POD and HTML manual-pages. See README.md
# Copyright Mark Overmeer. Licensed under the same terms as Perl itself.
package Mail::Message::Test;
use vars '$VERSION';
$VERSION = '3.006';
use base 'Exporter';
use strict;
use warnings;
use File::Copy 'copy';
use List::Util 'first';
use IO::File; # to overrule open()
use File::Spec;
use Cwd qw(getcwd);
use Sys::Hostname qw(hostname);
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)
{ $first =~ s/Content-Length: (\d+)/Content-Length: <removed>/g;
$second =~ s/Content-Length: (\d+)/Content-Length: <removed>/g;
}
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<removed>/i;
s/boundary-\d+/boundary-<removed>/g;
}
join '', @lines;
}
#
# A piece of HTML text which is used in some tests.
#
our $raw_html_data = <<'TEXT';
<HTML>
<HEAD>
<TITLE>My home page</TITLE>
</HEAD>
<BODY BGCOLOR=red>
<H1>Life according to Brian</H1>
This is normal text, but not in a paragraph.<P>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.
<H3>Silly subsection at once</H3>
<H1>and another chapter</H1>
<H2>again a section</H2>
<P>Normal paragraph, which contains an <IMG
SRC=image.gif>, some
<I>italics with linebreak
</I> and <TT>code</TT>
<PRE>
And now for the preformatted stuff
it should stay as it was
even with strange blanks
and indentations
</PRE>
And back to normal text...
<UL>
<LI>list item 1
<OL>
<LI>list item 1.1
<LI>list item 1.2
</OL>
<LI>list item 2
</UL>
</BODY>
</HTML>
TEXT
1;
|