Add test for RT #83508

Raku · Oct 14, 2014 · ae245a6 · ae245a6
1 parent 390f04d
commit ae245a6
Showing 1 changed file with 8 additions and 1 deletion.
diff --git a/S05-match/capturing-contexts.t b/S05-match/capturing-contexts.t
@@ -4,7 +4,7 @@ use MONKEY_TYPING;
 use Test;
 use lib 't/spec/packages';
 use Test::Util;
-plan 44;
+plan 46;
 
 # old: L<S05/Return values from matches/"A match always returns a Match object" >
 # L<S05/Match objects/"A match always returns a " >
@@ -172,6 +172,13 @@ plan 44;
     isa_ok $/, Cool, "Match is Cool";
 }
 
+# RT #83508
+{
+    'x' ~~ /(y)? (z)*/;
+    is $0.defined, False, 'quantifier ? matching 0 values returns Nil';
+    is $1.defined, True, 'quantifier * matching 0 values returns empty list';
+}
+
 done;
 
 # vim: ft=perl6