[perl #64952] tests available

[kyleha]

This is an automatically generated mail to inform you that tests are now 
available in t/spec/S05-match/capturing-contexts.t

commit a028ec7cdd599cde941391e8d05699a86608dd76
Author: kyle <k...@c213334d-75ef-0310-aa23-eaa082d1ae64>
Date:   Wed Aug 12 21:07:20 2009 +0000

    [t/spec] Tests for RT #64952
    
    git-svn-id: http://svn.pugscode.org/p...@27972 
c213334d-75ef-0310-aa23-eaa082d1ae64

diff --git a/t/spec/S05-match/capturing-contexts.t 
b/t/spec/S05-match/capturing-contexts.t
index 13e54ef..5de209e 100644
--- a/t/spec/S05-match/capturing-contexts.t
+++ b/t/spec/S05-match/capturing-contexts.t
@@ -2,7 +2,7 @@ use v6;
 
 use Test;
 
-plan 20;
+plan 24;
 
 if !eval('("a" ~~ /a/)') {
   skip_rest "skipped tests - rules support appears to be missing";
@@ -79,4 +79,16 @@ if !eval('("a" ~~ /a/)') {
        '"alpha" exists in Match stored in Hash';
 }
 
+# RT #64952
+{
+    'ab' ~~ /(.)+/;
+    is $/[0][0], 'a', 'match element [0][0] from /(.)+/';
+    is $/[0][1], 'b', 'match element [0][1] from /(.)+/';
+
+    my @match = @( 'ab' ~~ /(.)+/ );
+    #?rakudo 2 todo 'match coerced to array is flattened (RT #64952)'
+    is @match[0][0], 'a', 'match element [0][0] from /(.)+/ coerced';
+    is @match[0][1], 'b', 'match element [0][1] from /(.)+/ coerced';
+}
+
 # vim: ft=perl6