Bug #87393 for Encode-JP-Mobile: t/charnames.t fails with Perl 5.18

Mon Jul 29 03:19:08 2013 ppisar [...] redhat.com - Ticket created

Subject:

t/charnames.t fails with Perl 5.18

Encode-JP-Mobile-0.30 t/charnames.t tests fail with Perl 5.18: [test@fedora-20 Encode-JP-Mobile-0.30]$ prove --blib --verbose t/charnames.t t/charnames.t .. 1..34 ok 1 ok 2 ok 3 ok 4 ok 5 ok 6 ok 7 ok 8 ok 9 - ezweb-cp932 ok 10 - ezweb-auto ok 11 - kddi-softbank conflict code. should return softbank code ok 12 ok 13 ok 14 ok 15 ok 16 ok 17 not ok 18 # Failed test at t/charnames.t line 45. # got: '1' # expected: '' ok 19 ok 20 ok 21 not ok 22 - check warn num # Failed test 'check warn num' # at t/charnames.t line 60. # got: '4' # expected: '1' not ok 23 - warning when unkown character # Failed test 'warning when unkown character' # at t/charnames.t line 61. # 'unknown charnames: ファーストフード at t/charnames.t line 45. # ' # doesn't match '(?^:unknown charnames: Foo)' ok 24 - warning when unkown \N{} character ok 25 - validation ok 26 - validation ok 27 - validation ok 28 ok 29 ok 30 ok 31 ok 32 ok 33 - check consistency ok 34 # Looks like you failed 3 tests of 34. Dubious, test returned 3 (wstat 768, 0x300) Failed 3/34 subtests Test Summary Report ------------------- t/charnames.t (Wstat: 768 Tests: 34 Failed: 3) Failed tests: 18, 22-23 Non-zero exit status: 3 Files=1, Tests=34, 1 wallclock secs ( 0.04 usr 0.01 sys + 0.21 cusr 0.03 csys = 0.29 CPU) Result: FAIL

Tue Sep 03 10:36:52 2013 ppisar [...] redhat.com - Correspondence added

From:

ppisar [...] redhat.com

Dne Po 29.čec.2013 03:19:08, ppisar napsal(a): Show quoted text

> Encode-JP-Mobile-0.30 t/charnames.t tests fail with Perl 5.18: > > [test@fedora-20 Encode-JP-Mobile-0.30]$ prove --blib --verbose > t/charnames.t > t/charnames.t .. > 1..34 > ok 1 > ok 2 > ok 3 > ok 4 > ok 5 > ok 6 > ok 7 > ok 8 > ok 9 - ezweb-cp932 > ok 10 - ezweb-auto > ok 11 - kddi-softbank conflict code. should return softbank code > ok 12 > ok 13 > ok 14 > ok 15 > ok 16 > ok 17 > not ok 18 > > # Failed test at t/charnames.t line 45. > # got: '1' > # expected: '' > ok 19 > ok 20 > ok 21 > not ok 22 - check warn num > > # Failed test 'check warn num' > # at t/charnames.t line 60. > # got: '4' > # expected: '1' > not ok 23 - warning when unkown character > > # Failed test 'warning when unkown character' > # at t/charnames.t line 61. > # 'unknown charnames: ファーストフード at t/charnames.t line > 45. > # ' > # doesn't match '(?^:unknown charnames: Foo)' > ok 24 - warning when unkown \N{} character > ok 25 - validation > ok 26 - validation > ok 27 - validation > ok 28 > ok 29 > ok 30 > ok 31 > ok 32 > ok 33 - check consistency > ok 34 > # Looks like you failed 3 tests of 34. > Dubious, test returned 3 (wstat 768, 0x300) > Failed 3/34 subtests > > Test Summary Report > ------------------- > t/charnames.t (Wstat: 768 Tests: 34 Failed: 3) > Failed tests: 18, 22-23 > Non-zero exit status: 3 > Files=1, Tests=34, 1 wallclock secs ( 0.04 usr 0.01 sys + 0.21 cusr > 0.03 csys = 0.29 CPU) > Result: FAIL

Two of the failures are due to a new warning and they can be fixed by upstream commit: commit 6c014c5171a941da8a51c691b75b486c16c10833 Author: Tatsuhiko Miyagawa <miyagawa@bulknews.net> Date: Mon Jul 29 11:09:28 2013 -0700 Fix warnings counting for 5.18 The only left failure is test 45 trying to obtain \x{E673} using \N{DoCoMo ファーストフード}. This errors about unknown charname: $ perl -Iblib/arch/ -Iblib/lib -e 'use utf8; binmode STDOUT, q{:utf8}; use Encode::JP::Mobile::Charnames; print qq{\N{DoCoMo ファーストフード}}, qq{\n}' Wide character in warn at /usr/share/perl5/Carp.pm line 102. unknown charnames: ファーストフード at -e line 1. 1 According to my tests, none character can by acccessed by alias in katakana or kanji. Accesing by english name works. Also simple charnames alias works: $ perl -Iblib/arch/ -Iblib/lib -e 'use utf8; binmode STDOUT, q{:utf8}; use charnames q{:alias} => {ビール => 0xE672} ; print qq{\N{ビール}}, qq{\n}' | hexdump -C 00000000 ee 99 b2 0a |....| 00000004 So I guess the problem is in how the XS stores the native character name. -- Petr

Tue Sep 03 11:46:59 2013 miyagawa [...] gmail.com - Correspondence added

Subject:	Re: [rt.cpan.org #87393] t/charnames.t fails with Perl 5.18
Date:	Tue, 03 Sep 2013 08:46:41 -0700 (PDT)
To:	"bug-Encode-JP-Mobile [...] rt.cpan.org" <bug-encode-jp-mobile [...] rt.cpan.org>
From:	"Tatsuhiko Miyagawa" <miyagawa [...] gmail.com>

This has been changed in 5.16. Used to run fine with earlier version of perl. — Sent from Mailbox for iPhone On Tue, Sep 3, 2013 at 7:36 AM, Petr Pisar via RT <bug-Encode-JP-Mobile@rt.cpan.org> wrote: Show quoted text

> Queue: Encode-JP-Mobile > Ticket <URL: https://rt.cpan.org/Ticket/Display.html?id=87393 > > Dne Po 29.čec.2013 03:19:08, ppisar napsal(a):

>> Encode-JP-Mobile-0.30 t/charnames.t tests fail with Perl 5.18: >> >> [test@fedora-20 Encode-JP-Mobile-0.30]$ prove --blib --verbose >> t/charnames.t >> t/charnames.t .. >> 1..34 >> ok 1 >> ok 2 >> ok 3 >> ok 4 >> ok 5 >> ok 6 >> ok 7 >> ok 8 >> ok 9 - ezweb-cp932 >> ok 10 - ezweb-auto >> ok 11 - kddi-softbank conflict code. should return softbank code >> ok 12 >> ok 13 >> ok 14 >> ok 15 >> ok 16 >> ok 17 >> not ok 18 >> >> # Failed test at t/charnames.t line 45. >> # got: '1' >> # expected: '' >> ok 19 >> ok 20 >> ok 21 >> not ok 22 - check warn num >> >> # Failed test 'check warn num' >> # at t/charnames.t line 60. >> # got: '4' >> # expected: '1' >> not ok 23 - warning when unkown character >> >> # Failed test 'warning when unkown character' >> # at t/charnames.t line 61. >> # 'unknown charnames: ファーストフード at t/charnames.t line >> 45. >> # ' >> # doesn't match '(?^:unknown charnames: Foo)' >> ok 24 - warning when unkown \N{} character >> ok 25 - validation >> ok 26 - validation >> ok 27 - validation >> ok 28 >> ok 29 >> ok 30 >> ok 31 >> ok 32 >> ok 33 - check consistency >> ok 34 >> # Looks like you failed 3 tests of 34. >> Dubious, test returned 3 (wstat 768, 0x300) >> Failed 3/34 subtests >> >> Test Summary Report >> ------------------- >> t/charnames.t (Wstat: 768 Tests: 34 Failed: 3) >> Failed tests: 18, 22-23 >> Non-zero exit status: 3 >> Files=1, Tests=34, 1 wallclock secs ( 0.04 usr 0.01 sys + 0.21 cusr >> 0.03 csys = 0.29 CPU) >> Result: FAIL

> Two of the failures are due to a new warning and they can be fixed by upstream commit: > commit 6c014c5171a941da8a51c691b75b486c16c10833 > Author: Tatsuhiko Miyagawa <miyagawa@bulknews.net> > Date: Mon Jul 29 11:09:28 2013 -0700 > Fix warnings counting for 5.18 > The only left failure is test 45 trying to obtain \x{E673} using \N{DoCoMo ファーストフード}. This errors about unknown charname: > $ perl -Iblib/arch/ -Iblib/lib -e 'use utf8; binmode STDOUT, q{:utf8}; use Encode::JP::Mobile::Charnames; print qq{\N{DoCoMo ファーストフード}}, qq{\n}' > Wide character in warn at /usr/share/perl5/Carp.pm line 102. > unknown charnames: ファーストフード at -e line 1. > 1 > According to my tests, none character can by acccessed by alias in katakana or kanji. Accesing by english name works. > Also simple charnames alias works: > $ perl -Iblib/arch/ -Iblib/lib -e 'use utf8; binmode STDOUT, q{:utf8}; use charnames q{:alias} => {ビール => 0xE672} ; print qq{\N{ビール}}, qq{\n}' | hexdump -C > 00000000 ee 99 b2 0a |....| > 00000004 > So I guess the problem is in how the XS stores the native character name. > -- Petr

Tue Sep 03 11:47:00 2013 The RT System itself - Status changed from 'new' to 'open'