view release on metacpan or  search on metacpan

t/02_generate.t  view on Meta::CPAN

	my $generator = MIME::Lite::Generator->new($msg);
	my $gen_data = '';
	my $i = 0;
	while (my $str = $generator->get()) {
		$gen_data .= $$str;
		$i++;
	}

	is(trim $gen_data, trim $msg->as_string, 'simple msg - ' . $encoding);
	ok($i > 1, 'simple msg generated in several iterations - ' . $encoding);
}

for my $encoding (qw/BINARY 8BIT 7BIT QUOTED-PRINTABLE BASE64/) {
	my $msg = MIME::Lite->new(
		From     => 'me@myhost.com',
		To       => 'you@yourhost.com',
		Cc       => 'some@other.com, some@more.com',
		Subject  => 'Не мы такие, жизнь такая...',
		Encoding => $encoding,
		Data     => "я узнал\r\nчто у меня\r\nесть огромная семья\r\nи тропинка и лесок\r\nв поле каждый колосок\r\n"