In perl.git, the branch khw/ebcdic has been updated <http://perl5.git.perl.org/perl.git/commitdiff/c2733f6a255ca734333f3b3cc631767a43f30808?hp=815223679662dca53f1fe4b6e07cac2af59f103b>
- Log ----------------------------------------------------------------- commit c2733f6a255ca734333f3b3cc631767a43f30808 Author: Karl Williamson <[email protected]> Date: Mon Mar 25 16:37:04 2013 -0600 XXX fix this M dist/IO/t/io_utf8argv.t commit 1fb085e8db5ab976ae974d5a64df886252f15952 Author: Karl Williamson <[email protected]> Date: Mon Mar 25 15:33:55 2013 -0600 Skip some tests under EBCDIC EBCDIC won't work on these because of inherent differences from ASCII M t/porting/customized.t M t/porting/manifest.t commit 4841c278b75f76a2fe63fea29ba544b539915f55 Author: Karl Williamson <[email protected]> Date: Mon Mar 25 15:04:14 2013 -0600 porting/bincompat.t: Skip under EBCDIC because the sorting order is different M t/porting/bincompat.t commit 5409320c791c4f903a901bfe2f45e70eb8e5c551 Author: Karl Williamson <[email protected]> Date: Mon Mar 25 14:59:50 2013 -0600 t/re/regex_sets.t: So will pass under EBCDIC M t/re/regex_sets.t commit 5b175e79f70735d5267337cb52cc40972077fff6 Author: Karl Williamson <[email protected]> Date: Mon Mar 25 14:59:26 2013 -0600 t/porting/bincompat.t: Typo in comment M t/porting/bincompat.t ----------------------------------------------------------------------- Summary of changes: dist/IO/t/io_utf8argv.t | 1 + t/porting/bincompat.t | 3 ++- t/porting/customized.t | 1 + t/porting/manifest.t | 1 + t/re/regex_sets.t | 8 ++++---- 5 files changed, 9 insertions(+), 5 deletions(-) diff --git a/dist/IO/t/io_utf8argv.t b/dist/IO/t/io_utf8argv.t index a902eaf..a89071e 100644 --- a/dist/IO/t/io_utf8argv.t +++ b/dist/IO/t/io_utf8argv.t @@ -14,6 +14,7 @@ use utf8; plan(tests => 2); open my $fh, ">:raw", 'io_utf8argv'; +# Needs a function utf8_bytes_to_native print $fh "\xce\x9c\xe1\xbd\xb7\xce\xb1\x20\xcf\x80\xe1\xbd\xb1\xcf\x80\xce". "\xb9\xce\xb1\x2c\x20\xce\xbc\xe1\xbd\xb0\x20\xcf\x80\xce\xbf\xce". diff --git a/t/porting/bincompat.t b/t/porting/bincompat.t index 2eb7308..afa0a52 100644 --- a/t/porting/bincompat.t +++ b/t/porting/bincompat.t @@ -1,12 +1,13 @@ #!./perl -w use strict; require './test.pl'; +skip_all("Sorting order differs under EBCDIC") if $::IS_EBCDIC; use Config; plan(2); -# Defiantely a white box test... +# Defiantly a white box test... # As we need to call it direct, we'll take advantage of its result ordering: my @to_check = qw(bincompat_options non_bincompat_options); diff --git a/t/porting/customized.t b/t/porting/customized.t index 631c1bc..8234e1b 100644 --- a/t/porting/customized.t +++ b/t/porting/customized.t @@ -12,6 +12,7 @@ BEGIN { chdir '..' unless -d 't'; @INC = qw(lib Porting t); require 'test.pl'; + skip_all("pre-computed SHA1 won't match under EBCDIC") if $::IS_EBCDIC; } use strict; diff --git a/t/porting/manifest.t b/t/porting/manifest.t index ea4fe83..2df4992 100644 --- a/t/porting/manifest.t +++ b/t/porting/manifest.t @@ -45,6 +45,7 @@ close $m or die $!; # Test that MANIFEST is properly sorted SKIP: { + skip("Sorting order is different under EBCDIC", 1) if $::EBCDIC; skip("'Porting/manisort' not found", 1) if (! -f 'Porting/manisort'); my $result = runperl('progfile' => 'Porting/manisort', diff --git a/t/re/regex_sets.t b/t/re/regex_sets.t index b70e7ec..ab41a4d 100644 --- a/t/re/regex_sets.t +++ b/t/re/regex_sets.t @@ -23,10 +23,10 @@ like("a", qr/(?[ [a] # This is a comment ])/, 'Can ignore a comment'); like("a", qr/(?[ [a] # [[:notaclass:]] ])/, 'A comment isn\'t parsed'); -unlike("\x85", qr/(?[ \t ])/, 'NEL is white space'); -unlike("\x85", qr/(?[ [\t ] ])/, '... including within nested []'); -like("\x85", qr/(?[ \t + \ ])/, 'can escape NEL to match'); -like("\x85", qr/(?[ [\ ] ])/, '... including within nested []'); +unlike(latin1_to_native("\x85"), qr/(?[ \t ])/, 'NEL is white space'); +unlike(latin1_to_native("\x85"), qr/(?[ [\t ] ])/, '... including within nested []'); +like(latin1_to_native("\x85"), qr/(?[ \t + \ ])/, 'can escape NEL to match'); +like(latin1_to_native("\x85"), qr/(?[ [\ ] ])/, '... including within nested []'); like("\t", qr/(?[ \t + \ ])/, 'can do basic union'); like("\cK", qr/(?[ \s ])/, '\s matches \cK'); unlike("\cK", qr/(?[ \s - \cK ])/, 'can do basic subtraction'); -- Perl5 Master Repository
