[perl #64874] tests available

[kyleha]

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

commit 4d2fe0287307fdeb8318896610f074fafc4dd9ea
Author: kyle <k...@c213334d-75ef-0310-aa23-eaa082d1ae64>
Date:   Tue Aug 4 18:34:53 2009 +0000

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

diff --git a/t/spec/S05-match/perl.t b/t/spec/S05-match/perl.t
index 5f62299..6f96d0d 100644
--- a/t/spec/S05-match/perl.t
+++ b/t/spec/S05-match/perl.t
@@ -1,6 +1,6 @@
 use v6;
 use Test;
-plan 6;
+plan 11;
 
 # tests for Match.perl
 
@@ -25,5 +25,18 @@ regex o { o };
 ok "foo" ~~ /<f> <o>+ /, 'Regex matches (2)';
 lives_ok { $/.perl }, 'lives on quantified named captures';
 
+# RT #64874
+{
+    my $code_str = 'say <OH HAI>';
+    $code_str ~~ /<Perl6::Grammar::TOP>/;
+
+    isa_ok $/, Match;
+    is $/.ast, $code_str, 'Match.ast is the code matched';
+    is $/.Str, $code_str, 'Match.Str is the code matched';
+    #?rakudo todo 'RT #64874'
+    lives_ok { $/.perl }, 'can Match.perl';
+    #?rakudo skip 'RT #64874'
+    is_deeply eval($/.perl), $/, 'eval of Match.perl recreates Match';
+}
 
 # vim: ft=perl6