Permalink
Browse files

[t/spec] tests for RT #73808 Providing a list of attributes to a sing…

…le "has" leads to IMCC syntax errors

git-svn-id: http://svn.pugscode.org/pugs@31895 c213334d-75ef-0310-aa23-eaa082d1ae64
  • Loading branch information...
1 parent 83e4c2e commit 7a5e74db66dbf1cf401cb6c7b0ec11f1423ca03f bbkr committed Aug 3, 2010
Showing with 15 additions and 1 deletion.
  1. +15 −1 S12-class/attributes.t
View
@@ -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

0 comments on commit 7a5e74d

Please sign in to comment.