Add tests for rindex(string,@needles)

Raku · Feb 23, 2020 · e75ef0a · e75ef0a
1 parent 828edb2
commit e75ef0a
Showing 1 changed file with 7 additions and 2 deletions.
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 46;
+plan 50;
 
 # Type of return value
 isa-ok('abc'.rindex('b'), Int);
@@ -87,6 +87,11 @@ throws-like 'rindex("xxyxx", "y", -1)', X::OutOfRange, 'rindex with negative sta
     }
 }
 
-try { 42.rindex: Str }; pass "Cool.rindex with wrong args does not hang";
+dies-ok { 42.rindex: Str }, "Cool.rindex with wrong args does not hang";
+
+for "foobar","foobar".match(/\w+/) {
+    is .rindex(<o a>), 4, "does a list of needles work ok with method";
+    is rindex($_,<a o>), 4, "does a list of needles work ok with sub";
+}
 
 # vim: ft=perl6