Skip to content

Commit

Permalink
some rakudo unfudges in rindex.t
Browse files Browse the repository at this point in the history
  • Loading branch information
moritz committed Jul 15, 2011
1 parent 737dfa2 commit 2b7dab1
Showing 1 changed file with 0 additions and 5 deletions.
5 changes: 0 additions & 5 deletions S32-str/rindex.t
Expand Up @@ -51,27 +51,22 @@ is(rindex("Ümlaut", "Ü"), 0, "Umlaut");
is(rindex("what are these « » unicode characters for ?", "uni"), 19, "over unicode characters");

# .rindex use
#?rakudo todo 'nom regression'
is("Hello World".rindex("l"), 9, ".rindex on string");
#?rakudo todo 'nom regression'
is("Hello World".rindex(''), 11, ".rindex('') on string gives string length in bytes");

# on scalar variable
my $s = "Hello World";
is(rindex($s, "o"), 7, "rindex on scalar variable");
#?rakudo todo 'nom regression'
is($s.rindex("o"), 7, ".rindex on scalar variable");

is(rindex(uc($s), "O"), 7, "rindex on uc");
#?rakudo todo 'nom regression'
is($s.uc.rindex("O"), 7, ".uc.rindex ");

# ideas for deeper chained . calls ?
#?rakudo todo 'nom regression'
is($s.lc.ucfirst.rindex("w"), 6, ".lc.ucfirst.rindex");

# rindex on non-strings
#?rakudo todo 'nom regression'
ok 3459.rindex(5) == 2, 'rindex on integers';

# vim: ft=perl6

0 comments on commit 2b7dab1

Please sign in to comment.