Skip to content

HTTPS clone URL

Subversion checkout URL

You can clone with
or
.
Download ZIP
Fetching contributors…

Cannot retrieve contributors at this time

28 lines (20 sloc) 0.708 kB
use v6;
use Test;
plan 5;
#L<S02/"Methods on Arrays"/".bytes, .codes">
# LATIN CAPITAL LETTER C, COMBINING DOT BELOW
my Str $u = "\x[0043,0323]";
is $u.codes, 2, 'combining \x[0042,0323] is two codes';
is "foo\r\nbar".codes, 8, 'CRLF is 2 codes';
#?rakudo.jvm todo "NFG on JVM RT #124500"
is $u.chars, 1, '.chars defaults to NFG';
# RT #65170
#?rakudo.jvm todo "NFG on JVM RT #124501"
{
my $rt65170;
$rt65170 = "\c[LATIN CAPITAL LETTER A WITH DOT ABOVE, COMBINING DOT BELOW]";
is $rt65170.chars, 1, '.chars defaults to NFG (2)';
$rt65170 = "\c[LATIN CAPITAL LETTER A, COMBINING DOT ABOVE, COMBINING DOT BELOW]";
is $rt65170.chars, 1, '.chars defaults to NFG (3)';
}
#vim: ft=perl6
Jump to Line
Something went wrong with that request. Please try again.