This is a live mirror of the Perl 5 development currently hosted at https://github.com/perl/perl5
APItest/t/utf16_to_utf8.t: Skip on EBCDIC
authorKarl Williamson <khw@cpan.org>
Fri, 29 May 2020 15:54:37 +0000 (09:54 -0600)
committerSawyer X <xsawyerx@cpan.org>
Sun, 7 Jun 2020 06:50:00 +0000 (09:50 +0300)
How this should behave is not well defined.

ext/XS-APItest/t/utf16_to_utf8.t

index 3bb78d4..8ebe1e3 100644 (file)
@@ -4,6 +4,8 @@ use strict;
 use Test::More;
 use Encode;
 
+plan skip_all => 'Unclear how EBCIDC should behave' if ord "A" != 65;
+
 use XS::APItest qw(utf16_to_utf8 utf16_to_utf8_reversed);
 
 for my $ord (0, 10, 13, 78, 255, 256, 0xD7FF, 0xE000, 0xFFFD,