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
Providing a list of attributes to a single 'has' leads to IMCC syntax errors #1630
Comments
From @moritz./perl6 -e 'class A { has ( Not good... (This is triggered by t/spec/S12-class/attributes.t, but not exercised |
From @bbkr$ perl6 -v This is Rakudo Perl 6, version 2010.07-47-g9fd5eaa built on parrot 2.6.0 Copyright 2008-2010, The Perl Foundation perl6 -e 'class A { has ( taken for tests |
The RT System itself - Status changed from 'new' to 'open' |
From @bbkrtests in t/spec/S12-class/attributes.t |
@bbkr - Status changed from 'open' to 'resolved' |
From @kylehaThis is an automatically generated mail to inform you that tests are now available in t/spec/S12-class/attributes.t commit ba2c034ba3a2cc8f3ad6a53cc66328cb12dbe81e [t/spec] tests for RT #73808 Providing a list of attributes to a single "has" leads to IMCC syntax errors Inline Patchdiff --git a/t/spec/S12-class/attributes.t b/t/spec/S12-class/attributes.t
index c4dc182..e513041 100644
--- a/t/spec/S12-class/attributes.t
+++ b/t/spec/S12-class/attributes.t
@@ -2,7 +2,7 @@ use v6;
use Test;
-plan 19;
+plan 20;
# L<S12/Methods/"For a call on your own private method">
@@ -92,4 +92,18 @@ is(@t[1], 200, 'array attribute initialized/works');
$bar.bar[2] = 300;
is($bar.bar[2], 300, 'array attribute initialized/works');
+# RT #73808
+{
+ class RT73808 {
+ has ($!a, $!b);
+ method foo {
+ $!a = 1;
+ $!b = 3;
+ return $!a + $!b;
+ }
+ }
+ is RT73808.new.foo, 4,
+ 'Providing a list of attributes to a single "has" works';
+}
+
# vim: ft=perl6 |
Migrated from rt.perl.org#73808 (status was 'resolved')
Searchable as RT73808$
The text was updated successfully, but these errors were encountered: