Browse files

[t/spec] be more explicit when testing for graphemenss

git-svn-id: http://svn.pugscode.org/pugs@29323 c213334d-75ef-0310-aa23-eaa082d1ae64
  • Loading branch information...
1 parent 8ab5408 commit 2f255528e6b45b035ffa1aee1ca3c9146c8b4396 moritz committed Dec 11, 2009
Showing with 8 additions and 6 deletions.
  1. +8 −6 S29-conversions/ord_and_chr.t
View
14 S29-conversions/ord_and_chr.t
@@ -150,13 +150,15 @@ is chr(104, 101, 108, 108, 111), 'hello', 'chr works with a list of ints';
ok not defined(ord("")), 'ord("") returns an undefined value';
# RT #65172
+#?rakudo todo 'RT 6512'
{
- my $rt65172a = "\c[LATIN CAPITAL LETTER A, COMBINING DOT ABOVE]";
- my $rt65172b = "\c[LATIN CAPITAL LETTER A WITH DOT ABOVE]";
- #?rakudo todo "slash-c doesn't work yet in Rakudo-ng"
- ok $rt65172b.chars > 0, "Check that we actually got a string here";
- #?rakudo skip 'incorrectly passing'
- is $rt65172a.ord, $rt65172b.ord, '.ord defaults to grapheme mode';
+ is "\c[LATIN CAPITAL LETTER A, COMBINING DOT ABOVE]".ord,
+ 555,
+ '.ord defaults to graphemes (1)';
+
+ is "\c[LATIN CAPITAL LETTER A WITH DOT ABOVE]",
+ 555,
+ '.ord defaults to graphemes (2)';
}
#vim: ft=perl6

0 comments on commit 2f25552

Please sign in to comment.