Update to Text::Balanced 1.85.

[p5sagit/p5-mst-13.2.git] / t / lib / mimeqp.t

diff --git a/t/lib/mimeqp.t b/t/lib/mimeqp.t
index b3a740a..1a7f9e4 100755 (executable)
--- a/t/lib/mimeqp.t
+++ b/t/lib/mimeqp.t
@@ -14,7 +14,7 @@ $x70 = "x" x 70;
     "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
@@ -78,6 +78,10 @@ $testno = 0;
 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";