[perl #64948] 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 8f37464de8e12e033fbbdec55773a3567f5600e4
Author: kyle <k...@c213334d-75ef-0310-aa23-eaa082d1ae64>
Date:   Thu Aug 13 12:39:58 2009 +0000

    [t/spec] Cut out the tests for RT #64948
    
    The tests as written don't conform to the spec.  I'm cutting instead of
    fixing due to time constraints with intent to return to this later.
    
    git-svn-id: http://svn.pugscode.org/p...@27980 
c213334d-75ef-0310-aa23-eaa082d1ae64

diff --git a/t/spec/S05-match/capturing-contexts.t 
b/t/spec/S05-match/capturing-contexts.t
index 2431b03..0227dfe 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 26;
+plan 20;
 
 if !eval('("a" ~~ /a/)') {
   skip_rest "skipped tests - rules support appears to be missing";
@@ -63,30 +63,6 @@ if !eval('("a" ~~ /a/)') {
     is ~$<o>, 'o o', 'match list stringifies like a normal list AFTER "isa"';
 }
 
-# RT #64948
-{
-    #?rakudo todo 'RT #64948'
-    ok %( 'foo' ~~ /<alpha> oo/ ).can( 'exists' ),
-       'Match coerced to Hash has "exists" method';
-    #?rakudo skip 'RT #64948'
-    ok %( 'foo' ~~ /<alpha> oo/ ).exists( 'alpha' ),
-       'Match coerced to Hash says "alpha" exists';
-
-    'foo' ~~ /<alpha> oo/;
-    #?rakudo todo 'RT #64948'
-    ok %( $/ ).can( 'exists' ),
-       'Match in $/ coerced to Hash has "exists" method';
-    #?rakudo skip 'RT #64948'
-    ok %( $/ ).exists( 'alpha' ),
-       'Match in $/ coerced to Hash says "alpha" exists';
-
-    my %match_as_hash = %( 'foo' ~~ /<alpha> oo/ );
-    ok %match_as_hash.can( 'exists' ),
-       'Match stored in Hash has "exists" method';
-    ok %match_as_hash.exists( 'alpha' ),
-       '"alpha" exists in Match stored in Hash';
-}
-
 # RT #64952
 {
     'ab' ~~ /(.)+/;