Deprecate use of the attribute :locked on subroutines.

[perl5.git] / t / lib / warnings / toke

diff --git a/t/lib/warnings/toke b/t/lib/warnings/toke
index 04c41d5..e5ca400 100644 (file)
--- a/t/lib/warnings/toke
+++ b/t/lib/warnings/toke
@@ -848,10 +848,23 @@ EXPECT
 ########
 # toke.c
 our $foo :unique;
+sub pam :locked;
+sub glipp :locked {
+}
+sub whack_eth ($) : locked {
+}
 use warnings 'deprecated';
 our $bar :unique;
+sub zapeth :locked;
+sub ker_plop :locked {
+}
+sub swa_a_p ($) : locked {
+}
 EXPECT
-Use of :unique is deprecated at - line 4.
+Use of :unique is deprecated at - line 9.
+Use of :locked is deprecated at - line 10.
+Use of :locked is deprecated at - line 11.
+Use of :locked is deprecated at - line 13.
 ########
 # toke.c
 use warnings "syntax";