Permalink
Browse files

[t/spec] Refudge incorrectly passing test, add test that indicts why …

…it is incorrect.

git-svn-id: http://svn.pugscode.org/pugs@29322 c213334d-75ef-0310-aa23-eaa082d1ae64
  • Loading branch information...
colomon
colomon committed Dec 11, 2009
1 parent f2636ce commit 8ab5408039f95326dd4dcefbf2e9e93e8ed4e859
Showing with 4 additions and 2 deletions.
  1. +4 −2 S29-conversions/ord_and_chr.t
@@ -121,7 +121,7 @@ my @maps = (
"\o03", 3,
);
-plan 38+@maps*2;
+plan 39+@maps*2;
for @maps -> $char, $code {
my $descr = "\\{$code}{$code >= 32 ?? " == '{$char}'" !! ""}";
@@ -153,7 +153,9 @@ ok not defined(ord("")), 'ord("") returns an undefined value';
{
my $rt65172a = "\c[LATIN CAPITAL LETTER A, COMBINING DOT ABOVE]";
my $rt65172b = "\c[LATIN CAPITAL LETTER A WITH DOT ABOVE]";
- #?rakudo todo 'RT #65172'
+ #?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';
}

0 comments on commit 8ab5408

Please sign in to comment.