Test mixing a private method into an enum value

Covers rakudo/rakudo#2535
Raku · Dec 12, 2018 · 93c620f · 93c620f
1 parent 3985f5d
commit 93c620f
Showing 1 changed file with 11 additions and 1 deletion.
diff --git a/S12-enums/thorough.t b/S12-enums/thorough.t
@@ -4,7 +4,7 @@ use MONKEY-TYPING;
 
 use Test;
 
-plan 59;
+plan 60;
 
 =begin description
 
@@ -120,4 +120,14 @@ ok Bool::True.perl ~~/^ 'Bool::True'/, 'Bool::True.perl';
     ok B.^can("value"), '.^can(...) on an enum';
 }
 
+# https://github.com/rakudo/rakudo/issues/2535
+{
+    my enum WithPriv <AA BB>;
+    AA does role {
+        method !privy { 44 }
+        method m() { self!privy }
+    }
+    is AA.m, 44, "Can mix a private method into an enum value"
+}
+
 # vim: ft=perl6