From 3b1e5fb4f10ffb1ef384616013d89d117cc98a31 Mon Sep 17 00:00:00 2001
From: dogbert17 <jan-olof.hendig@bredband.net>
Date: Sat, 7 Apr 2018 14:00:52 +0200
Subject: [PATCH] Test nested enum coercion

Adds tests for RT#129142
---
 S12-enums/basic.t | 7 ++++++-
 1 file changed, 6 insertions(+), 1 deletion(-)

diff --git a/S12-enums/basic.t b/S12-enums/basic.t
index 78cfcab693..53d26d6b6e 100644
--- a/S12-enums/basic.t
+++ b/S12-enums/basic.t
@@ -1,6 +1,6 @@
 use v6;
 use Test;
-plan 53;
+plan 54;
 
 # Very basic enum tests
 
@@ -252,4 +252,9 @@ is-deeply do { my enum Foos (a => <42>); a.Str }, 'a',
     'Pair elements in the list given to enum declaration work';
 }
 
+{ # RT #129142
+    eval-lives-ok 'my enum FF <zero one two three>; my enum GG <fee fie foo fum>; { FF(GG(2)).perl }',
+                  'Coercing an enum from a coercion of an enum from an int works';
+}
+
 # vim: ft=perl6