From 83e58ac6ac678fe0aa93c42f6b3160f032b5f051 Mon Sep 17 00:00:00 2001
From: =?UTF-8?q?Patrick=20B=C3=B6ker?= <patrick.boeker@posteo.de>
Date: Sat, 22 Jun 2024 21:34:20 +0200
Subject: [PATCH] Add test for default init of enums in roles

---
 integration/weird-errors.t | 14 +++++++++++++-
 1 file changed, 13 insertions(+), 1 deletion(-)

diff --git a/integration/weird-errors.t b/integration/weird-errors.t
index a164aa2eda..2419bc8260 100644
--- a/integration/weird-errors.t
+++ b/integration/weird-errors.t
@@ -2,7 +2,7 @@ use Test;
 use lib $?FILE.IO.parent(2).add("packages/Test-Helpers");
 use Test::Util;
 
-plan 36;
+plan 37;
 
 # this used to segfault in rakudo
 is_run(
@@ -290,4 +290,16 @@ is_run ｢class Foo {}; -> Foo() $x { $x.say }("42")｣, {:out(''), :err(*), :1s
     is_run($lot-of-variables, { :42status }, "no segv or throw with lots of variables");
 }
 
+# https://github.com/rakudo/rakudo/issues/5599
+{
+    enum E <one>;
+    role R {
+        has $.e = one;
+        method m() {
+            ok $!e === one, "default initialization of enums in roles works";
+        }
+    }
+    R.new.m;
+}
+
 # vim: expandtab shiftwidth=4