From a20b3a45835d5ca5caf38f255631ffaac27242e5 Mon Sep 17 00:00:00 2001
From: jnthn <jnthn@jnthn.net>
Date: Wed, 9 Mar 2016 11:05:59 +0100
Subject: [PATCH] Test for RT #127665.

---
 S12-attributes/instance.t | 12 +++++++++++-
 1 file changed, 11 insertions(+), 1 deletion(-)

diff --git a/S12-attributes/instance.t b/S12-attributes/instance.t
index 9b6b8c0f66..c71c75ff8f 100644
--- 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