Change 14826 by jhi@alpha on 2002/02/22 04:30:27
EBCDIC: someone who knows what they are doing
and whether it is possible at all in the first
place needs to figure these tests out on EBCDIC.
The CJK encodings heavily abuse their knowledge
of ASCII and that may require a translation layer
or four to survive UTF-EBCDIC.
Affected files ...
.... //depot/perl/ext/Encode/t/JP.t#4 edit
.... //depot/perl/ext/Encode/t/Tcl.t#2 edit
Differences ...
==== //depot/perl/ext/Encode/t/JP.t#4 (text) ====
Index: perl/ext/Encode/t/JP.t
--- perl/ext/Encode/t/JP.t.~1~ Thu Feb 21 21:45:05 2002
+++ perl/ext/Encode/t/JP.t Thu Feb 21 21:45:05 2002
@@ -10,6 +10,10 @@
print "1..0 # Skip: PerlIO was not built\n";
exit 0;
}
+ if (ord("A") == 193) {
+ print "1..0 # Skip: EBCDIC\n";
+ exit 0;
+ }
$| = 1;
}
use strict;
==== //depot/perl/ext/Encode/t/Tcl.t#2 (text) ====
Index: perl/ext/Encode/t/Tcl.t
--- perl/ext/Encode/t/Tcl.t.~1~ Thu Feb 21 21:45:05 2002
+++ perl/ext/Encode/t/Tcl.t Thu Feb 21 21:45:05 2002
@@ -6,6 +6,10 @@
print "1..0 # Skip: Encode was not built\n";
exit 0;
}
+ if (ord("A") == 193) {
+ print "1..0 # Skip: EBCDIC\n";
+ exit 0;
+ }
}
use Test;
use Encode qw(encode decode);
End of Patch.
