use strict;
use Test;
BEGIN { plan tests => ($] >= 5.007003)? 32: 12 }
use MIME::EncWords qw(encode_mimewords);
$MIME::EncWords::Config = {
Detect7bit => 'YES',
Mapping => 'EXTENDED',
Replacement => 'DEFAULT',
Charset => 'ISO-8859-1',
Encoding => 'A',
Field => undef,
Folding => "\n",
MaxLineLen => 76,
Minimal => 'YES',
};
if (&MIME::Charset::USE_ENCODE && $] < 5.008) {
require Encode::JP;
require Encode::CN;
}
my @testins = MIME::Charset::USE_ENCODE?
qw(encode-singlebyte encode-multibyte encode-ascii encode-utf-8):
qw(encode-singlebyte);
{
local($/) = '';
foreach my $in (@testins) {
open WORDS, "<testin/$in.txt" or die "open: $!";
while (<WORDS>) {
s{\A\s+|\s+\Z}{}g; # trim
my ($isgood, $dec, $expect) = split /\n/, $_, 3;
$isgood = (uc($isgood) eq 'GOOD');
my @params = eval $dec;
my $enc = encode_mimewords(@params);
ok((($isgood && !$@) or (!$isgood && $@)) &&
($isgood ? $enc : $expect), $expect, $@ || $enc);
}
close WORDS;
}
}
1;