"quoted printable"],
# 8-bit chars should be encoded
- ["våre kjære norske tegn bør æres" =>
+ ["v\xe5re kj\xe6re norske tegn b\xf8r \xe6res" =>
"v=E5re kj=E6re norske tegn b=F8r =E6res"],
# trailing space should be encoded
for (@tests) {
$testno++;
($plain, $encoded) = @$_;
+ if (ord('A') == 193) { # EBCDIC 8 bit chars are different
+ if ($testno == 2) { $plain =~ s/\xe5/\x47/; $plain =~ s/\xe6/\x9c/g; $plain =~ s/\xf8/\x70/; }
+ if ($testno == 7) { $plain =~ s/\xff/\xdf/; }
+ }
$x = encode_qp($plain);
if ($x ne $encoded) {
print "Encode test failed\n";