diff --git a/S12-attributes/instance.t b/S12-attributes/instance.t index 18bebc1cc7..1a4c7ed43f 100644 --- a/S12-attributes/instance.t +++ b/S12-attributes/instance.t @@ -2,7 +2,7 @@ use v6; use Test; -plan 129; +plan 130; =begin pod @@ -543,4 +543,15 @@ is eval('Foo7e.new.attr'), 42, "default attribute value (1)"; 'dies: modify instance attribute via class method call'; } +# Binding an attribute (was RT #64850) +{ + class RT64850 { + has $.x; + method foo { $!x := 42 } + } + my $a = RT64850.new; + $a.foo; + is $a.x, 42, 'binding to an attribute works'; +} + # vim: ft=perl6