Skip to content

HTTPS clone URL

Subversion checkout URL

You can clone with
or
.
Download ZIP
Browse files

[t/spec] Test for RT #65172

git-svn-id: http://svn.pugscode.org/pugs@28003 c213334d-75ef-0310-aa23-eaa082d1ae64
  • Loading branch information...
commit fe2a54c9c86e3f282b84e97f062ffe35f12a5927 1 parent af53c5a
kyle authored
Showing with 9 additions and 1 deletion.
  1. +9 −1 S29-conversions/ord_and_chr.t
View
10 S29-conversions/ord_and_chr.t
@@ -121,7 +121,7 @@ my @maps = (
"\o03", 3,
);
-plan 37+@maps*2;
+plan 38+@maps*2;
for @maps -> $char, $code {
my $descr = "\\{$code}{$code >= 32 ?? " == '{$char}'" !! ""}";
@@ -152,4 +152,12 @@ is chr(104, 101, 108, 108, 111), 'hello', 'chr works with a list of ints';
#?rakudo skip 'RT #62772'
ok ord("") ~~ Failure, 'ord("") returns a Failure';
+# RT #65172
+{
+ my $rt65172a = "\c[LATIN CAPITAL LETTER A, COMBINING DOT ABOVE]";
+ my $rt65172b = "\c[LATIN CAPITAL LETTER A WITH DOT ABOVE]";
+ #?rakudo todo 'RT #65172'
+ is $rt65172a.ord, $rt65172b.ord, '.ord defaults to grapheme mode';
+}
+
#vim: ft=perl6
Please sign in to comment.
Something went wrong with that request. Please try again.