test or index() with non-ASCII chars, #73122

Raku · Oct 1, 2011 · 44ff863 · 44ff863
1 parent 24f09e8
commit 44ff863
Showing 1 changed file with 4 additions and 1 deletion.
diff --git a/S32-str/index.t b/S32-str/index.t
@@ -3,7 +3,7 @@ use Test;
 
 # L<S32::Str/Str/"=item index">
 
-plan 37;
+plan 38;
 
 # Type of return value
 #?rakudo 2 skip 'StrPos not implemented'
@@ -87,4 +87,7 @@ ok 1234.index(3) == 2, '.index on non-strings (here: Int)';
     is $s.substr($s.index(0)),   '023', 'Str.index(0) works';
 }
 
+# RT #73122
+is index("uuúuúuùù", "úuù"), 4, 'index works for non-ascii';
+
 # vim: ft=perl6