[perl #64946] 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 42de757ca2efdca487f23e54959612d7011f4d8c
Author: kyle <k...@c213334d-75ef-0310-aa23-eaa082d1ae64>
Date:   Wed Aug 12 03:51:10 2009 +0000

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

diff --git a/t/spec/S05-match/capturing-contexts.t 
b/t/spec/S05-match/capturing-contexts.t
index 122651f..112ffb5 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 13;
+plan 16;
 
 if !eval('("a" ~~ /a/)') {
   skip_rest "skipped tests - rules support appears to be missing";
@@ -49,4 +49,18 @@ if !eval('("a" ~~ /a/)') {
   is $x.keys, 'a', 'match copy should be same as match';
 }
 
+# RT #64946
+{
+    regex o { o };
+    "foo" ~~ /f<o>+/;
+
+    #?rakudo todo 'RT #64946'
+    is ~$<o>, 'o o', 'match list stringifies like a normal list';
+    isa_ok $<o>, List;
+    # I don't know what difference 'isa' makes, but it does.
+    # Note that calling .WHAT (as in the original ticket) does not have
+    # the same effect.
+    is ~$<o>, 'o o', 'match list stringifies like a normal list AFTER "isa"';
+}
+
 # vim: ft=perl6