[perl #68680] tests available

[kyleha]

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

commit 366cffad4aea063bae83f8419a7dc2f115e81fa3
Author: moritz <mor...@c213334d-75ef-0310-aa23-eaa082d1ae64>
Date:   Wed Aug 19 22:14:35 2009 +0000

    Test for RT #68680, Match.orig
    
    git-svn-id: http://svn.pugscode.org/p...@28037 
c213334d-75ef-0310-aa23-eaa082d1ae64

diff --git a/t/spec/S05-capture/named.t b/t/spec/S05-capture/named.t
index 7e3199a..5f4b35c 100644
--- a/t/spec/S05-capture/named.t
+++ b/t/spec/S05-capture/named.t
@@ -2,7 +2,7 @@ use v6;
 
 use Test;
 
-plan 6;
+plan 7;
 
 =begin pod
 
@@ -25,6 +25,8 @@ if !eval('("a" ~~ /a/)') {
   "whaleshark" ~~ m/<fishy>/;
   is($/<fishy>[0], "whale", "named rule ordinal capture");
   is($<fishy>[0], "whale", "named rule ordinal capture with abbreviated 
variable");
+  #?rakudo skip 'RT 68680'
+  is $/.orig, 'whaleshark', '$/.orig works';
 };
 
 #L<S05/Named scalar aliasing to subpatterns>