File Coverage

blib/lib/Mail/Message/Test.pm

Criterion	Covered	Total	%
statement	33	34	97.0
branch	1	2	50.0
condition			n/a
subroutine	10	10	100.0
pod	0	2	0.0
total	44	48	91.6

# This code is part of Perl distribution Mail-Message version 4.04.
# The POD got stripped from this file by OODoc version 3.06.
# For contributors see file ChangeLog.

# This software is copyright (c) 2001-2026 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 = '4.04';
}

use parent 'Exporter';

use strict;
use warnings;

use Log::Report   'mail-message', import => [ qw// ];

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
SRC=image.gif>, 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

    list item 1.1
    list item 1.2

list item 2



TEXT

1;