Thai digits do not increment with .succ successor method

[p6rt]

Migrated from rt.perl.org#128868 (status was 'resolved')

Searchable as RT128868$

[p6rt]

From @labster

labster m​: say "\x[0e53]".succ eq "\x[0e53]"
camelia rakudo-moar 77724b​: OUTPUT«True␤»
labster m​: say "\x[0e53] ", uniname("\x[0e53]");
camelia rakudo-moar 77724b​: OUTPUT«๓ THAI DIGIT THREE␤»
masak labster​: ...so three follows on three?
labster m​: say "\x[0e54] ", uniname("\x[0e54]"); # Usually four
follows three
camelia rakudo-moar 77724b​: OUTPUT«๔ THAI DIGIT FOUR␤»
labster m​: say "\x[0e53]" ~~ /\d/;
camelia rakudo-moar 77724b​: OUTPUT«｢๓｣␤»

[p6rt]

From @lizmat

Fixed with ff26dd8 , tests needed

On 07 Aug 2016, at 22​:10, Brent Laabs (via RT) <perl6-bugs-followup@​perl.org> wrote​:

# New Ticket Created by Brent Laabs
# Please include the string​: [perl #​128868]
# in the subject line of all future correspondence about this issue.
# <URL​: https://rt-archive.perl.org/perl6/Ticket/Display.html?id=128868 >

labster m​: say "\x[0e53]".succ eq "\x[0e53]"
camelia rakudo-moar 77724b​: OUTPUT«True␤»
labster m​: say "\x[0e53] ", uniname("\x[0e53]");
camelia rakudo-moar 77724b​: OUTPUT«๓ THAI DIGIT THREE␤»
masak labster​: ...so three follows on three?
labster m​: say "\x[0e54] ", uniname("\x[0e54]"); # Usually four
follows three
camelia rakudo-moar 77724b​: OUTPUT«๔ THAI DIGIT FOUR␤»
labster m​: say "\x[0e53]" ~~ /\d/;
camelia rakudo-moar 77724b​: OUTPUT«｢๓｣␤»

[p6rt]

The RT System itself - Status changed from 'new' to 'open'

[p6rt]

From @labster

Tests added with 19fa7f3d6. According to Wikipedia, Thai digits increment just like standard Arabic ones, so we're good here. Resolving!

On Sun Aug 07 14​:54​:56 2016, elizabeth wrote​:

Fixed with ff26dd8 , tests needed

On 07 Aug 2016, at 22​:10, Brent Laabs (via RT) <perl6-bugs-
followup@​perl.org> wrote​:

# New Ticket Created by Brent Laabs
# Please include the string​: [perl #​128868]
# in the subject line of all future correspondence about this issue.
# <URL​: https://rt-archive.perl.org/perl6/Ticket/Display.html?id=128868 >

labster m​: say "\x[0e53]".succ eq "\x[0e53]"
camelia rakudo-moar 77724b​: OUTPUT«True␤»
labster m​: say "\x[0e53] ", uniname("\x[0e53]");
camelia rakudo-moar 77724b​: OUTPUT«๓ THAI DIGIT THREE␤»
masak labster​: ...so three follows on three?
labster m​: say "\x[0e54] ", uniname("\x[0e54]"); # Usually
four
follows three
camelia rakudo-moar 77724b​: OUTPUT«๔ THAI DIGIT FOUR␤»
labster m​: say "\x[0e53]" ~~ /\d/;
camelia rakudo-moar 77724b​: OUTPUT«｢๓｣␤»

[p6rt]

@labster - Status changed from 'open' to 'resolved'