Field :param attributes, //= and ||= default assignments

1 files changed, 22 insertions, 0 deletions

diff --git a/t/lib/croak/class b/t/lib/croak/class
index d1870930c8..48a744b511 100644
--- a/t/lib/croak/class
+++ b/t/lib/croak/class
@@ -106,3 +106,25 @@ class XXX {
 }
 EXPECT
 Can't "last" out of field initialiser expression at - line 5.
+########
+use strict;
+no warnings 'experimental::class';
+use feature 'class';
+class XXX {
+  field $x :param(p);
+  field $y :param(p);
+}
+EXPECT
+Cannot assign :param(p) to field $y because that name is already in use at - line 6.
+########
+use strict;
+no warnings 'experimental::class';
+use feature 'class';
+class XXX {
+  field $x :param(p);
+}
+class YYY :isa(XXX) {
+  field $y :param(p);
+}
+EXPECT
+Cannot assign :param(p) to field $y because that name is already in use at - line 8.