diff --git a/S12-attributes/instance.t b/S12-attributes/instance.t index a69bfbc29a..9d0899292c 100644 --- a/S12-attributes/instance.t +++ b/S12-attributes/instance.t @@ -2,7 +2,7 @@ use v6; use Test; -plan 139; +plan 140; =begin pod @@ -684,6 +684,19 @@ eval_dies_ok q[class A { has $!a }; my $a = A.new(a => 42); } +# RT #107232 +{ + my class Shadowing { + has $x; + method ignores_attr() { + my $x = 42; + return $x; + } + } + is Shadowing.new.ignores_attr(), 42, 'can shadow an attribute with a lexical'; + +} + done(); # vim: ft=perl6