Skip to content

Commit

Permalink
[t/spec] Refudge incorrectly passing test, add test that indicts why …
Browse files Browse the repository at this point in the history
…it is incorrect.

git-svn-id: http://svn.pugscode.org/pugs@29322 c213334d-75ef-0310-aa23-eaa082d1ae64
  • Loading branch information
colomon committed Dec 11, 2009
1 parent f2636ce commit 8ab5408
Showing 1 changed file with 4 additions and 2 deletions.
6 changes: 4 additions & 2 deletions S29-conversions/ord_and_chr.t
Expand Up @@ -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}'" !! ""}";
Expand Down Expand Up @@ -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';
}

Expand Down

0 comments on commit 8ab5408

Please sign in to comment.