[perl #73808] tests available

[kyleha]

This is an automatically generated mail to inform you that tests are now 
available in t/spec/S12-class/attributes.t

commit ba2c034ba3a2cc8f3ad6a53cc66328cb12dbe81e
Author: bbkr <b...@c213334d-75ef-0310-aa23-eaa082d1ae64>
Date:   Tue Aug 3 13:23:13 2010 +0000

    [t/spec] tests for RT #73808 Providing a list of attributes to a single 
"has" leads to IMCC syntax errors
    
    git-svn-id: http://svn.pugscode.org/p...@31895 
c213334d-75ef-0310-aa23-eaa082d1ae64

diff --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