"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

---