"Fossies" - the Fresh Open Source Software Archive  

Source code changes of the file "ext/XS-APItest/t/utf16_to_utf8.t" between
perl-5.32.0-RC0.tar.xz and perl-5.32.0-RC1.tar.xz

About: Perl (Practical Extraction and Report Language) is a high-level, general-purpose, interpreted, dynamic programming language. Release candidate.

utf16_to_utf8.t  (perl-5.32.0-RC0.tar.xz):utf16_to_utf8.t  (perl-5.32.0-RC1.tar.xz)
#!perl -w #!perl -w
use strict; use strict;
use Test::More; use Test::More;
use Encode; 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); use XS::APItest qw(utf16_to_utf8 utf16_to_utf8_reversed);
for my $ord (0, 10, 13, 78, 255, 256, 0xD7FF, 0xE000, 0xFFFD, for my $ord (0, 10, 13, 78, 255, 256, 0xD7FF, 0xE000, 0xFFFD,
0x10000, 0x10FC00, 0x103FF, 0x10FFFD) { 0x10000, 0x10FC00, 0x103FF, 0x10FFFD) {
my $chr = chr $ord; my $chr = chr $ord;
for my $prefix ('', "\0", 'Perl rules') { for my $prefix ('', "\0", 'Perl rules') {
for my $suffix ('', "\0", "Moo!") { for my $suffix ('', "\0", "Moo!") {
my $string = $prefix . $chr . $suffix; my $string = $prefix . $chr . $suffix;
my $name = sprintf "for chr $ord prefix %d, suffix %d", my $name = sprintf "for chr $ord prefix %d, suffix %d",
length $prefix, length $suffix; length $prefix, length $suffix;
 End of changes. 1 change blocks. 
0 lines changed or deleted 2 lines changed or added

Home  |  About  |  Features  |  All  |  Newest  |  Dox  |  Diffs  |  RSS Feeds  |  Screenshots  |  Comments  |  Imprint  |  Privacy  |  HTTP(S)