[perl #64668] tests available

[kyleha]

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

commit 2d64d4da752a97a12ba88928d0f93582d005b32f
Author: kyle <k...@c213334d-75ef-0310-aa23-eaa082d1ae64>
Date:   Sun Jul 26 15:50:21 2009 +0000

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

diff --git a/t/spec/S05-metasyntax/regex.t b/t/spec/S05-metasyntax/regex.t
index 8004258..d332d75 100644
--- a/t/spec/S05-metasyntax/regex.t
+++ b/t/spec/S05-metasyntax/regex.t
@@ -1,7 +1,7 @@
 use v6;
 use Test;
 
-plan 24;
+plan 26;
 
 # L<S05/Regexes are now first-class language, not strings>
 
@@ -87,3 +87,10 @@ eval_dies_ok 'rx/;/',       'bare ";" is rx is not allowed';
 eval_dies_ok q{';' ~~ /;/}, 'bare ";" in match is not allowed';
 isa_ok rx/\;/, Regex,       'escaped ";" in rx// works';
 ok ';' ~~ /\;/,             'escaped ";" in m// works';
+
+# RT #64668
+{
+    eval '"RT #64668" ~~ /<nosuchrule>/';
+    ok  $!  ~~ Exception, 'use of missing named rule dies';
+    ok "$!" ~~ /nosuchrule/, 'error message mentions the missing rule';
+}