Thank you.
I want to know what UTF8-flag-on string (SvUTF8(sv) is true)
is equivalent with "\xef\xb9\xbf",
but I would misunderstand usage of pack('U*', LIST).
Are numbers < 256 in LIST
Unicode code points or native ASCII/EBCDIC code points?
Here is a draft of tests 25..28.
I guess this should succeses if pack(U) would take Unicode code points,
but I might be still in the wrong.
### TESTS START
$utf8_fe7f_upgraded = ord("A") != 0x41
? pack('U*', 213, 190, 215) # EBCDIC "\xef\xb9\xbf"
: pack('U*', 239, 185, 191); # ASCII "\xef\xb9\xbf"
$utf8_fe7f_bytes = pack('C*', 239, 185, 191);
print "\x{fe7f}" eq utf8_to_unicode($utf8_fe7f_upgraded)
? "ok" : "not ok", " 25\n";
print "\x{fe7f}" eq utf8_to_unicode($utf8_fe7f_bytes)
? "ok" : "not ok", " 26\n";
print $utf8_fe7f_upgraded eq unicode_to_utf8("\x{fe7f}")
? "ok" : "not ok", " 27\n";
print $utf8_fe7f_bytes eq unicode_to_utf8("\x{fe7f}")
? "ok" : "not ok", " 28\n";
### TESTS END
And many thanks for discovering STRLEN-UV type mismatchings, too.
SADAHIRO Tomoyuki
>Thank you for your report.
>
>I was careless about the trap on a non-ASCII platform
>like that ("a" eq "\x61") is not true.
>
>So the failed tests are fixed, and some tests are added.
>Ver. 0.20 is available from there:
>
>[TAR-GZ, HTML-ized POD]
>http://homepage1.nifty.com/nomenclator/perl/Unicode-Transform-0.20.tar.gz
>http://homepage1.nifty.com/nomenclator/perl/Unicode-Transform.html
>
>SADAHIRO Tomoyuki
I have now run this latest version on z/OS with the following results:
/defects/brian/unicode/Unicode-Transform-0.20:>make test
PERL_DL_NONLAZY=1 /defects/brian/nonthreaded/perl-5.8.0/perl
"-I/defects/brian/n
onthreaded/perl-5.8.0/lib" "-I/defects/brian/nonthreaded/perl-5.8.0/lib"
"-MExtU
tils::Command::MM" "-e" "test_harness(0, 'blib/lib', 'blib/arch')" t/*.t
t/handler....ok
t/test.......FAILED tests 25, 27
Failed 2/28 tests, 92.86% okay
Failed Test Stat Wstat Total Fail Failed List of Failed
-------------------------------------------------------------------------------
t/test.t 28 2 7.14% 25 27
Failed 1/2 test scripts, 50.00% okay. 2/38 subtests failed, 94.74% okay.
make: *** [test_dynamic] Error 121
I also had the warnings similar to the following when compiling on z/OS:
WARNING CCN3196 ./Transform.c:21 Initialization between types
"unsigned int(*)
(unsigned char*,unsigned int,unsigned int*)" and "unsigned
long(*)(unsigned char*,unsigned int,unsigned int*)"
is not allowed.
FSUM3065 The COMPILE step ended with return code 4.
I got rid of these warnings by changing the return type all of the
ord_in_* functions to STRLEN instead of UV, in the file unitrans.h. I
choose this because the return type of the app_in_* functions were
already STRLEN and they didn't generate warnings.
Brian