New issue
Have a question about this project? Sign up for a free GitHub account to open an issue and contact its maintainers and the community.
By clicking “Sign up for GitHub”, you agree to our terms of service and privacy statement. We’ll occasionally send you account related emails.
Already on GitHub? Sign in to your account
Null PMC access when calling rules that do not exist from regexes in Rakudo #886
Comments
From @masak<masak> rakudo: say 42 ~~ /<number>/ |
From @kylehaI've put a test for this in S05-metasyntax/regex.t, and the code in the |
@kyleha - Status changed from 'new' to 'resolved' |
From @kylehaThis is an automatically generated mail to inform you that tests are now available in t/spec/S05-metasyntax/regex.t commit 2d64d4da752a97a12ba88928d0f93582d005b32f [t/spec] Test for RT #64668 Inline Patchdiff --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';
+} |
Migrated from rt.perl.org#64668 (status was 'resolved')
Searchable as RT64668$
The text was updated successfully, but these errors were encountered: