don't create accessor if the class declares an explicit method of tha…

…t name

S12-attributes/class.t

@@ -11,7 +11,7 @@ Class Attributes
 #L<S12/Class attributes/"Class attributes are declared">
 #L<S12/Class methods/Such a metaclass method is always delegated>
 
-plan 23;
+plan 25;
 
 class Foo {
     our $.bar = 23;
@@ -105,4 +105,19 @@ dies_ok {$test5 = Quux.bar}, 'class attribute accessor hidden by accessor in sub
     ok $! ~~ Exception, "bad code: '$bad_code'";
 }
 
+{
+    class A { 
+        has $.b = 1; 
+        method b() { 2; } 
+    };
+    is A.new.b, 2, "don't create accessor if the class declares an explicit method of that name";
+
+
+    role B { 
+        has $.b = 1; 
+        method b() { 2; } 
+    };
+    is B.new.b, 2;
+}
+
 # vim: ft=perl6