Permalink
Cannot retrieve contributors at this time
use v6; | |
use Test; | |
plan 11; | |
# XXX [TODO] more tests in other Unicode charset. | |
# L<S02/Unicode codepoints> | |
is "\c[LEFT CORNER BRACKET]", "γ", '\c[LEFT CORNER BRACKET]'; | |
is "\c[RIGHT WHITE CORNER BRACKET]", "γ", '\c[RIGHT WHITE CORNER BRACKET]'; | |
is "\c[FULLWIDTH RIGHT PARENTHESIS]", "οΌ", '\c[FULLWIDTH RIGHT PARENTHESIS]'; | |
is "\c[LEFT DOUBLE ANGLE BRACKET]", "γ", '\c[LEFT DOUBLE ANGLE BRACKET]'; | |
is("\c[LINE FEED]", "\c10", '\c[LINE FEED] works'); | |
is("\c[LF]", "\c10", '\c[LF] works'); | |
# L<S02/Unicode codepoints/"Multiple codepoints constituting a single character"> | |
is "\c[LATIN CAPITAL LETTER A, LATIN CAPITAL LETTER B]", 'AB', 'two letters in \c[]'; | |
is "\c[LATIN CAPITAL LETTER A, COMBINING GRAVE ACCENT]", "\x[0041,0300]", 'letter and combining char in \c[]'; | |
# https://github.com/Raku/old-issue-tracker/issues/927 | |
ok "\c[LATIN SMALL LETTER A WITH DIAERESIS,COMBINING CEDILLA]" ~~ /\w/, | |
'RT #64918 (some strings throw "Malformed UTF-8 string" errors'; | |
# https://github.com/Raku/old-issue-tracker/issues/5998 | |
is "\c[BELL]", "π", '\c[BELL] returns π, BELL symbol not the control character'; | |
#?rakudo.jvm skip "rakudo.jvm does not yet support Emoji Sequences" | |
is "\c[woman gesturing OK]".ords, (0x1F646, 0x200D, 0x2640, 0xFE0F), "\\c[woman gesturing OK] works. Emoji ZWJ sequences"; | |
# vim: expandtab shiftwidth=4 |