Test for RT #126033.

Raku · Sep 14, 2015 · 6043ba0 · 6043ba0
1 parent d397bca
commit 6043ba0
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 50;
+plan 51;
 
 # old: L<S05/Return values from matches/"A match always returns a Match object" >
 # L<S05/Match objects/"A match always returns a " >
@@ -192,4 +192,11 @@ plan 50;
     is Foo2.parse("[abab]").gist, "｢[abab]｣\n R => ｢aba｣\n  TOP => ｢aba｣", '(non-)capturing subrules advance cursor position (4)';
 }
 
+# RT #126033
+{
+    my $a = '<4';
+    $a = $a ~~ /\<(\d+)/;
+    is ~$a, '<4', 'result of match assigned to variable matched against works';
+}
+
 # vim: ft=perl6