In perl.git, the branch blead has been updated <http://perl5.git.perl.org/perl.git/commitdiff/0020d0e9e9cf88e094801eb903aa9a8317c4e54f?hp=52ee771d0013986b6872a92462554167295e583d>
- Log ----------------------------------------------------------------- commit 0020d0e9e9cf88e094801eb903aa9a8317c4e54f Author: Karl Williamson <[email protected]> Date: Fri Nov 21 09:22:53 2014 -0700 lib/Config.t: Skip tests that are invalid on os390 M lib/Config.t commit 54c2f00215f3a482583168c48e37c530777cca75 Author: Karl Williamson <[email protected]> Date: Wed Oct 29 10:08:46 2014 -0600 t/comp/require.t: No longer needed to skip on EBCDIC M t/comp/require.t commit b09cd55147659a444e0092b3ee3b9334354cd4c8 Author: Karl Williamson <[email protected]> Date: Mon Jun 9 12:30:23 2014 -0600 t/uni/write.t: Don't skip EBCDIC tests This now passes on os390 M t/uni/write.t commit 72b4e0d1e68a5aef4b68a43b3c3fd62364c09a75 Author: Karl Williamson <[email protected]> Date: Wed Jun 26 15:28:41 2013 -0600 t/lib/warnings/utf8: Update skip message It is not that EBCDIC platforms don't check for malformedness; it is that a different message gets generated on them, and it's too much bother to figure it out for each such platform. M t/lib/warnings/utf8 commit 26aca2acbdbaea29fdad17ec0e0dfd39b491b913 Author: Karl Williamson <[email protected]> Date: Mon Mar 2 15:03:08 2015 -0700 t/test.pl: EBCDIC, utf8 fixes This changes the display of all low-ordinal EBCDIC controls to octal, instead of just the ones that correspond to the ASCII C0 controls. It also makes sure that [:print:] thinks all non-ASCII are non-printable. M t/test.pl ----------------------------------------------------------------------- Summary of changes: lib/Config.t | 1 + t/comp/require.t | 4 ++-- t/lib/warnings/utf8 | 2 +- t/test.pl | 15 ++++++++------- t/uni/write.t | 1 - 5 files changed, 12 insertions(+), 11 deletions(-) diff --git a/lib/Config.t b/lib/Config.t index ee2eaea..abd9316 100644 --- a/lib/Config.t +++ b/lib/Config.t @@ -262,6 +262,7 @@ foreach my $lib (qw(applibexp archlibexp privlibexp sitearchexp sitelibexp my $dir = $Config{$lib}; SKIP: { skip "lib $lib not in \@INC on Win32" if $^O eq 'MSWin32'; + skip "lib $lib not in \@INC on os390" if $^O eq 'os390'; skip "lib $lib not defined" unless defined $dir; skip "lib $lib not set" unless length $dir; # May be in @INC in either Unix or VMS format on VMS. diff --git a/t/comp/require.t b/t/comp/require.t index ea569ad..be43c63 100644 --- a/t/comp/require.t +++ b/t/comp/require.t @@ -346,9 +346,9 @@ if (defined &DynaLoader::boot_DynaLoader) { # Add generic tests before this point. # ########################################## -# UTF-encoded things - skipped on EBCDIC machines and on UTF-8 input +# UTF-encoded things - skipped on UTF-8 input -if ($Is_EBCDIC || $Is_UTF8) { exit; } +if ($Is_UTF8) { exit; } my %templates = ( 'UTF-8' => 'C0U', diff --git a/t/lib/warnings/utf8 b/t/lib/warnings/utf8 index 75f3f25..4a7cef1 100644 --- a/t/lib/warnings/utf8 +++ b/t/lib/warnings/utf8 @@ -17,7 +17,7 @@ __END__ # utf8.c [utf8_to_uvchr_buf] -W BEGIN { if (ord('A') == 193) { - print "SKIPPED\n# ebcdic platforms do not generate Malformed UTF-8 warnings."; + print "SKIPPED\n# ebcdic platforms generates different Malformed UTF-8 warnings."; exit 0; } } diff --git a/t/test.pl b/t/test.pl index 21d54b4..3cfb1c4 100644 --- a/t/test.pl +++ b/t/test.pl @@ -300,13 +300,14 @@ sub display { $y = $y . $backslash_escape{$c}; } else { my $z = chr $c; # Maybe we can get away with a literal... - if ($z =~ /[[:^print:]]/) { - - # Use octal for characters traditionally expressed as - # such: the low controls, which on EBCDIC aren't - # necessarily the same ones as on ASCII platforms, but - # are small ordinals, nonetheless - if ($c <= 037) { + if ($z =~ /[[:^print:]]/a) { + + # Use octal for characters with small ordinals that + # are traditionally expressed as octal: the controls + # below space, which on EBCDIC are almost all the + # controls, but on ASCII don't include DEL nor the C1 + # controls. + if ($c < ord " ") { $z = sprintf "\\%03o", $c; } else { $z = sprintf "\\x{%x}", $c; diff --git a/t/uni/write.t b/t/uni/write.t index d011861..c099957 100644 --- a/t/uni/write.t +++ b/t/uni/write.t @@ -4,7 +4,6 @@ use strict; BEGIN { chdir 't' if -d 't'; require './test.pl'; - skip_all("EBCDIC porting needed") if $::IS_EBCDIC; skip_all_without_perlio(); } -- Perl5 Master Repository
