Integrate mainline

[p5sagit/p5-mst-13.2.git] / t / op / attrs.t

diff --git a/t/op/attrs.t b/t/op/attrs.t
index 8e04936..1ed92a1 100644 (file)
--- a/t/op/attrs.t
+++ b/t/op/attrs.t
@@ -180,6 +180,14 @@ eval 'package A; sub X { $_[0] } sub X : lvalue';
 mytest '', "@attrs", "lvalue";
 BEGIN {++$ntests}
 
+# Above not with just 'pure' built-in attributes.
+sub Z::MODIFY_CODE_ATTRIBUTES { (); }
+eval 'package Z; sub L { $_[0] } sub L : Z lvalue';
+@attrs = eval 'attributes::get \&Z::L';
+mytest '', "@attrs", "lvalue Z";
+BEGIN {++$ntests}
+
+
 # Begin testing attributes that tie
 
 {