Upgrade to Encode 1.90 (plus the one extra use lib in enc_module.t)

[p5sagit/p5-mst-13.2.git] / ext / Encode / t / fallback.t

diff --git a/ext/Encode/t/fallback.t b/ext/Encode/t/fallback.t
index 3b66258..11b484a 100644 (file)
--- a/ext/Encode/t/fallback.t
+++ b/ext/Encode/t/fallback.t
@@ -8,15 +8,18 @@ BEGIN {
       print "1..0 # Skip: Encode was not built\n";
       exit 0;
     }
+    if (ord("A") == 193) {
+       print "1..0 # Skip: EBCDIC\n";
+       exit 0;
+    }
     $| = 1;
 }
 
 use strict;
 #use Test::More qw(no_plan);
-use Test::More tests => 19;
+use Test::More tests => 22;
 use Encode q(:all);
 
-
 my $original = '';
 my $nofallback  = '';
 my ($fallenback, $quiet, $perlqq, $htmlcref, $xmlcref);
@@ -72,6 +75,15 @@ is($src, $residue, "FB_QUIET residue");
     is($dst, $quiet,   "FB_WARN");
     is($src, $residue, "FB_WARN residue");
     like($message, qr/does not map to ascii/o, "FB_WARN message");
+
+    $message = '';
+
+    $src = $original;
+    $dst = $meth->encode($src, WARN_ON_ERR);
+
+    is($dst, $fallenback, "WARN_ON_ERR");
+    is($src, '',  "WARN_ON_ERR residue");
+    like($message, qr/does not map to ascii/o, "WARN_ON_ERR message");
 }
 
 $src = $original;