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
LTA error message when a class does itself in Rakudo #1507
Comments
From @masak<masak> rakudo: class Boo does Boo { }; The error message is wrong at best. Probably should be some error |
From @jnthnOn Mon Feb 15 02:18:10 2010, masak wrote:
Now it's the rather better:
Given to moritz++ for spectest. Thanks, Jonathan |
The RT System itself - Status changed from 'new' to 'open' |
From @moritzTested in t/spec/S14-roles/basic.t. |
@moritz - Status changed from 'open' to 'resolved' |
From @kylehaThis is an automatically generated mail to inform you that tests are now available in t/spec/S14-roles/basic.t commit dbb6aa1b12a067ba8bb1a02b0e339975715862ac [t/spec] test for RT #72840 and RT #69170 Inline Patchdiff --git a/t/spec/S14-roles/basic.t b/t/spec/S14-roles/basic.t
index 9d48c95..04a81f4 100644
--- a/t/spec/S14-roles/basic.t
+++ b/t/spec/S14-roles/basic.t
@@ -120,7 +120,21 @@ eval_dies_ok '0 but RT66178', '"but" with non-existent role dies';
my $x = eval 'class BClass does AClass { }; 1';
nok $x, 'class SomeClass does AnotherClass dies';
ok "$!" ~~ /AClass/, 'Error message mentions the offending non-role';
+}
+# RT #72840
+{
+ eval 'class Boo does Boo { };';
+ ok "$!" ~~ /Boo/, 'class does itself produces sensible error message';
+}
+
+# RT #69170
+{
+ role StrTest {
+ method s { self.Str }
+ };
+ ok StrTest.s ~~ /StrTest/,
+ 'default role stringification contains role name';
}
done_testing; |
Migrated from rt.perl.org#72840 (status was 'resolved')
Searchable as RT72840$
The text was updated successfully, but these errors were encountered: