Change 14821 by jhi@alpha on 2002/02/21 22:05:20
Testing for ASCII in EBCDIC makes one's brain hurt.
Affected files ...
.... //depot/perl/t/op/pat.t#158 edit
Differences ...
==== //depot/perl/t/op/pat.t#158 (xtext) ====
Index: perl/t/op/pat.t
--- perl/t/op/pat.t.~1~ Thu Feb 21 15:15:05 2002
+++ perl/t/op/pat.t Thu Feb 21 15:15:05 2002
@@ -1422,16 +1422,21 @@
print "ok $test\n"; $test++;
}
print "# IsASCII\n";
- if ($code le '00007f') {
- print "not " unless $char =~ /\p{IsASCII}/;
- print "ok $test\n"; $test++;
- print "not " if $char =~ /\P{IsASCII}/;
- print "ok $test\n"; $test++;
+ if (ord("A") == 193) {
+ print "ok $test # Skip: in EBCDIC\n"; $test++;
+ print "ok $test # Skip: in EBCDIC\n"; $test++;
} else {
- print "not " if $char =~ /\p{IsASCII}/;
- print "ok $test\n"; $test++;
- print "not " unless $char =~ /\P{IsASCII}/;
- print "ok $test\n"; $test++;
+ if ($code le '00007f') {
+ print "not " unless $char =~ /\p{IsASCII}/;
+ print "ok $test\n"; $test++;
+ print "not " if $char =~ /\P{IsASCII}/;
+ print "ok $test\n"; $test++;
+ } else {
+ print "not " if $char =~ /\p{IsASCII}/;
+ print "ok $test\n"; $test++;
+ print "not " unless $char =~ /\P{IsASCII}/;
+ print "ok $test\n"; $test++;
+ }
}
print "# IsCntrl\n";
if ($class =~ /^C/) {
End of Patch.
