=head1 Name

MimeWords

=head1 Ziel

Ueberpruefen, ob `noris::MIME::Words' immernoch aufeinanderfolgende Worte falsch
kodiert.

Weitere Informationen in noris#303301, rt.cpan.org#5462

=head1 Testfaelle

Folgender String wird encodiert und nach dem Fehler gesucht:

 Foo Pöser Büg Bar

=head1 Fehler behoben?

Falls sich die Autoren der MIME-Tools doch noch dazu durchringen, einen der
verfügbaren Patches in ihre Distribution einzubauen, und es diese Version dann
auch noch bis zu uns schafft, dann kann man getrost F<dbperl/MIME/Words.pm>
wieder entfernen, genauso wie diesen Test.

=cut

package Test::MimeWords;

BEGIN { unshift(@INC,($ENV{'POPHOME'}||'@POPHOME@').'/lib')
			unless $ENV{'KUNDE_NO_PERLPATH'};
		}

use utf8;
use strict;
use warnings;

use Test::More tests => 14;
use Fehler qw(ffehler);

BEGIN { use_ok ('noris::MIME::Words'); }

our @plain =
(
	'bestätigt',
	'Gebot bestätigt',
	'höheres Gebot',
	'Herzlichen Dank für Ihre E-Mail',
	'Trouble Ticket: Störung Postfächer auf mail.noris.net',
	'Täglicher Status meiner Kaufaktivitäten',
	'Eintrag im Gaestebuch',
	'Weihnachtliche Grüße, ',
	'Geschäftsvorschlag: Bitte überweisen Sie mir all ihr Geld, Danke!',
	'Kräftig längliche Wörterschlange muß böse zerstückelt, näherungsweise zerrüttet, werden.',
	'2 DM = 1 € (oder so ähnlich)',
	'und so weiter …',
);

our @encoded =
(
	'=?ISO-8859-1?Q?best=E4tigt?=',
	'Gebot =?ISO-8859-1?Q?best=E4tigt?=',
	'=?ISO-8859-1?Q?h=F6heres?= Gebot',
	'Herzlichen Dank =?ISO-8859-1?Q?f=FCr?= Ihre E-Mail',
	'Trouble Ticket: =?ISO-8859-1?Q?St=F6rung_Postf=E4cher?= auf mail.noris.net',
	'=?ISO-8859-1?Q?T=E4glicher?= Status meiner =?ISO-8859-1?Q?Kaufaktivit=E4ten?=',
	'Eintrag im Gaestebuch',
	'Weihnachtliche =?ISO-8859-1?Q?Gr=FC=DFe,?= ',
	'=?ISO-8859-1?Q?Gesch=E4ftsvorschlag:?= Bitte =?ISO-8859-1?Q?=FCberweisen?= Sie mir all ihr Geld, Danke!',
	'=?ISO-8859-1?Q?Kr=E4ftig_l=E4ngliche_W=F6rterschlange_mu=DF_b=F6se_zerst?= =?ISO-8859-1?Q?=FCckelt,_n=E4herungsweise_zerr=FCttet,?= werden.',
	'2 DM = 1 =?ISO-8859-15?Q?=A4?= (oder so =?ISO-8859-1?Q?=E4hnlich)?=',
	'und so weiter =?UTF-8?Q?=E2=80=A6?=',
);

for (my $i = 0; $i < @plain; $i++)
{
	is (noris::MIME::Words::encode_mimewords ($plain[$i]), $encoded[$i], "encode$i");
}

# Stelle sicher dass noris::MIME::Words Unfug korrekt behandelt
ffehler {
	noris::MIME::Words::encode_mimewords <<'_';
"»šŠvÁÈ»šŠv¡C©e¶R©eœæ±Mœu¡G¢¯¢ž¢±¢±¡Ð¢·¢²¢µ¢¶¢¶¢·§õ€p©j(ž`µ|,§ëžê,§K¶O«tžß¹Î¶€)¡Ï¡Ï" <yin-jm@yahoo.com.tw>
_
	noris::MIME::Words::encode_mimewords <<'_';
=?ISO-8859-1?Q?=BB?=šŠ=?ISO-8859-1?Q?v=C1=C8=BB?=šŠ=?ISO-8859-1?Q?v=A1C=A9e=B6R=A9e?==?ISO-8859-1?Q?=E6=B1M?=
_
	pass "fein";
} sub {
	fail "unfein";
};

# vim:syntax=perl
