Test for RT #127665.

Raku · Mar 9, 2016 · a20b3a4 · a20b3a4
1 parent af717d6
commit a20b3a4
Showing 1 changed file with 11 additions and 1 deletion.
diff --git a/S12-attributes/instance.t b/S12-attributes/instance.t
@@ -2,7 +2,7 @@ use v6;
 
 use Test;
 
-plan 150;
+plan 152;
 
 =begin pod
 
@@ -716,4 +716,14 @@ throws-like q[class RT74274 { has $!a }; my $a = RT74274.new(a => 42);
     ;
 }
 
+# RT #127665
+{
+    my class A {
+        has $.x is rw;
+        has $.y;
+    }
+    ok A.^lookup('x').rw, 'is rw accessor method marked rw';
+    nok A.^lookup('y').rw, 'readonly accessor method not marked rw';
+}
+
 # vim: ft=perl6