RT #112818, rindex with non-Latin-1 strings

Raku · May 10, 2012 · f7639b1 · f7639b1
1 parent c99e10b
commit f7639b1
Showing 1 changed file with 4 additions and 1 deletion.
diff --git a/S32-str/rindex.t b/S32-str/rindex.t
@@ -3,7 +3,7 @@ use Test;
 
 # L<S32::Str/Str/"=item rindex">
 
-plan 32;
+plan 33;
 
 # Simple - with just a single char
 
@@ -67,4 +67,7 @@ is($s.lc.ucfirst.rindex("w"), 6, ".lc.ucfirst.rindex");
 # rindex on non-strings
 ok 3459.rindex(5) == 2, 'rindex on integers';
 
+# RT #112818
+is "\x261b perl \x261a".rindex('e'), 3, 'rindex with non-latin-1 strings';
+
 # vim: ft=perl6