Add (fudged) tests for RT#123760 which could perhaps be tagged LHF

Raku · Aug 9, 2015 · b3831d1 · b3831d1
1 parent a7118a8
commit b3831d1
Showing 1 changed file with 11 additions and 1 deletion.
diff --git a/S32-str/comb.t b/S32-str/comb.t
@@ -2,7 +2,7 @@ use v6;
 
 use Test;
 
-plan 41;
+plan 45;
 
 # L<S32::Str/Str/=item comb>
 
@@ -104,4 +104,14 @@ is (<a ab>, <bc ad ba>).comb(m:Perl5/\S*a\S*/), <a ab ad ba>,
     is comb(/\d+/ , "Th3r3 4r3 s0m3 numb3rs 1n th1s str1ng" , 2), <3 3>, 'Subroutine form with limit';
 }
 
+# RT #123760
+#?rakudo todo 'NYI RT#123760 Str:D matcher candidates'
+{
+    my $res = ();
+    lives-ok { EVAL '$res = comb("o","ooo")' }, "comb(Str,Str) lives";
+    is $res, <o o o>, "comb(Str,Str) works";
+    lives-ok { EVAL '$res = "qqq".comb("q")' }, "Str.comb(Str) lives";
+    is $res, <q q q>, "Str.comb(Str) works";
+}
+
 # vim: ft=perl6